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