DrawLine メソッド (Visio)Shape.DrawLine method (Visio)

グループ図形のShapesコレクションに線を追加します。Adds a line to the Shapes collection of a group shape.

構文Syntax

expression.expression. DrawLine( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ )

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

ParametersParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
xBeginxBegin 必須Required DoubleDouble 線の始点の x 座標です。The x-coordinate of the line's begin point.
yBeginyBegin 必須Required DoubleDouble 線の始点の y 座標です。The y-coordinate of the line's begin point.
xEndxEnd 必須Required DoubleDouble 線の終点の x 座標です。The x-coordinate of the line's endpoint.
yEndyEnd 必須Required DoubleDouble 線の終点の y 座標です。The y-coordinate of the line's endpoint.

戻り値Return value

ShapeShape

注釈Remarks

DrawLineメソッドを使用することは、Microsoft Visio の [直線] ツールを使用するのと同じです。Using the DrawLine method is equivalent to using the Line tool in Microsoft Visio. 引数は内部図面単位で表し、線を配置するページ、マスター シェイプ、またはグループの座標空間を基準とします。The arguments are in internal drawing units with respect to the coordinate space of the page, master, or group where the line is being placed.

Example

次の例は、アクティブなページ上での縦棒の描き方を示したものです。The following example shows how to draw a line shape on the active page.

 
Public Sub DrawLine_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawLine(5, 4, 7.5, 1) 
 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.