Mittels RibbonX Zellfarbe ändern
12.08.2024 16:27:41
David
ich möchte mittels eigener erstellter Icons mit Ribbon X die Zellfarben einzelner Zellen ändern. Dafür hab ich mir mit Ribbon X eine neue Gruppe (Füllfarben) in den Tab Start eingefügt. Die entsprechenden Farben werden auch angezeigt in Tab Start. Allerdings besteht mein Problem darin, dass ich die Icons nicht mit einem Makro verbinden kann. Wo liegt mein Fehler?
In RibbonX hab ich die Farben wie folgt definiert:
customUI xmlns=http://schemas.microsoft.com/office/2009/07/customui
ribbon
tabs
tab idMso="TabHome"
group id="owncolors" label="Füllfarben" insertBeforeQ="Format"
button id="Button1" size="normal" image="light_blue" onAction="Fuellfarbe_l_blue"
button id="Button2" size="normal" image="blue" onAction="Fuellfarbe_blue"
button id="Button3" size="normal" image="dark_blue" onAction="Fuellfarbe_d_blue"
button id="Button4" size="normal" image="light_green" onAction="Fuellfarbe_l_green"
button id="Button5" size="normal" image="green" onAction="Fuellfarbe_green"
button id="Button6" size="normal" image="dark_green" onAction="Fuellfarbe_d_green"
group
tab
tabs
ribbon
Mein Makro im Excel sieht wie folgt aus:
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
'Farben neu-----------------------------------------------------------------------------------------------------------------------------------------------------
Sub Fuellfarbe_l_blue(control As IRibbonControl) ' hellblau
Selection.Interior.ColorIndex = 37
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Fuellfarbe_blue(control As IRibbonControl) ' blau
Selection.Interior.ColorIndex = 5
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Fuellfarbe_d_blue(control As IRibbonControl) ' dunkel blau
Selection.Interior.ColorIndex = 11
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Fuellfarbe_l_green(control As IRibbonControl) ' hellgrün
Selection.Interior.ColorIndex = 35
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Fuellfarbe_green(control As IRibbonControl) ' grün
Selection.Interior.ColorIndex = 4
End Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Fuellfarbe_d_green(control As IRibbonControl) ' dunkelgrün
Selection.Interior.ColorIndex = 51
End Sub
Besten Dank
Gruss David
Anzeige
