Shapes.AddShape 方法 (專案)

將指定的 AutoShape 類型的形狀加入報表，並回傳一個代表新形狀的 Shape 物件。

語法

expression。 AddShape (類型、左邊、上方、寬度、高度)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Type	必要	MsoAutoShapeType	指定要建立的快取圖案的類型。
Left	必要	Single	AutoShape 左邊邊的位置（ 點數）。
Top	必要	Single	AutoShape 頂邊的位置（ 以點數計）。
Width	必要	Single	AutoShape 的寬度（ 以點數計）。
Height	必要	Single	AutoShape 的高度（ 以點數計）。
Type	必要	MSOAUTOSHAPETYPE
Left	必要	浮
Top	必要	浮
Width	必要	浮
Height	必要	浮
名稱	必要/選用	資料類型	描述

傳回值

圖形

註解

要更改 AutoShape 的類型，請設定 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

另請參閱

形狀 物件形狀物件AutoShapeType 屬性MsoAutoShapeType 枚舉 (Office)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。