利用用途
線を描画し、外観を変える
利用するツール
【Page.Drawline メソッド】
始点と終点の X Y 座標を指定して、線を描画します。 Shape オブジェクトを返します。
| ・ | 式 | : | DrawLine(xBegin, yBegin, xEnd, yEnd) |
| ・ | xBegin | : | 倍精度浮動小数点型 (Double) 線の始点の x 座標です。 |
| ・ | yBegin | : | 倍精度浮動小数点型 (Double) 線の始点の y 座標です。 |
| ・ | xEnd | : | 倍精度浮動小数点型 (Double) 線の終点の x 座標です。 |
| ・ | yEnd | : | 倍精度浮動小数点型 (Double) 線の終点の y 座標です。 |
【シェイプシート Line Format セクションのセル インデックス】
CellsSRC プロパティの列インデックスとして指定できます
| ・ | visLineBeginArrow | : | [BeginArrow] セル ([Line Format] セクション)、始点の矢印の形を指定します |
| ・ | visLineColorTrans | : | [LineColorTrans] セル ([Line Format] セクション)、線の透明度を指定します |
| ・ | visLineColor | : | [LineColor] セル ([Line Format] セクション)、線の色を指定します |
| ・ | visLineEndArrowSize | : | [EndArrowSize] セル ([Line Format] セクション)、終点の矢印の大きさを指定します |
| ・ | visLineEndArrow | : | [EndArrow] セル ([Line Format] セクション)、終点の矢印の形を指定します |
| ・ | visLineEndCap | : | [LineCap] セル ([Line Format] セクション)、端と角の形を指定します |
| ・ | visLinePattern | : | [LinePattern] セル ([Line Format] セクション) 、線のパターンを指定します |
| ・ | visLineRounding | : | [Rounding] セル ([Line Format] セクション)、角の丸みを指定します |
| ・ | visLineWeight | : | [LineWeight] セル ([Line Format] セクション)、線の太さを指定します |
サンプルコード
Public Sub DrawLine_Example()
Dim myLine1 As Visio.Shape
Dim myLine2 As Visio.Shape
Dim myLine3 As Visio.Shape
'一本目の線を引き、Shape オブジェクトを取得
Set myLine1 = ThisDocument.Application.ActiveWindow.Page.DrawLine(2.165354, 7.283465, 8.464567, 7.283465)
'二本目の線を引き、Shape オブジェクトを取得
Set myLine2 = ThisDocument.Application.ActiveWindow.Page.DrawLine(4.92126, 4.330709, 4.92126, 8.267717)
'三本目の線を引き、Shape オブジェクトを取得
Set myLine3 = ThisDocument.Application.ActiveWindow.Page.DrawLine(2.362205, 5.314961, 5.11811, 9.055118)
'一本目の線の太さを変更
myLine1.CellsSRC(visSectionObject, visRowLine, visLineWeight).FormulaU = "4.08 pt"
'二本目のパターンを変更
myLine2.CellsSRC(visSectionObject, visRowLine, visLinePattern).FormulaU = "7"
'三本目の始点と終点の形を変更
myLine3.CellsSRC(visSectionObject, visRowLine, visLineBeginArrow).FormulaU = "5"
myLine3.CellsSRC(visSectionObject, visRowLine, visLineEndArrow).FormulaU = "5"
End Sub