Page.DrawRectangle メソッド (Visio)

ページ、マスター シェイプ、またはグループの 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 のサポートおよびフィードバックを参照してください。