次の方法で共有

GraphicItem.Delete メソッド (Visio)

  • [アーティクル]

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

注:

この Visio オブジェクトまたはメンバーは Visio Professional 2013 のライセンス ユーザーのみが使用できます。

構文

式。削除

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

戻り値

なし

解説

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

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、Delete メソッドを使用して、Master オブジェクトの 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 のサポートおよびフィードバックを参照してください。