すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 鍵盤描画マクロ()     Const KEYBOLFT = 120　　　　      '鍵盤描画開始位置　X     Const KEYBOTOP = 100 　　　　 　'                     　　Y     Const KEYWHWID = 35                  '白鍵の幅     Const KEYWHHEI = 100                 '白鍵の高さ     Const KEYBLHEI = 60                    '黒鍵の高さ     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim intXp As Integer, intWd As Integer     Dim varName(0 To 7 + 5 - 1) As Variant     '     '*白鍵描画     For Ip = 1 To 7         intXp = KEYBOLFT + KEYWHWID * (Ip - 1)         With ActiveDocument.Shapes.AddShape(msoShapeRectangle, _              intXp, KEYBOTOP, KEYWHWID, KEYWHHEI)             .