すべてのブログから「#組亀甲文様描画」タグの検索結果

Option Explicit Option Base 0 Public Sub 組亀甲文様描画マクロ()     Const SHELLEFT = 150　　　　　　　            '描画開始位置Ｘ     Const SHELTOPP = 120 　　　　　　　　　　  '                  Ｙ     Const SHELWIDT = 25                                  '台形(〔〕の一つ)幅    Const SHELHEIG = 5 　　　　　　　　　　　  '台形(〔〕の一つ)高さ     Const SHELCOLS = 8                                    '横描画数     Const SHELROWS = 4                                   '縦描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intDan As Integer, lngCol As Long     '     lngCol = RGB(255,