次の方法で共有

Shapes.AddLine メソッド (Word)

  • [アーティクル]

描画キャンバスに線を追加します。

構文

式。AddLine (BeginX、 BeginY、 EndX、 EndY)

expression 必須です。 Shapes オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
BeginX 必須 単精度浮動小数点型 (Single) 描画キャンバスを基準にして、線の始点の水平方向の位置をポイント単位で指定します。
BeginY 必須 単精度浮動小数点型 (Single) 描画キャンバスを基準にして、線の始点の垂直方向の位置をポイント単位で指定します。
EndX 必須 単精度浮動小数点型 (Single) 描画キャンバスを基準にして、線の終点の水平方向の位置をポイント単位で指定します。
EndY 必須 単精度浮動小数点型 (Single) 描画キャンバスを基準にして、線の終点の垂直方向の位置をポイント単位で指定します。

戻り値

Shape

注釈

矢印を作成するには、行の書式を設定するのに 明細行 プロパティを使用します。

例

次の使用例は、矢印の付いた紫色の線を新しい描画キャンバスに追加します。

Sub NewCanvasLine() 
 Dim shpCanvas As Shape 
 Dim shpLine As Shape 
 
 'Add new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=150, Height:=200) 
 
 'Add a line to the drawing canvas 
 Set shpLine = shpCanvas.CanvasItems.AddLine( _ 
 BeginX:=25, BeginY:=25, EndX:=150, EndY:=150) 
 
 'Add an arrow to the line and sets the color to purple 
 With shpLine.Line 
 .BeginArrowheadStyle = msoArrowheadDiamond 
 .BeginArrowheadWidth = msoArrowheadWide 
 .ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=255) 
 End With 
End Sub

関連項目

Shapes コレクション オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。