通过

Shape.Copy 方法 (Visio)

将形状复制到剪贴板。

语法

表达式。复制 (标志)

expression 一个代表 Shape 对象的变量。

参数

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

返回值

Nothing

注解

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。