Shapes.Item-Eigenschaft (Visio)
Gibt ein Element aus einer Auflistung zurück. Die Item-Eigenschaft ist die Standardeigenschaft für alle Auflistungen. Schreibgeschützt.
Ausdruck. Item (NameUIDOrIndex)
expression Eine Variable, die ein Shapes-Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
NameUIDOrIndex | Erforderlich | Variant | Enthält den Namen, die eindeutige ID oder den Index des abzurufenden Objekts. |
Form
Wenn Sie Objekte aus einer Auflistung abrufen, können Sie Item im Ausdruck weglassen, da dies die Standardeigenschaft für alle Auflistungen ist. Die folgenden Anweisungen entsprechen dem obigen Syntaxbeispiel:
objRet = object(index)
objRet = object(stringExpression)
Sie können ein Objekt in einer Addons-, Documents-, Fonts-, Hyperlinks-, Layers-, Masters-, MasterShortcuts-, OLEObjects-, Pages-, Shapes- oder Styles-Auflistung abrufen, indem Sie den Namen des Objekts als Zeichenfolgenausdruck in einem Variant-Wert übergeben.
Wenn Sie ein Shape-Objekt anhand des Namens abrufen, durchsucht die Item-Eigenschaft alle Shapes in der Shapes-Auflistung , die das Zeichenblatt enthält oder das Master-Shape enthält, zusätzlich zum shape der Auflistung. Daher kann das shape-Objekt , das von der Item-Eigenschaft zurückgegeben wird, eine Form sein, die nicht in der Shapes-Auflistung enthalten ist.
Sie können auch die eindeutige ID-Zeichenfolge eines Master- oder Shape-Objekts an die Item-Eigenschaft übergeben. Beispiel:
objRet = vsoShapes.Item("{2287DC42-B167-11CE-88E9-0020AFDDD917}")
Wird eine solche Zeichenfolge an die Item-Eigenschaft einer Shapes-Auflistung übergeben, werden alle in der Auflistung enthaltenen Shapes durchsucht. Shapes, die sich innerhalb des Shapes in Gruppen-Shapes befinden, werden jedoch nicht durchsucht.
Um alle Shapes in der Auflistung plus die Shapes in Gruppen und das enthaltende Shape der Auflistung zu durchsuchen, stellen Sie der eindeutigen ID-Zeichenfolge ein Sternchen (*) voran. Beispiel:
objRet = vsoShapes.Item("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")
Weitere Informationen zum Übergeben von ID-Zeichenfolgen an die Item-Eigenschaft finden Sie im Thema zur UniqueID-Eigenschaft in dieser Referenz.
Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie sie mit der Item-Eigenschaft ein Page-Objekt aus der Pages-Auflistung des aktiven Dokuments und alle Shape-Objekte in der Shapes-Auflistung des Page-Objekts abrufen. Es schreibt den Namen aller Shapes auf das Zeichenblatt-1 im Direktfenster.
Stellen Sie vor Ausführung des Makros sicher, dass das aktive Dokument über Shapes auf dem Zeichenblatt-1 verfügt.
Public Sub Item_Example()
Dim intCounter As Integer
Dim intShapeCount As Integer
Dim vsoShapes As Visio.Shapes
Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes
Debug.Print "Shape Name List For..."
Debug.Print "Document: "; ActiveDocument.Name
Debug.Print "Page: "; ActiveDocument.Pages.Item(1).Name
intShapeCount = vsoShapes.Count
If intShapeCount > 0 Then
For intCounter = 1 To intShapeCount
Debug.Print " "; vsoShapes.Item(intCounter).Name
Next intCounter
Else
Debug.Print " No Shapes On Page"
End If
End Sub
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.