Shape nach Master und Position selektieren

07/04/2008 - 13:15 von eLiz | Report spam
Hallo,

wie kann ich mit VBA ein bestimmtes Shape auf einem Zeichenblatt
selektieren, dass zu einem bestimmten Master gehört und sich an einer
bestimmten Position befindet? Die Angaben (Master und Shape) würden aus der
akutellen Auswahl (die sich auf einem anderen Zeichenblatt befindet)
entnommen werden. Ich möchte quasi, dass ich ein Shape auswàhle, dann ein
Dialog erscheint, in dem ich sagen kann um welchen Wert das Shape verrutscht
werden soll (selection.move). Und mit einem Befehl will ich dann auf jedem
Zeichenblatt auf dem sich das Shape an der gleichen Stelle befindet, dieses
element um den angegebenen Wert verschieben.

Das heißt ich brauch folgende Infos:
- Auslesen des Masters und der Position aus einem selektierten Shape
- Selektion eines Shapes nach Master und Position

Wer kann mir helfen?

vielen Dank und Gruß
eLiz
 

Lesen sie die antworten

#1 Wolfgang Welscher
07/04/2008 - 19:43 | Warnen spam
Hallo,

für das Automatisieren von Visio ist es "leider" unumgànglich das Visio -
Objektmodell zu lernen!
Um ein bestimmtes Shape auf einer Seite über Automatisierung veràndern zu
können muß ich durch die Shapes der Seite durchlaufen und auf die Kriterien
prüfen

Public Sub Shapes_Find()

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
If vsoShapes.Item(i).Master.Name= "Block" Then
Debug.Print vsoShapes.Item(i).Master.Name
End If
Next i

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

End Sub

Gruß
Wolfgang


"eLiz" schrieb im Newsbeitrag
news:
Hallo,

wie kann ich mit VBA ein bestimmtes Shape auf einem Zeichenblatt
selektieren, dass zu einem bestimmten Master gehört und sich an einer
bestimmten Position befindet? Die Angaben (Master und Shape) würden aus
der
akutellen Auswahl (die sich auf einem anderen Zeichenblatt befindet)
entnommen werden. Ich möchte quasi, dass ich ein Shape auswàhle, dann ein
Dialog erscheint, in dem ich sagen kann um welchen Wert das Shape
verrutscht
werden soll (selection.move). Und mit einem Befehl will ich dann auf jedem
Zeichenblatt auf dem sich das Shape an der gleichen Stelle befindet,
dieses
element um den angegebenen Wert verschieben.

Das heißt ich brauch folgende Infos:
- Auslesen des Masters und der Position aus einem selektierten Shape
- Selektion eines Shapes nach Master und Position

Wer kann mir helfen?

vielen Dank und Gruß
eLiz

Ähnliche fragen