すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 唐草文様描画マクロ()     Const ARACANLF = 80 　 　'キャンバス位置Ｘ     Const ARACANTP = 100　　'                     Ｙ     Const ARACANWD = 280　　'キャンバス幅     Const ARACANHT = 200　　'キャンバス高さ     '     Const ARABZMAG = 0.15     'ベジェ曲線倍率     '     Const ARABZLFT = 20　　'ベジェ曲線描画開始位置Ｘ     Const ARABZTOP = 25　　'　　　　　　　　　　　Ｙ     '     Const ARABZWID = 30      'ベジェ曲線描画幅     Const ARABZHEI = 25       'ベジェ曲線描画高さ     '     Const ARABROWS = 7　　'ベジェ曲線描画行     Const ARABCOLS = 9　　'ベジェ曲線描画桁     Const ARABZWEI = 3　　'ベジェ曲線描画太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer,