小高
2003-09-09, 07:59 PM
我有一巨集
自訂功能表余manu bar(一個按鈕)
關電腦或在別的電腦上會消失
有原因或應該怎設定??
3q
贊助商連結
自訂功能表余manu bar(一個按鈕)
關電腦或在別的電腦上會消失
有原因或應該怎設定??
3q
贊助商連結
贊助商連結 小高 2003-09-09, 07:59 PM 我有一巨集 自訂功能表余manu bar(一個按鈕) 關電腦或在別的電腦上會消失 有原因或應該怎設定?? 3q 贊助商連結 leonchou 2003-09-10, 01:55 AM 新增的工具列或功能表項目,應該在關閉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()。 以上程式僅供參考,可自行修改以符合需求。 小高 2003-09-10, 02:10 AM 那沒辦法只好用commandbar了 謝你的回應 |
|