Shapes.AddShape メソッド (Project)

指定したオートシェイプ型の図形をレポートに追加し、新しい図形を表す Shape オブジェクトを返します。

構文

式。 AddShape(型、左、上、幅、高さ)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
型	必須	MsoAutoShapeType	作成するオートシェイプの種類を指定します。
Left	必須	Single	オートシェイプの左端の 位置をポイント単位で指定します。
Top	必須	Single	オートシェイプの上端の 位置をポイント単位で指定します。
Width	必須	Single	オートシェイプの幅を ポイント単位で指定します。
Height	必須	Single	オートシェイプの高さ ( ポイント単位)。
Type	必須	MSOAUTOSHAPETYPE
Left	必須	FLOAT
Top	必須	FLOAT
Width	必須	FLOAT
Height	必須	FLOAT
名前	必須 / オプション	データ型	説明

戻り値

図形

注釈

オートシェイプの種類を変更するには、 AutoShapeType プロパティを設定します。

例

次の例では、2 つの雲の形を含むレポートを作成し、2 つ目の雲の形を黄色の吹き出しに変更します。

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 のサポートおよびフィードバックを参照してください。