すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 放射状文字列描画マクロ()     Const RDSTPAIV = 3.141592653589　　　     'π     Const RDSTCXPS = 200　　　　　　　　　　   '円の中心位置　X     Const RDSTCYPS = 150 　　　　　　　　　　　' 　　　 　　　Y     Const RDSTRADI = 80　　　　　　　　　　　   '円の半径     '                                  ※円の中心位置は、    '                                     文字列の長さ、大きさによって若干ズレます。　 '　    Const RDSTCONT = 12 　　　　　　　　　　'放射状の文字列の数     '     Const RDSTSTRI = "令和六年霜月"　　　　　　'文字列　　    Const RDSTFNTN = "メイリオ"　　　　　　     'フォント名     Const RDSTFNTS = 16 　　　　　　　　　　　'フォントサイズ     '---------------------------------------------------------------------------     Dim Ip As Integer, intDxp As Integer, intDyp As Integer     Dim sngRad As Singl