次の方法で共有


Shape.Copy メソッド (Visio)

クリップボードに図形をコピーします。

構文

コピー (フラグ)

: Shape オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Flags 省略可能 バリアント型 (Variant) コピー操作を行った場合の、図形の変換方法を指定します。

戻り値

なし

解説

Flags に指定できる値は次のとおりです。これらの値は、Visio タイプ ライブラリの VisCutCopyPasteCodes で宣言されています。

Flag 説明
visCopyPasteNormal &H0 既定のコピー動作に従います。
visCopyPasteNoTranslate &H1 元の座標位置に図形をコピーします。
visCopyPasteCenter &H2 図面の中央に図形をコピーします。
visCopyPasteNoHealConnectors &H4 図形を切り取る際に、関連付けられているコネクタを削除しません。
visCopyPasteNoContainerMembers &H8 コンテナーまたはリストの選択されていないメンバーを切り取りおよびコピーしません。
visCopyPasteNoAssociatedCallouts &H16 図形に関連付けられている、選択されていない引き出しを切り取りおよびコピーしません。
visCopyPasteDontAddToContainers &H32 貼り付けられた図形を、基になるコンテナーに追加しません。
visCopyPasteNoCascade &H64 コピー時に図形をオフセットしません。

FlagsvisCopyPasteNormal に設定すると、ユーザー インターフェイスで切り取り/貼り付けを実行した場合と同じ結果が得られます。 visCopyPasteNormal と他のフラグは一貫して使用する必要があります。 たとえば、元の座標位置に図形を貼り付ける場合は、値 visCopyPasteNoTranslate を使用して図形をコピーし、貼り付けるときもこの値を使用する必要があります。

クリップボードを使用せずにコピーするには、Duplicate メソッドを使用します。

次の例は 、Copy メソッドを使用する方法を示しています。 この例では、長方形を描きそれをクリップボードにコピーします。

 
Public Sub Copy_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
End Sub

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

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