Microsoft ExcelでVBAを使用して、メニュー項目の可用性を変更

投稿日: 2020年10月22日 2020年11月12日
タグ: menus-toolbars-status-bar-in-vba

以下のマクロは、メニュー項目の可用性状態を切り替える方法を示しています。

Sub ToggleMenuControls()

Dim m As CommandBarControl, mi As CommandBarControl

Set m = CommandBars.FindControl(ID:=30002) ' File Menu

If m Is Nothing Then Exit Sub

For Each mi In m.Controls

If mi.ID = 18 Then mi.Enabled = Not mi.Enabled

' toggles the state for the Print menu

Next mi

Set mi = Nothing

Set m = Nothing

End Sub