自訂功能表

[小高]

我有一巨集
自訂功能表余manu bar(一個按鈕)
關電腦或在別的電腦上會消失
有原因或應該怎設定??
3q

[leonchou]

新增的工具列或功能表項目，應該在關閉Excel時
會儲存到目前使用者的 .xlb 檔裡面。
這個檔通常在 Windows 目錄下(2000和XP可能在
個人目錄"documents and settings"下，我不確定)
要到其他電腦使用時，就將此檔複製到該電腦中。

或者，可試著寫個巨集放在"個人巨集檔(personal.xls)"中，
使開啟Excel時自動建一個Menu Item --
Excel97 (含) 以上版本的使用者，可以用 CommandBar 物件來取代
MenuBar 物件，以達到更彈性化的控制。

Sub OpenMyMenu( )
With CommandBars.Add("MyMenu", MenuBar:=True, temporary:=True) '註1
.Visible = True
With .Controls.Add(Type:=msoControlPopup) '新增一個下拉式功能表
.Caption = "Popup1" '下拉式功能表顯示的名稱
.Controls.Add Type:=msoControlButton, ID:=19 '「複製」按鈕，註2
.Controls.Add Type:=msoControlButton, ID:=22 '「貼上」按鈕
End With
End With
End Sub

註１：新增一個"暫時"的功能表列取代原功能表列，Excel 關閉時會自動
　　　刪除，下開開啟時會恢復原內建的功能表列。
註２：以ＩＤ參數指定內建的指令按鈕，也可以用下列方式指定 --
　　　ID:=CommandBars("Edit").Controls("顯示的名稱").ID　例如：
　　　ID:=CommandBars("Edit").Controls("複製(&C)").ID　(ID為19)
　　　ID:=CommandBars("Edit").Controls("貼上(&P)").ID　(ID為22)
註３：可將此程式改放在Workbook_Open()。

以上程式僅供參考，可自行修改以符合需求。

[小高]

那沒辦法只好用commandbar了
謝你的回應