Viewer.SelectedShapeIndex-Eigenschaft (Visio Viewer)

Artikel
04/07/2023

Ruft den Index in der Auflistung der Shapes der ausgewählten Form in der Zeichnung ab, die in Microsoft Visio Viewer geöffnet ist. Schreibgeschützt.

Syntax

Ausdruck. SelectedShapeIndex

Ausdruck Ein Ausdruck, der ein Viewer-Objekt zurückgibt.

Rückgabewert

Long

HinwBemerkungeneise

Die Auflistung von Shapes ist einsbasiert, sodass der Index der ersten Form in der Auflistung 1 ist.

Wenn in der Zeichnung keine Formen ausgewählt sind, gibt die SelectedShapeIndex-Eigenschaft 0 zurück.

Beispiel

Der folgende Code durchläuft die Auflistung von Formen in dem Dokument, das in Visio Viewer geöffnet ist, wählt jedes Shape nacheinander aus und ruft dann den Wert des ersten Shape-Datenelements (benutzerdefinierte Eigenschaft) ab, das jedem Shape zugewiesen ist. Wenn der benutzerdefinierte Eigenschaftswert Computer 100 ermittelt wird, wird ein Meldungsfeld zu diesem Zweck angezeigt.

Dim intSelectedShapeIndex As Integer

Dim intShapeCounter As Integer

For intShapeCounter = 1 To vsoViewer.ShapeCount

    vsoViewer.SelectShape (intShapeCounter)

    intSelectedShapeIndex = vsoViewer.SelectedShapeIndex

    If vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1) = "Computer 100" Then

        Interaction.MsgBox ("Selected shape name is " & vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1))

    End If

Next

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