すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 菊の紋章描画マクロ()     Const CHRYCXPS = 200                     '菊の中心位置　X     Const CHRYCYPS = 180                     '                     Y     Const CHRYCONT = 12                      '花びらの数     Const CHRYSRAD = 20                      '菊の中心円半径     Const CHRYLRAD = 80                      '菊の花びら長さ    '     Const CHRYLNWE = 2 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer, dblRd As Double     Dim intXp(2) As Integer, intYp(2) As Integer     Dim lngLCl As Long, intFrd As Integer     '     lngLCl = vbBlack　　　　　　　　　     '←線色     '*中心の小丸描画     With ActiveDocument.Shapes.