手順1:コード

参考: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 アイコンの下に区切り線が表示されます。