VBA 标签功能区在事件上激活

Question

我想根据激活的工作表启用自定义选项卡。所以我在工作簿级别有一个事件宏。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    tabActivate objRibbonDyn
End Sub

功能区先前在功能区加载过程中被声明为对象

我计划了以下过程来激活我的功能区选项卡，但 vba 给了我一个错误：变量..类型不兼容

Sub tabActivate(ByVal control As IRibbonControl)

Select Case ActiveSheet.Name

    “Sheet1” box
        objDynRibbon.ActivateTab (“Custom Tab2”)
    “Sheet2” box
        objDynRibbon.ActivateTab (“Custom Tab3”)
    “Graph1” box
        objRibbonDyn.ActivateTab ("OngTB0l")
        
End Select

End Sub

我尝试使用 Bing AI (GPT4) 获取解决方案，但其知识尚未达到人类水平:-)

感谢您提供解决方案或可能的解决方案。

真诚的

Answer 1

经过一晚上的反思，我觉得给程序传递参数是没有用的。

Sub tabActivate()

Select Case ActiveSheet.Name

     “Sheet1” box
         objDynRibbon.ActivateTab (“Custom Tab2”)
     “Sheet2” box
         objDynRibbon.ActivateTab (“Custom Tab3”)
     “Graph1” box
         objRibbonDyn.ActivateTab("OngTB0l")
        
End Select

End Sub

对 activatetab 有用的参数在案例出现时传递...