Excel VBA 図形（オートシェイプ）を作成する方法

図形を作成する方法

構文

AddShape (Type, Left, Top, Width, Height)

名前	必須 / オプション	データ型	説明
Type	必須	MsoAutoShapeType	作成するオートシェイプの種類を指定します。
Left	必須	Single	AutoShape の境界ボックスの左上隅の位置 (ポイント) は、ドキュメントの左上隅を基準にしています。
Top	必須	Single	AutoShape の境界ボックスの左上隅の位置 (ポイント数)。
Width	必須	Single	オートシェイプの境界ボックスの幅をポイント単位で指定します。
Height	必須	Single	オートシェイプの境界ボックスの高さをポイント単位で指定します。

四角形の図形を作成するサンプルコード

Sub addShapeSample()
    ActiveSheet.Shapes.AddShape msoShapeRectangle, 10, 10, 100, 100
End Sub