通过

Page.Paste 方法 (Visio)

  • 项目

将剪贴板的内容粘贴到对象中。

语法

表达式。粘贴 (标志)

表达 一个代表 Page 对象的变量。

参数

名称 必需/可选 数据类型 说明
Flags 可选 Variant 确定在粘贴操作过程中如何转换形状。

返回值

Nothing

注解

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 Word 文档）的链接（可选），请使用 PasteSpecial 方法。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。