共用方式為

Visio) (GraphicItem.Delete 方法

  • 發行項

會從 visTypeDataGraphic 類型之 Master 物件的 GraphicItems 集合中刪除 GraphicItem 物件。

注意事項

This Visio object or member is available only to licensed users of Visio Professional 2013.

語法

運算式。刪除

表達 代表 GraphicItem 物件的變數。

傳回值

無

註解

您必須先使用 Master.Open 方法來編輯圖形專案所屬 GraphicItems 集合的資料圖形主圖形複本，才能刪除圖形專案。 當您刪除該圖形項目，並進行您想要的任何其他編輯之後，請使用 Master.Close 方法確認變更。

範例

下列 Microsoft Visual Basic for Applications (VBA) 宏會示範如何使用Delete方法，從Master物件的GraphicItems集合中刪除現有的圖形專案。 它會刪除最近新增至集合的圖形專案，並將刪除前後主要複本集合中的圖形專案計數列印到 [即時運算] 視窗。 關閉主複本之後，它也會列印主圖形本身集合中的圖形專案計數，以顯示在複本上執行的動作會認可至主複本。

宏假設您的專案中有一個圖形主圖形，其 GraphicItems 集合至少有一個成員。 您可以將滑鼠指標移到 Visio 使用者介面中 [資料圖形] 工作窗格內的主圖形上方，以判斷現有資料圖形主圖形的名稱。 此範例中的主圖形名為「Data Graphic」。

Public Sub Delete_Example() 
 
    Dim vsoMaster As Visio.Master 
    Dim vsoMasterCopy As Visio.Master 
    Dim intGraphicItemCount As Integer 
 
    Set vsoMaster = ActiveDocument.Masters("Data Graphic") 
    Set vsoMasterCopy = vsoMaster.Open 
     
    intGraphicItemCount = vsoMasterCopy.GraphicItems.Count 
     
    Debug.Print "Before delete", intGraphicItemCount 
    vsoMasterCopy.GraphicItems(intGraphicItemCount).Delete 
    Debug.Print "After delete", vsoMasterCopy.GraphicItems.Count 
    vsoMasterCopy.Close 
    Debug.Print "After close", vsoMaster.GraphicItems.Count 
     
End Sub

支援和意見反應

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