gpt4 book ai didi

excel - 如何以编程方式将工具栏按钮(和 OnClick 处理程序)添加到 Excel

转载 作者:行者123 更新时间:2023-12-02 14:00:58 24 4
gpt4 key购买 nike

如何以编程方式将工具栏(其上带有按钮)添加到 Excel(2002 年或之后)?

单击按钮时,我想要一个处理程序来创建我的 COM对象并调用它的方法?

最佳答案

这是一些应该在 但不包括 Excel 2007 版本上运行的基础,它具有完全不同的界面。

这位于您的 ThisWorkbook 模块中:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteCommandBar
End Sub
Private Sub Workbook_Open()
ShowToolbar
End Sub

这可以放在同一个模块中,也可以放在单独的模块中,您可以选择,尽管我更喜欢将它放在自己的模块中,这样可以更明显。您不需要 OnClick,当您创建按钮时,按钮会被告知要调用哪个例程。

Private Const TOOLBARNAME = "MyFunkyNewToolbar"

Public Sub ShowToolbar()
' Assumes toolbar not already loaded '
Application.CommandBars.Add TOOLBARNAME
AddButton "Button caption", "This is a tooltip", 526, "NameOfASubInYourVBACode"
' call AddButton more times for more buttons '
With Application.CommandBars(TOOLBARNAME)
.Visible = True
.Position = msoBarTop
End With
End Sub

Private Sub AddButton(caption As String, tooltip As String, faceId as Long, methodName As String)
Dim Btn As CommandBarButton
Set Btn = Application.CommandBars(TOOLBARNAME).Controls.Add
With Btn
.Style = msoButtonIcon
.FaceId = faceId ' choose from a world of possible images in Excel: see http://www.ozgrid.com/forum/showthread.php?t=39992 '
.OnAction = methodName
.TooltipText = tooltip
End With
End Sub

Public Sub DeleteCommandBar()
Application.CommandBars(TOOLBARNAME).Delete
End Sub

关于excel - 如何以编程方式将工具栏按钮(和 OnClick 处理程序)添加到 Excel,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/593117/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com