|
▼漂流民 さん:
おはようございます。
下記のコードで正常に『Test』メニューが表示され、又、リセットも
正常に出来ました。
>Sub test2()
> Dim i As Long
>
> With Application
> For i = 1 To .CommandBars.Count
> With .CommandBars(i)
> If .Name = "Cell" Then
> With .Controls.Add
> .Caption = "Test(&T)"
> End With
> End If
> End With
> Next i
> End With
>End Sub
>
>Sub test2r()
> Dim i As Long
>
> With Application
> For i = 1 To .CommandBars.Count
> With .CommandBars(i)
> If .Name = "Cell" Then
> .Reset
> End If
> End With
> Next i
> End With
>End Sub
上記をどのように、Worksheet_BeforeRightClickイベントへ組み込めば、
良いのでしょうか?
For〜Nextステートメントで、CommandBars.Count(コマンドバーの数?)
If .Name = "Cell" Then(コマンドバーの数の名前がCellであれば・・・ですよね?)
初心者なためコードの意味がいまいち呑み込めません。
宜しければ、ご教授をよろしくお願いします。
|
|