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