Page.Paste メソッド (Visio)

クリップボードの内容をオブジェクトに貼り付けます。

構文

式。貼り付け (フラグ)

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

パラメーター

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

戻り値

なし

解説

Paste メソッドは、Shape オブジェクトがグループ図形である場合にのみ機能します。 図形の Type プロパティを使用して、図形がグループであるかどうかを判別します。

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

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

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

貼り付けた情報の書式を制御し、オプションでソース ファイル (Microsoft Office Word 文書など) へのリンクを確立する場合は、PasteSpecial メソッドを使用します。

例

次の VBA (Microsoft Visual Basic for Applications) マクロは、Paste メソッドの使用方法を示しています。 このマクロは、長方形を描いてコピーし、そのコピーを図面ページに貼り付けています。

 
Public Sub Paste_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Draw a rectangle. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
 'Paste the copy onto the drawing page. 
 ActivePage.Paste 
 
End Sub

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

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