共用方式為

Viewer.SelectedShapeIndex 屬性 (Visio 檢視器)

  • 發行項

取得繪圖中所選取圖形之圖案集合中的索引，該圖案在Microsoft Visio 檢視器中開啟。 唯讀。

語法

運算式。SelectedShapeIndex

表達 會傳回 Viewer 物件的 運算式。

傳回值

Long

註解

圖形集合是以一為基底，因此集合中第一個圖案的索引為 1。

如果繪圖中未選取任何圖形， SelectedShapeIndex 屬性會 傳回 0。

範例

下列程式碼會逐一查看以Visio 檢視器開啟之檔中的圖形集合、依序選取每個圖案，然後取得第一個圖形資料項目的值， (指派給每個圖案的自訂屬性) 。 如果它探索到電腦 100 的自訂屬性值，則會顯示該效果的訊息方塊。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。