Shapes.Item-Eigenschaft (Visio)

Artikel
04/07/2023

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

Syntax

Ausdruck. Item (NameUIDOrIndex)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
NameUIDOrIndex	Erforderlich	Variant	Enthält den Namen, die eindeutige ID oder den Index des abzurufenden Objekts.

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 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.

Beispiel

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

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.

Freigeben über