すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub かもめ描画マクロ()     Const GULLCALF = 75　   'キャンバス位置Ｘ     Const GULLCATP = 50 　  '                    Ｙ     Const GULLCAWD = 360  'キャンバス幅     Const GULLCAHT = 240   'キャンバス高さ     Const GULLCABC = &HFF901E     '背景色     '     Const GULLBZM1 = 2      'ベジェ描画倍率1     Const GULLBZM2 = 3      'ベジェ描画倍率2     '     Const GULLROWS = 4     '描画数（縦）     Const GULLCOLS = 4      '描画数（横）     Const CULLCONT = GULLROWS * GULLCOLS     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     '     Dim shpCanv As Shape     Dim varBezi As Variant