線の種類・太さ・色を設定する方法

今回は図形の枠線を太くしたい、点線にしたい、色を変えたいなどなどの方法をご紹介していきます。

線の種類を設定する方法

線の種類について

線の種類は図形を右クリックすると出てくる「図形の書式設定」で、実線/点線と書いてあるプルダウンをクリックすると設定できる種類や番号が分かります。

構文

Visio VBAで図形の線の種類を変更する構文はこちら。

Cells(“LinePattern”) = 線の種類No.

Sample

選択中の図形の線種を変えるさせるサンプルです。
何かしら図形を描いて選択しておいてください。

コード

Sub test1()

    '線の種類を点線に変えます。
    ActiveWindow.Selection(1).Cells("LinePattern") = "2"

End Sub

実行結果

線が点線に変わったと思います。
四角の枠線も同じように点線に変えることができます。

線の色を変える方法

構文

図形の線の色をカラーインデックスで設定する構文はこちら。

Cells(“LineColor”) = カラーインデックス
※カラーインデックスは（インデックスとして指定してある）数字

図形の線の色をRGBで設定する構文はこちら。

Cells(“LineColor”) .Formula = “RGB(Rの値,Gの値,Bの値)”
※RGBの値は0～255で指定

コード

Sub test1()

    '線の色を赤に変えます。
    ActiveWindow.Selection(1).Cells("LineColor").Formula = "RGB(255,0,0)"

End Sub

または

Sub test1()

    '線の色を赤に変えます。
    ActiveWindow.Selection(1).Cells("LineColor") = 2

End Sub

実行結果

四角形の色が赤色に変わったと思います。

カラーインデックスやRGBカラーについては↓↓↓もぜひ参照ください。

カラーインデックスとは？RGBカラーとは？

Visio VBAで図形や文字の色を指定する時などに使うカラーインデックスやRGBカラー。普段使うこともないのでカラーインデックス？なにそれ？という方も多いと思うので、何ぞやというところからゆっくり説明していきます。

yurukurage.net

2023.10.14

枠線の太さを変える方法

構文

図形の線の太さを設定する構文はこちら。

Cells(“LineWeight”) = 太さ
※太さの単位はインチ

コード

Sub test2()

    '枠線の太さを変えます。
    ActiveWindow.Selection.Cells("LineWeight") = 0.1

End Sub

線の太さを0.1インチに変えます。

実行結果

四角形の色が赤に変わったと思います。

図形の名前をチェックして色を変えてみた

準備

例えばこんな図形があったとしましょう。
四角形10個で、名前がShikaku0～Shikaku9。

コード

Sub test11()
Dim Namae As String

    '図形の数を数え、その回数繰り返す
    For i = 1 To ActiveWindow.Page.Shapes.Count

        '名前を取得
        Namae = ActiveWindow.Page.Shapes(i).Name

        '名前がShikakuで、付いている数字が偶数なら赤くする
        If (Left(Namae, 7) = "Shikaku" And Right(Namae, 1) Mod 2 = 0) Then
    
             ActiveWindow.Page.Shapes.Item(Namae).Cells("FillForegnd").Formula = "RGB(255,0,0)"
        
        End If
    
    Next
    
End Sub

For i = 1 To ActiveWindow.Page.Shapes.Count
Namae = ActiveWindow.Page.Shapes(i).Name

全ての図形の名前を取得してNamaeという変数に入れます。
Countはシェイプの全体数を表しています。

If (Left(Namae, 7) = “Shikaku” And Right(Namae, 1) Mod 2 = 0) Then
その名前の左から7文字が「Shikaku」であり、右から1文字も偶数の数字が付いているかをチェック

実行結果

こんな感じで四角が1個おきに赤くなったのではないでしょうか。