すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub リチュース螺旋描画マクロ()    Const LITUPAIV = 3.141592653589 　　　　'π    Const LITURADI = LITUPAIV / 180 　　　　  'π/180    Const LITUCXPT = 180                               '描画開始位置    Const LITUCYPT = 170    '    Const LITUEANG = 360 * 3                         '終点角度(°)    Const LITUAVAL = 75                                 '係数Ａ（size）    Const LITULNCL = &H578B2E                     '線の色    Const LITULNWT = 1.5                               '線の太さ    '---------------------------------------------------------------------------    Dim Ip As Integer, Jp As Integer    Dim sngTmp(LITUEANG, 1) As Single    Dim sngPol(LITUEANG, 1) As Single    Dim sngSit As Single, s