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 | コピー時に図形をオフセットしません。 |
Flags を visCopyPasteNormal に設定すると、ユーザー インターフェイスで切り取り/貼り付けを実行した場合と同じ結果が得られます。 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 のサポートおよびフィードバックを参照してください。