すべてのカテゴリ

Option Explicit Option Base 0 Public Sub らせん描画マクロ()     Const HELILFT = 100　　　　　　         'らせん描画位置Ｘ     Const HELITOP = 100 　　　　　　　　 '                     Ｙ     Const HELIWID = 180                          'らせん幅     Const HELIHEI = 60                             'らせん高     Const HELIPIT = 15                             'らせんピッチ     Const HELICNT = 10                            'らせん巻き数     Const HELIWET = 1.5                          '描画線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, lngCl As Long     '     lngCl = RGB(165, 42, 42)                     '←描画線色     For Ip = 0 To HELICNT - 1         With ActiveDocument.Shapes.AddShape(mso