すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 扇子描画マクロ()     Const FFANCXP = 230 　　　　'扇子要位置     Const FFANCYP = 210     Const FFANHRD = 150　　　    '扇子外径     Const FFANLRD = 50 　　　　  '扇子内径     Const FFANBWD = 2                '扇子骨幅     '     Const FFANHVS = 6                 '扇外側谷の差     Const FFANLVS = 3                 '扇内側谷の差     '     Const FFANOCN = 16              '扇の枚数 ×２     Const FFANOAN = 100            '開いた角度     '     Const FFANERV = 0.8             '端の骨の位置補正     Const FFANESZ = 2.8             '端の骨の長さ補正     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim lngCol(3) As Long     Dim sngPly(4, 1)