2017-09-20 15 views
0

無論何時用戶打開特定文件,我都希望特定的菜單/按鈕出現在功能區中。那可能嗎 ?創建特定excel文件的菜單項

爲了清楚起見,當用戶打開「ABC.xlsx」時,我想要一個菜單​​/按鈕出現在頂部的功能區中,在用戶關閉文件之前該功能區應該是可見的。

我看到了選項來創建自定義右鍵單擊菜單。我正在尋找標準菜單中的選項。

+1

請檢查該https://msdn.microsoft.com/en-us/library/office/ee767705(v=office.14).aspx – Maddy

+0

@Maddy ......不幸的是這不適用於excel。 –

+0

請檢查我的答案 – Maddy

回答

0

試試這個

Private Sub Workbook_Open() 
    On Error Resume Next 
    Dim MenuBar As CommandBar 
    Dim NewMenu As CommandBarPopup 
    Dim NewSubMenu As CommandBarPopup 
    Dim NewMenuItem As CommandBarButton 
    ' Create new item on Worksheet Menu Bar 
    Set MenuBar = Application.CommandBars("Worksheet Menu Bar") 
    Set NewMenu = MenuBar.Controls.Add(Type:=msoControlPopup) 
    NewMenu.Caption = "new menu" 

    Set NewMenuItem = NewMenu.Controls.Add(Type:=msoControlButton) 
    With NewMenuItem 
    .Caption = "My Menu" ' Menu name 
    .FaceId = 9 
    .OnAction = "Module1.Mymacro" ' call macro here 
    End With 

    End Sub