RibbonX-Workshop - Zusatzinformationen (Quickinfo)
So aktivieren Sie die Featurebeschreibung
Officebutton->Excel-Optionen->Häufig verwendet. Hier bei "Quickinfo-Format" wählen Sie "Featurebeschreibungen in Quickinfo anzeigen".
Der untere Teil der Quickinfo ist standard und kann nicht geändert werden.
Es gibt zwei Attribute für die Featurebeschreibung.
Mit Hilfe der Attribute "screentip" und "supertip" können Sie zusätzliche Informationen als Hinweise anbringen. Der "screentip" enthält eine Kurzinformation und sollte nicht zu lang sein. Der "supertip" enthält weitere Informationen und darf etwas länger sein. Beachten Sie jedoch, dass die Tipps nur ein paar Sekunden angezeigt werden. Bringen Sie daher nur soviele Informationen unter wie unbedingt erforderlich.
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="onLoad_X1">
<ribbon>
<tabs>
<tab id="tab0" label="User">
<group id="grp0" label="User-Group">
<button id="btn0" label="Plus 1" imageMso="_1" size="large" onAction="onAction_Button1"
screentip="Zellwert um 1 erhöhen" supertip="Hiermit erhöhen Sie den Zellwert um den Wert 1" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
Kommen wir zu "getScreentip" und "getSupertip". Damit ist es z.B. möglich, die Tipps mit VBA zu bestimmen. Es kann immer nur eines der Attribute verwendet werden. "screnntip" und "getScreentip" bzw. "supertip" und "getSupertip" dürfen nicht jeweils gleichzeitig verwendet werden.
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="onLoad_X1">
<ribbon>
<tabs>
<tab id="tab0" label="User">
<group id="grp0" label="User-Group">
<button id="btn0" label="Plus 1" imageMso="_1" size="large" onAction="onAction_Button1"
getScreentip="getScreentip_Button1" getSupertip="getSupertip_Button1" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
Option Private Module
Option Explicit
Public objRibbon As IRibbonUI
Public Sub onLoad_X1(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Public Sub onAction_Button1(control As IRibbonControl)
MsgBox "Button " & control.ID & " gedrückt", 64, "Hinweis"
End Sub
Public Sub getScreentip_Button1(control As IRibbonControl, ByRef text)
If ThisWorkbook.Sheets("Tabelle4").Range("G8").Value = "Ja" Then
text = "Gültig"
Else
text = "Ungültig"
End If
End Sub
Public Sub getSupertip_Button1(control As IRibbonControl, ByRef text)
If ThisWorkbook.Sheets("Tabelle4").Range("G8").Value = "Ja" Then
text = "Der Text in Zelle ist gültig"
Else
text = "Der Text in Zelle ist nicht gültig"
End If
End Sub