Shape.DrawRectangle メソッド (Visio)

ページ、マスター シェイプ、またはグループの Shapes コレクションに四角形を追加します。

構文

expression. DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )

式Shape オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
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 のサポートおよびフィードバックを参照してください。