すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub らせん模様描画マクロ()     Const SPIRPAIV = 3.141592     Const SPIRRADI = (SPIRPAIV / 180)     '     Const SPIRLEFT = 80                   '描画開始位置Ｘ     Const SPIRTOPP = 90          　     '　　　　　　Ｙ     '     Const SPIRVPIT = 50 　　　　　　'横-間隔     Const SPIRHPIT = 55　　　         '縦-間隔     Const SPIRCOLS = 5 　　　　　　'横/描画数     Const SPIRROWS = 4 　　　　　  '縦/描画数     '     Const SPIRRDUS = 15 　　　　　'らせん半径     Const SPIRPICH = 10　　　        'らせんピッチ     Const SPIRCONT = 360 　　　　 '描画点数     Const SPIRDANG = 5                 '角度間隔     '     Const SPIRTRNX = 45 * SPIRRADI       '三次元描画角度     Const SPIRTRNY = -30 * SPIRRADI     Const SPIRTRNZ = 0     Const SPIRLNWE = 1