【Word VBA】丸く並べるハート描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 丸く並べるハート描画マクロ()
Const CIRCXPOS = 175 '円の中心位置 X
Const CIRCYPOS = 180 ' Y
Const CIRIRADI = 25 '内円の半径
Const HEARTCNT = 12 'ハートの数/一周
Const HEARTLAY = 5 'ハートの層
Const HEARTLSP = 15 'ハートの層間隔
Const HEARTWDP = 0.8 'ハートの幅/円周に対する比率
Const HEARTHEP = 0.75 'ハートの高さ/層間隔に対する比率
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intAng As Integer, dblPai As Double, dblRad As Double
Dim intXps As Integer, intYps As Integer
Dim intWid As Integer, intHei As Integer
Dim intRad As
0
