次の方法で共有


GraphicItems.AddCopy メソッド (Visio)

GraphicItem オブジェクトのコピーを visTypeDataGraphic 型の Master オブジェクトの GraphicItems コレクションに追加します。

注:

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

構文

AddCopy( _GraphicItem_ )

GraphicItems オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
GraphicItem 必須 [IVGRAPHICITEM] コピーする GraphicItem オブジェクトです。

戻り値

GraphicItem

注釈

追加する GraphicItem オブジェクトは、visTypeDataGraphic 型の別の Master オブジェクトの GraphicItems コレクションに存在する必要があります。

Master.Open を使用して visTypeDataGraphic 型の Master オブジェクトのコピーを編集用に開いた後に、Master.Close メソッドを使用して、マスター シェイプが開いている間に行ったすべての変更をコミットしてください。 データ グラフィックのコピーを閉じると、以前にデータ グラフィックが適用されていたすべての図形に再適用されます。

注:

マスター自体ではなくマスターのコピーを編集する必要がある理由の詳細については、「 Master.Open」を参照してください。

次の Microsoft Visual Basic for Applications (VBA) マクロは、AddCopy メソッドを使用して、既存のデータ グラフィックのアイテムのコピーを Master オブジェクトの GraphicItems コレクションに追加する方法を示します。

このマクロでは、Masters.AddEx メソッドを使用して、visTypeDataGraphic 型の新しい Master オブジェクトをアクティブな図面の Masters コレクションに追加します。 次に、 Master.Open メソッドを使用して、編集する新しいデータ グラフィック マスターのコピーを取得します。

次に、 メソッドは、既存のマスター シェイプの GraphicItems コレクション内の最初の項目である既存のデータ グラフィック項目のコピーを取得します。 最後に、AddCopy メソッドを使用して、既存のデータ グラフィックのアイテムのコピーを新しいマスター シェイプのコピーの GraphicItems コレクションに追加してから、マスター シェイプのコピーを閉じます。

このマクロは、新しいマスターに追加する 1 つ以上のグラフィック 項目を含む既存のデータ グラフィック マスター (" old_master_name ") の名前がわかっていることを前提としています。 既存のデータ グラフィックのマスター シェイプ名は、Visio ユーザー インターフェイスの [データ グラフィック] タスク ウィンドウのマスター シェイプの上にマウス ポインターを置いて確認できます。

Public Sub AddCopy_Example() 
 
    Dim vsoMaster As Visio.Master 
    Dim vsoMasterCopy As Visio.Master 
    Dim vsoMaster_Old As Visio.Master 
    Dim vsoGraphicItem As GraphicItem 
    Dim vsoGraphicItem_Old As Visio.GraphicItem 
 
    Set vsoMaster = Visio.ActiveDocument.Masters.AddEx(visTypeDataGraphic) 
    Set vsoMasterCopy = vsoMaster.Open 
    Set vsoMaster_Old = ActiveDocument.Masters("old_master_name ") 
    Set vsoGraphicItem_Old = vsoMaster_Old.GraphicItems(1) 
    Set vsoGraphicItem = vsoMasterCopy.GraphicItems.AddCopy(vsoGraphicItem_Old) 
    vsoMasterCopy.Close     
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。