GraphicItem.Delete メソッド (Visio)

visTypeDataGraphic 型の Master オブジェクトの GraphicItems コレクションから GraphicItem オブジェクトを削除します。

構文

式。削除

式GraphicItem オブジェクトを表す変数。

戻り値

なし

解説

グラフィック アイテムを削除する前に、 Master.Open メソッドを使用して、グラフィック アイテムの GraphicItems コレクションが属するデータ グラフィック マスターのコピーを開いて編集できるようにする必要があります。 グラフィック項目を削除し、その他の必要な編集を行った後、Master.Close メソッドを使用して変更をコミットします。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、Delete メソッドを使用して、マスター オブジェクトの GraphicItems コレクションから既存のグラフィック アイテムを削除する方法を示しています。 最後にコレクションに追加されたグラフィック アイテムが削除され、削除の前後で、マスター コピーのコレクション内のグラフィック アイテムの数が[即時] ウィンドウに出力されます。 マスター コピーを閉じると、マスター自体のコレクション内のグラフィック アイテムの数も出力され、コピーに対して実行されたアクションがマスターにコミットされることを示します。

このマクロは、 GraphicItems コレクションに少なくとも 1 つのメンバーが含まれる既存のデータ グラフィック マスターがプロジェクトに存在することを前提としています。 既存のデータ グラフィックのマスター シェイプ名は、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 のサポートおよびフィードバックを参照してください。