すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 武田菱文様描画マクロ()     Const TKRHLEFT = 150 　　　'描画開始位置Ｘ     Const TKRHTOPP = 120 　　　'　　　　　　Ｙ     '     Const TKRHSMWD = 30 　　　'内側ひし形幅     Const TKRHHPAW = 0.6 　　　'ひし形　高さ/幅     Const TKRHSMGP = 3     Const TKRHMDWD = TKRHSMWD * 3　　'中間ひし形幅     Const TKRHOTWD = TKRHSMWD * 4　　'外側ひし形幅     '     Const TKRHMDWE = 4　　　　　'中間ひし形線の太さ     Const TKRHOTWE = 6　　　　　'外側ひし形線の太さ     '     Const TKRHROWS = 5　　　　　'縦描画数     Const TKRHCOLS = 2　　　　　'横描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Integer, intDyp As Int