VBA 自定义Add-in

chunyu.wu

已于 2023-01-25 17:06:29 修改

阅读量1.7k

点赞数

分类专栏： VBA 文章标签： VBA

于 2023-01-24 12:54:28 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/104903315

版权

VBA 专栏收录该内容

61 篇文章 3 订阅

订阅专栏

1. 通过下面的链接下载工具：OfficeCustomUIEditorFiles

VBA Ribbon - Microsoft Download

2.将上面下载的ZIP文件解压缩后，运行其中的 “CustomUIEditor.exe”，
打开事先准备好的.xlsm文件，例如：self.xlsm。

2-1.点击“Insert”，选择“Office 2007 Custom UI Part”，生成“customUI.xml”。

2-2.点击“Insert”，选择“Sample XML”下的“Custom Tab”。

2-3.点击对号图标的“Validate”按钮，检查修改的XML文件是否正确。

例如：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
	<ribbon startFromScratch="false">
		<tabs>
			<tab id="ToolBox" label="ToolBox" insertBeforeMso="TabHome">
				<group id="Group1" label="Group1">
					<button id="btnSave" label="A1" imageMso="MsoSave" onAction="sbSave" />
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

2-4.保存后退出。

3.打开self.xlsm文件，新建标准模块，插入回调函数。
例如：

'Callback for btnSave onAction
Sub sbSave(control As IRibbonControl)
    Dim sFirstSheetName As String
    Dim bFirstSheetFlg As Boolean
    Dim ws As Worksheet
    
    
    bFirstSheetFlg = False
    For Each ws In ActiveWorkbook.Worksheets
        If bFirstSheetFlg = False And ws.Visible = True Then
            sFirstSheetName = ws.Name
            bFirstSheetFlg = True
        End If
        
        If ws.Visible = xlSheetVisible Then
            ws.Activate
            ActiveSheet.Range("A1").Select
        End If
    Next
    
    Sheets(sFirstSheetName).Select
    ActiveWorkbook.Save
End Sub

4.将“self.xlsm”另存为扩展名为“.xlam”到
默认Add-in路径“C:\Users\用户名\AppData\Roaming\Microsoft\AddIns”下，
选择“开发”TAB，再选择“Excel Add-In”，勾选Self，“ToolBox”TAB被显示出来，就可以使用啦。
如下图：