すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 松皮菱文様描画マクロ()     Const PIBALEFT = 120　　'描画開始位置Ｘ     Const PIBATOPP = 100　　'　　　　　　Ｙ     '     Const PIBASIZE = 1# 　　 'ポリライン設定倍率     '     Const PIBACOLS = 3 　　  '横描画数     Const PIBAROWS = 5 　　 '縦描画数     '     Const PIBAWDSP = 24 　　'横方向間隔     Const PIBAHTSP = 4 　　   '縦方向間隔     '     Const PIBALNWE = 3 　　  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intCwd As Integer, intCht As Integer     Dim varPoly As Variant     Dim sngPBas() As Single, sngPDat() As Single     Dim sngLmt(3) As Single, lngCol As Lon