ページ、マスター シェイプ、またはグループの Shapes コレクションに四角形を追加します。
構文
expression.
DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )
表現Page オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| x1 | 必須 | 倍精度浮動小数点型 (Double) | 四角形の幅/高さボックスの一角の x 座標です。 |
| y1 | 必須 | 倍精度浮動小数点型 (Double) | 四角形の幅/高さボックスの一角の y 座標です。 |
| x2 | 必須 | 倍精度浮動小数点型 (Double) | 四角形の幅/高さボックスの対角の x 座標です。 |
| y2 | 必須 | 倍精度浮動小数点型 (Double) | 四角形の幅/高さボックスの対角の y 座標です。 |
戻り値
Shape
注釈
DrawRectangle メソッドを使用すれば、アプリケーションで [四角形] ツールを使用した場合と同じになります。 引数は内部図面単位で表し、四角形を配置するページ、マスター シェイプ、またはグループの座標空間を基準とします。
例
次の例は、アクティブなページ上に四角形を描く方法を示します。
Public Sub DrawRectangle_Example()
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1)
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。