會員 | 自訂功能表 我有一巨集 自訂功能表余manu bar(一個按鈕) 關電腦或在別的電腦上會消失 有原因或應該怎設定?? 3q |
回覆 |
Take it easy~ | 新增的工具列或功能表項目,應該在關閉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 註1:新增一個"暫時"的功能表列取代原功能表列,Excel 關閉時會自動 刪除,下開開啟時會恢復原內建的功能表列。 註2:以ID參數指定內建的指令按鈕,也可以用下列方式指定 -- ID:=CommandBars("Edit").Controls("顯示的名稱").ID 例如: ID:=CommandBars("Edit").Controls("複製(&C)").ID (ID為19) ID:=CommandBars("Edit").Controls("貼上(&P)").ID (ID為22) 註3:可將此程式改放在Workbook_Open()。 以上程式僅供參考,可自行修改以符合需求。 |
回覆 |
會員 | 那沒辦法只好用commandbar了 謝你的回應 |
回覆 |
|
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。