通过

Shape.Duplicate 方法 (Project)

  • 项目

复制形状并返回对副本的引用。

语法

表达式。重复

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

返回值

Shape

示例

以下示例使用 Shape.Apply 方法中的代码示例创建的报表。 该示例复制一个形状，然后旋转、水平翻转并选择新形状。 新形状的水平偏移量和垂直偏移量均为 12 磅。

Sub DuplicateShape()
    Dim theReport As Report
    Dim shp1 As shape
    Dim duplicatedShape As shape
    Dim reportName As String
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    
    Set duplicatedShape = shp1.Duplicate
    
    pos1 = shp1.left
    pos2 = duplicatedShape.left
    Debug.Print "Horizontal offset: " & CStr(pos2 - pos1)
    
    pos1 = shp1.top
    pos2 = duplicatedShape.top
    Debug.Print "Vertical offset: " & CStr(pos2 - pos1)
   
    duplicatedShape.Rotation = 30
    duplicatedShape.Flip msoFlipHorizontal
    
    duplicatedShape.Select
End Sub

另请参阅

Shape 对象ShapeRange.Duplicate 方法

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。