すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub ベジェ曲線による波線描画マクロ()    Const BZWAYAMA = 8 　　　　　　　　　　'山の数    Const BZWABZCN = BZWAYAMA * 6　　    'ベジェ曲線の点数    '    Const BZWALEFT = 120 　　　　　　　　　'描画開始位置（Ｘ）    Const BZWATOPP = 100　　　　　　         '　　　            (Ｙ）    Const BZWAWIDT = 200　　　　　　        '幅    Const BZWAHEIG = 40 　　　　　　 　　　'高さ    '    Const BZWAPITC = (BZWAWIDT / (BZWABZCN + 1))        'ピッチ    '    Const BZWALNCL = &HE22B8A               '線の色（青紫）    Const BZWALNWT = 1.5                        '線の太さ    '---------------------------------------------------------------------------    Dim Ip As Integer, sngArr(BZWABZCN, 1) As Single    '*ベジェ曲線データ作成   For Ip = 0 To BZWABZCN        sngArr(Ip,