Instanzen eines Mastershape selektieren

04/04/2008 - 11:54 von eLiz | Report spam
Hallo,

gibt es eine Möglichkeit ein Makro zu schreiben, dass mir alle Instanzen
eines Mastershapes selektiert und zwar auf allen Zeichenblàttern? Wie könnte
ein solches Makro aussehen? Ich brauch leider etwas mehr Hilfe, da meine
Programmierkenntnise sehr beschrànkt sind.

Verwendet werden soll das ganze um ein Element auf allen Zeichenblàttern zu
löschen bzw. gleichzeitig und um die gleiche Position zu verschieben. Da sich
die Shapes auf jedem Zeichenblatt an der selben Stelle befinden, wàre auch
ein Makro denkbar, bei dem man die Position eingeben kann und dann selektiert
er auf allen Zeichenblàttern die Shapes, die in diesem Bereich liegen

Ich bin um jede Hilfe dankbar
Gruß eLiz
 

Lesen sie die antworten

#1 Wolfgang Welscher
04/04/2008 - 14:43 | Warnen spam
Hallo,
eine Selection ist immer nur für das aktive Fenster möglich.
Um so eine Funktion zu realisieren, muß man durch "alle" Seiten und "alle"
Shapes der Seite iterieren auf den Master Namen prüfen und dann löschen oder
verschieben.

Gruß
Wolfgang
Beispiel für eine Seite:

Public Sub Shapes_Delete()

Dim iCounter As Integer
Dim iShapeCount As Integer
Dim vsoShapes As Visio.Shapes

Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes

iShapeCount = vsoShapes.Count

If iShapeCount > 0 Then
For i = 1 To iShapeCount
Debug.Print " "; vsoShapes.Item(i).Master.Name
Next i

Else
Debug.Print "No Shapes On Page"
End If

End Sub


"eLiz" schrieb im Newsbeitrag
news:
Hallo,

gibt es eine Möglichkeit ein Makro zu schreiben, dass mir alle Instanzen
eines Mastershapes selektiert und zwar auf allen Zeichenblàttern? Wie
könnte
ein solches Makro aussehen? Ich brauch leider etwas mehr Hilfe, da meine
Programmierkenntnise sehr beschrànkt sind.

Verwendet werden soll das ganze um ein Element auf allen Zeichenblàttern
zu
löschen bzw. gleichzeitig und um die gleiche Position zu verschieben. Da
sich
die Shapes auf jedem Zeichenblatt an der selben Stelle befinden, wàre auch
ein Makro denkbar, bei dem man die Position eingeben kann und dann
selektiert
er auf allen Zeichenblàttern die Shapes, die in diesem Bereich liegen

Ich bin um jede Hilfe dankbar
Gruß eLiz

Ähnliche fragen