RibbonX-Workshop - Zusatzinformationen (Quickinfo)

In diesem Teil wollen wir lernen, wie wir zusätzliche Informationen anbringen können. Voraussetzung für die Anzeige der Featurebeschreibung ist, dass sie aktiviert ist.

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