下面是VBA里做的，怎么做成COM加載項。放在IDTExtensibility2_OnConnection里面可以生成右鍵選單（在VB里做的時候xlApp都加了），但是單擊無法調出UserForm1，不知道問題出在哪里。
Sub Auto_open()
On Error Resume Next
CommandBars("CELL").Controls("relate").Delete
With CommandBars("cell").Controls.Add(before:=5, Temporary:=True) '添加到第5個位置
.Caption = "relate"
.BeginGroup = True '添加分組線
.FaceId = 263 '顯示的圖示
.Style = msoButtonIconAndCaption '圖示和文字的顯示
.OnAction = "relate" '指定要運行的宏
End With
End Sub
Sub relate()
UserForm1.Show
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/102526.html
標籤：VBA
下一篇：公式求救