ワークシート上の新しいオートシェイプを表す Shape オブジェクトを返します。
構文
式。AddShape (type, left, top, width, height)
表現Shapes オブジェクトを表す変数です。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| 型 | 必須 | MsoAutoShapeType | 作成するオートシェイプの種類を指定します。 |
| Left | 必須 | Single | ドキュメントの左上隅に対するオートシェイプの境界ボックスの左上隅の位置 ( ポイント単位)。 |
| Top | 必須 | Single | ドキュメントの上部に対するオートシェイプの境界ボックスの左上隅の位置 (ポイント単位)。 |
| Width | 必須 | 単精度浮動小数点型 (Single) | オートシェイプの境界ボックスの幅をポイント単位で指定します。 |
| Height | 必須 | 単精度浮動小数点型 (Single) | オートシェイプの境界ボックスの高さをポイント単位で指定します。 |
戻り値
Shape
注釈
追加したオートシェイプの種類を変更するには、 AutoShapeType プロパティを設定します。
例
次の使用例は、myDocument に四角形を追加します。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。