すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 菱菊描画マクロ()     Const DCHRCXPS = 200　　　　　　    '菊の中心位置　X     Const DCHRCYPS = 180 　　　　　　　' Y     '     Const DCHRHLNG = 120　　　　　　   '花びらの長さ(長い方)     Const DCHRVLNG = 80 　　　　　　　 '花びらの長さ(短い方)     '     Const DCHRSRAD = 18                       '中央円の半径     '     Const DCHRLNWN = 2                       '描画線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim sngRnd As Single, sngAng(1) As Single     Dim intExp As Integer, intEyp As Integer     Dim intErd As Integer, intDps(11, 1) As Integer     '     '     lngCol = RGB(148, 0, 21