すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 分銅文様描画マクロ()     Const WEIGLEFT = 100                '描画開始位置Ｘ     Const WEIGTOPP = 90                 '　　　　　　Ｙ     Const WEIGLRAD = 30                 'サイズ     '     Const WEIGROWS = 5                 '描画数(縦)     Const WEIGCOLS = 12                '描画数(横)     '     Const WEIGLNWE = 2                 '描画線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As Integer     '     lngCol = RGB(0, 139, 139)           '←線色     For Jp = 0 To WEIGROWS - 1         For Ip = 0 To WEIGCOLS - 1             intCyp = WEIGTOPP + (