【Excel VBA】順次流れ図描画マクロ▽ソースコード
A列の文字列を流れ図に挿入手動で位置移動 処理ボックスのサイズは、行幅、列幅で変えれます。 (その際は、再実行要)Option Explicit
Option Base 0
'
Public Sub 順次流れ図描画マクロ()
Const FCDLFTCL = 4 '流れ図左端桁番号
Const FCDTOPRW = 2 '流れ図上端行番号
Const FCDWIDCL = 2 '流れ図幅桁数 Const FCPHEIRW = 2 '流れ図高さ行数(処理)
Const FCTHEIRW = 1 '流れ図高さ行数(端子)
'
Const FCDSPCRW = 2 '流れ図間隔行数
'
'挿入テキスト文字格納セル
Const FCCMTCOL = 1 '桁番号
Const FCCMTROW = 2 '先頭行番号
'
'挿入テキストフォント
Const FCCFNTNA = "MS ゴシック"
Const FCCFNTSZ = 16
'
'線の太さ
Const FCDWLNWT = 1
'
Const FCDWLNCL = vbBlack '線色
Const FCDWFLCL = vbWhite '塗りつぶし色
0