すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 瓢箪模様描画マクロ()     Const GOURLEFT = 100 　　　　'描画開始位置Ｘ     Const GOURTOPP = 100　　　   '　　　　　　Ｙ     '     Const GOURSWID = 35　　       '描画幅     Const GOURSHEI = 45　　        '描画高さ     '     Const GOURMAGI = 0.1 　　　　'ベジェ描画倍率     Const GOURCOLS = 7 　　　　　'横/描画数     Const GOURROWS = 4 　　　　 '縦/描画数     '     Const GOURLNWE = 1              '線の太さ     Const GOURSANG = 30             '図の傾き     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol(1) As Long     Dim intDxp As Integer, intDyp As Integer     Dim sngBas(18, 1) As Single, varBez As Variant     Dim sngDat(18, 1) As