すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 矢絣文様描画マクロ()     Const ARKALEFT = 120　　　　　　'描画開始位置Ｘ     Const ARKATOPP = 100　　　　　　'　　　　　　Ｙ     Const ARKAAWID = 30 　　　　　　'矢幅     Const ARKAAHEI = ARKAAWID * 1.5 '矢羽長さ     Const ARKABWID = 2　　　　　　　'棒の太さ     Const ARKACOLS = 7　　　　　　　'横描画数     Const ARKAROWS = 4　　　　　　  '縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long, blnCol As Boolean     '     lngCol = RGB(186, 85, 211) '←描画色     For Jp = 0 To ARKAROWS - 1         intDyp = ARKATOPP + ARKAAHEI * Jp         For Ip = 0 To ARKACOLS - 1             intDx