通过

Shapes.AddShape 方法 (Project)

向报表添加指定自选图形类型的形状，并返回一个代表新形状的 Shape 对象。

语法

expression。 AddShape (类型，左侧，顶部，宽度，高度)

expression：一个表示 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
Type 必需 MsoAutoShapeType 指定要创建的自选形状的类型。
Left 必需 Single 自选图形左边缘的位置（以 磅为单位）。
Top 必需 Single 自选图形上边缘的位置（以 磅为单位）。
Width 必需 Single 自选图形的宽度（以 磅为单位）。
Height 必需 Single 自选图形的高度（以 磅为单位）。
类型 必需 MSOAUTOSHAPETYPE
Left 必需 FLOAT
Top 必需 FLOAT
Width 必需 FLOAT
Height 必需 FLOAT
名称 必需/可选 数据类型 说明

返回值

Shape

备注

若要更改自选图形的类型，请设置 AutoShapeType 属性。

示例

以下示例创建一个包含两个云形状的报表，然后将第二个云形状更改为黄色语音气球。

Sub TestShapes()
    Dim shapeReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Shape report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    ' Change the blue cloud to a yellow speech balloon.
    cloudShape2.AutoShapeType = msoShapeBalloon
    cloudShape2.Fill.ForeColor.RGB = &H80FFFF
End Sub

另请参阅

Shapes 对象形状对象AutoShapeType 属性MsoAutoShapeType 枚举 (Office)

支持和反馈

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