Shapes.Item-Eigenschaft (Visio)

Gibt ein Element aus einer Auflistung zurück. Die Item-Eigenschaft ist die Standardeigenschaft für alle Auflistungen. Schreibgeschützt.

Syntax

Ausdruck verwendet werden. Element (NameUIDOrIndex)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Rückgabewert

Form

Bemerkungen

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 enthaltenden Seite der Shapes-Sammlung oder in der enthaltenden master zusätzlich zu der Form, die die Sammlung enthält. Daher kann das von der Item-Eigenschaft zurückgegebene Shape-Objekt eine Form sein, die sich nicht in der Shapes-Auflistung befindet.

Sie können auch die eindeutige ID-Zeichenfolge eines Master- oder Shape-Objekts an die Item-Eigenschaft übergeben. Zum 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. Zum Beispiel:

objRet = vsoShapes.Item("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Weitere Informationen zum Übergeben von ID-Zeichenfolgen an die Item-Eigenschaft finden Sie im Thema für die UniqueID-Eigenschaft in diesem Verweis.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie mithilfe der Item-Eigenschaft ein Page-Objekt aus der Pages-Auflistung des aktiven Dokuments und allen Shape-Objekten in der Shapes-Auflistung des Page-Objekts abrufen können. 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

Support und Feedback

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.