参考:http://officetanaka.net/excel/vba/tips/tips02.htm
※太字から読んでください。
では、今回はこのようなメニューを作りたいと思います。
まあもちろん、コピペメニューです。
でも、いきなりは作りません。いや、ここでは作りませんw(本当w)
ただ、この最後にはお遊びブック・・・
いや、ミニ応用編?を紹介します。
本題に戻ります。
以下のコードはユーザフォームにコマンドボタンを追加した状態です。
ボタンをクリックすることによってメニューが出るしくみです。
Dim myBar As Variant
Private Sub CommandButton1_Click()
myBar.ShowPopup
End Sub
Private Sub UserForm_Initialize() Dim i As Long For i = 1 To 5 Next i Set myBar = CommandBars.Add(Position:=msoBarPopup, Temporary:=True) With myBar With .Controls.Add .Caption = "コピー" .FaceId = 59 End With With .Controls.Add .Caption = "貼り付け" .FaceId = 59 End With With .Controls.Add .Caption = "切り取り" .FaceId = 59 End With With .Controls.Add .Caption = "テスト" .FaceId = 59 End With End With End Sub
名前 | 効果・アクション |
.Faceid | アイコン。アイコンの番号、イメージについてはこちら |
.OnAction | 標準モジュールのコードが実行される。 |
.Caption | 関連付ける名前。「貼り付け」「コピー」等の名前。 |
.Style | アイコンの背景が変わります。 |
.BeginGroup | アイコンの下に区切り線が表示されます。 |