AW: control As IRibbonControl die zweite / wechselnde
21.12.2008 16:50:18
mumpel
Hallo!
Kein Problem.
Zuerst den RibbonX-Code:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="onload">
<ribbon startFromScratch="false">
<tabs>
<tab id="tb1" label="Tabelle1" getVisible="getVisible_Tabelle1" >
<group id="gp1" label="gruppe1" >
<button id="bt1" label="Custom Button" imageMso="HappyFace" size="large" onAction="Callback"
/></group></tab>
<tab id="tb2" label="Tabelle2" getVisible="getVisible_Tabelle2" >
<group id="gp2" label="gruppe1" >
<button id="bt2" label="Custom Button" imageMso="HappyFace" size="large" onAction="Callback"
/></group></tab>
<tab id="tb3" label="Tabelle3" getVisible="getVisible_Tabelle3" >
<group id="gp3" label="gruppe1" >
<button id="bt3" label="Custom Button" imageMso="HappyFace" size="large" onAction="Callback"
/></group></tab>
</tabs></ribbon></customUI>
Code eingefügt mit VBA in HTML 2.0size>
Dieses Makro in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not objRibbon Is Nothing Then objRibbon.Invalidate
End Sub
In ein allgemeines Modul
Option Explicit
Public objRibbon As IRibbonUI
Public Sub onload(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Sub getVisible_Tabelle1(control As IRibbonControl, ByRef visible)
If ActiveSheet.Name = "Tabelle1" Then visible = True
End Sub
Sub getVisible_Tabelle2(control As IRibbonControl, ByRef visible)
If ActiveSheet.Name = "Tabelle2" Then visible = True
End Sub
Sub getVisible_Tabelle3(control As IRibbonControl, ByRef visible)
If ActiveSheet.Name = "Tabelle3" Then visible = True
End Sub
Code eingefügt mit VBA in HTML 2.0size>
Gruß, René