{"id":55000314,"date":"2022-04-01T00:00:00","date_gmt":"2023-03-02T17:05:46","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=314"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"RibbonSignaturen_fuer_VBA_VB6_und_twinBASIC","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/RibbonSignaturen_fuer_VBA_VB6_und_twinBASIC\/","title":{"rendered":"Ribbon-Signaturen f&uuml;r VBA, VB6 und twinBASIC"},"content":{"rendered":"<p><b>Wer Anwendungen programmiert, die das Ribbon anpassen, m&ouml;chte die benutzerdefinierten Ribbon-Steuerelemente auch mit entsprechenden Callback-Prozeduren ausstatten. Dieser Artikel liefert eine Zusammenfassung der Ribbon-Signaturen f&uuml;r die Callback-Funktionen unter VBA und Visual Basic 6 beziehungsweise twinBASIC. Die VBA-Signaturen nutzen wir, wenn wir Ribbon-Erweiterungen direkt zu den mit den Office-Anwendungen erstellten Ribbonanpassungen hinzuf&uuml;gen wollen. Erstellen wir hingegen COM-Add-Ins mit VB6 oder twinBASIC, nutzen wir die alternativen Signaturen.<\/b><\/p>\n<h2>Wichtige Informationen<\/h2>\n<p>Vorab die wichtigste Information: Verwenden Sie alle Callback-Signaturen genau so wie Sie hier abgebildet sind. Manchmal kann bereits das Hinzuf&uuml;gen eines Datentyps zu einem Parameter, der hier keinen Datentyp aufweist, zu Problemen f&uuml;hren. Wichtig ist auch, auf die korrekte Verwendung von <b>Function<\/b>\/<b>Sub <\/b>zu achten. Wenn Sie twinBASIC verwenden, k&ouml;nnen Sie das Ergebnis zum Zur&uuml;ckgeben entweder einer Variablen mit dem gleichen Namen wie die Funktion zuweisen, oder auch die <b>Return<\/b>-Anweisung nutzen. Die erste M&ouml;glichkeit lautet also:<\/p>\n<pre><span style=\"color: blue;\">Function <\/span>GetText(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef text) _\r\n        <span style=\"color: blue;\"> As String<\/span>\r\n     ...\r\n     GetText = strText\r\n<span style=\"color: blue;\">End Function<\/span><\/pre>\n<p>Die Alternative ist:<\/p>\n<pre><span style=\"color: blue;\">Function <\/span>GetText(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef text) _\r\n        <span style=\"color: blue;\"> As String<\/span>\r\n     ...\r\n     Return strText\r\n<span style=\"color: blue;\">End Function<\/span><\/pre>\n<h2>Hinweis zu den onAction-Alternativen<\/h2>\n<p>F&uuml;r das <b>button<\/b>&#8211; und das <b>toggleButton<\/b>-Element gibt es je zwei Definitionen f&uuml;r die <b>onAction<\/b>-Prozeduren. Du kannst mit dem <b>command<\/b>-Element die Funktion eingebauter Elemente, darunter auch <b>button<\/b>&#8211; und <b>toggleButton<\/b>-Elemente, &uuml;berschreiben beziehungsweise erg&auml;nzen.<br \/>\nWenn Du f&uuml;r diese eine <b>onAction<\/b>-Prozedur hinterlegen m&ouml;chtest, musst Du die Version in der folgenden Liste verwenden, hinter der in Klammern command steht. Diese Signaturen enthalten noch einen zus&auml;tzlichen Parameter, mit dem Du festlegen kannst, ob die eigentliche Funktion des Steuerelements noch ausgef&uuml;hrt werden soll.<\/p>\n<h2>Liste der Callback-Signaturen f&uuml;r VBA und Visual Basic 6<\/h2>\n<h3><b>Button-Element<\/b><\/h3>\n<p><b>getShowImage<\/b>:<\/p>\n<pre>VBA: Sub GetShowImage (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef showImage)\r\nVB6: Function GetShowImage (control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Boolean<\/span><\/pre>\n<p><b>getShowLabel:<\/b><\/p>\n<pre>VBA: Sub GetShowLabel (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef showLabel)\r\nVB6: Function GetShowLabel (control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Boolean<\/span><\/pre>\n<p><b>onAction<\/b>:<\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<\/pre>\n<p><b>onAction (command):<\/b><\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef CancelDefault)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef CancelDefault)\r\n<\/pre>\n<h3>checkBox<\/h3>\n<p><b>getPressed<\/b>:<\/p>\n<pre>VBA: Sub GetPressed(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef returnValue)\r\nVB6: Function GetPressed(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Boolean<\/span><\/pre>\n<p><b>onAction<\/b>:<\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, pressed<span style=\"color: blue;\"> As Boolean<\/span>)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, pressed<span style=\"color: blue;\"> As Boolean<\/span>)<\/pre>\n<h3>comboBox<\/h3>\n<p><b>getItemCount:<\/b><\/p>\n<pre>VBA: Sub GetItemCount(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef count)\r\nVB6: Function GetItemCount(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getItemID<\/b>:<\/p>\n<pre>VBA: Sub GetItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef id)\r\nVB6: Function GetItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemImage:<\/b><\/p>\n<pre>VBA: Sub GetItemImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef image)\r\nVB6: Function GetItemImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As <\/span>IPictureDisp\r\n<\/pre>\n<p><b>getItemLabel:<\/b><\/p>\n<pre>VBA: Sub GetItemLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef label)\r\nVB6: Function GetItemLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemScreentip:<\/b><\/p>\n<pre>VBA: Sub GetItemScreenTip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef screentip)\r\nVB6: Function GetItemScreentip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemSuperTip:<\/b><\/p>\n<pre>VBA: Sub GetItemSuperTip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef supertip)\r\nVB6: Function GetItemSuperTip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getText<\/b>:<\/p>\n<pre>VBA: Sub GetText(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef text)\r\nVB6: Function GetText(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>onChange:<\/b><\/p>\n<pre>VBA: Sub OnChange(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, text<span style=\"color: blue;\"> As String<\/span>)\r\nVB6: Sub OnChange(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, text<span style=\"color: blue;\"> As String<\/span>)<\/pre>\n<h3>customUI<\/h3>\n<p><b>loadImage<\/b>:<\/p>\n<pre>VBA: Sub LoadImage(imageId<span style=\"color: blue;\"> As <\/span>string, ByRef image)\r\nVB6: Function LoadImage(imageId<span style=\"color: blue;\"> As String<\/span>)<span style=\"color: blue;\"> As <\/span>IPictureDisp<\/pre>\n<p><b>onLoad<\/b>:<\/p>\n<pre>VBA: Sub OnLoad(ribbon<span style=\"color: blue;\"> As <\/span>IRibbonUI)\r\nVB6: Function OnLoad(ribbon<span style=\"color: blue;\"> As <\/span>IRibbonUI)<\/pre>\n<h3>dropDown<\/h3>\n<p><b>getItemCount<\/b><\/p>\n<pre>VBA: Sub GetItemCount(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef count)\r\nVB6: Function GetItemCount(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getItemID<\/b>:<\/p>\n<pre>VBA: Sub GetItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef id)\r\nVB6: Function GetItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemImage:<\/b><\/p>\n<pre>VBA: Sub GetItemImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef image)\r\nVB6: Function GetItemImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As <\/span>IPictureDisp<\/pre>\n<p><b>getItemLabel:<\/b><\/p>\n<pre>VBA: Sub GetItemLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef label)\r\nVB6: Function GetItemLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemScreenTip:<\/b><\/p>\n<pre>VBA: Sub GetItemScreenTip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef screenTip)\r\nVB6: Function GetItemScreentip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemSuperTip:<\/b><\/p>\n<pre>VBA: Sub GetItemSuperTip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef superTip)\r\nVB6: Function GetItemSuperTip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getSelectedItemID:<\/b><\/p>\n<pre>VBA: Sub GetSelectedItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef index)\r\nVB6: Function GetSelectedItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getSelectedItemIndex:<\/b><\/p>\n<pre>VBA: Sub GetSelectedItemIndex(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef index)\r\nVB6: Function GetSelectedItemIndex(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>onAction<\/b>:<\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, selectedId<span style=\"color: blue;\"> As String<\/span>, selectedIndex<span style=\"color: blue;\"> As Integer<\/span>)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, selectedId<span style=\"color: blue;\"> As String<\/span>, selectedIndex<span style=\"color: blue;\"> As Integer<\/span>)<\/pre>\n<h3>dynamicMenu<\/h3>\n<p><b>getContent<\/b>:<\/p>\n<pre>VBA: Sub GetContent(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef content)\r\nVB6: Function GetContent(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<h3>editBox<\/h3>\n<p><b>getText<\/b>:<\/p>\n<pre>VBA: Sub GetText(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef text)\r\nVB6: Function GetText(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>onChange<\/b>:<\/p>\n<pre>VBA: Sub OnChange(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, text<span style=\"color: blue;\"> As String<\/span>)\r\nVB6: Sub OnChange(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, text<span style=\"color: blue;\"> As String<\/span>)<\/pre>\n<h3>gallery<\/h3>\n<p><b>getItemCount:<\/b><\/p>\n<pre>VBA: Sub GetItemCount(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef count)\r\nVB6: Function GetItemCount(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getItemHeight:<\/b><\/p>\n<pre>VBA: Sub getItemHeight(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef height)\r\nVB6: Function getItemHeight(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getItemID<\/b>:<\/p>\n<pre>VBA: Sub GetItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef id)\r\nVB6: Function GetItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemImage:<\/b><\/p>\n<pre>VBA: Sub GetItemImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef image)\r\nVB6: Function GetItemImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As <\/span>IPictureDisp<\/pre>\n<p><b>getItemLabel:<\/b><\/p>\n<pre>VBA: Sub GetItemLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef label)\r\nVB6: Function GetItemLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemScreenTip:<\/b><\/p>\n<pre>VBA: Sub GetItemScreenTip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef screen)\r\nVB6: Function GetItemScreentip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemSuperTip:<\/b><\/p>\n<pre>VBA: Sub GetItemSuperTip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>, ByRef screen)\r\nVB6: Function GetItemSuperTip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, index<span style=\"color: blue;\"> As Integer<\/span>)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getItemWidth:<\/b><\/p>\n<pre>VBA: Sub getItemWidth(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef width)\r\nVB6: Function getItemWidth(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getSelectedItemID:<\/b><\/p>\n<pre>VBA: Sub GetSelectedItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef index)\r\nVB6: Function GetSelectedItemID(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>getSelectedItemIndex:<\/b><\/p>\n<pre>VBA: Sub GetSelectedItemIndex(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef index)\r\nVB6: Function GetSelectedItemIndex(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Integer<\/span><\/pre>\n<p><b>onAction<\/b>:<\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, selectedId<span style=\"color: blue;\"> As String<\/span>, selectedIndex<span style=\"color: blue;\"> As Integer<\/span>)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, selectedId<span style=\"color: blue;\"> As String<\/span>, selectedIndex<span style=\"color: blue;\"> As Integer<\/span>)\r\n<\/pre>\n<h3>menuSeparator<\/h3>\n<p><b>getTitle<\/b>:<\/p>\n<pre>VBA: Sub GetTitle (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef title)\r\nVB6: Function GetTitle (control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<h3>toggleButton<\/h3>\n<p><b>getPressed<\/b>:<\/p>\n<pre>VBA: Sub GetPressed(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef returnValue)\r\nVB6: Function GetPressed(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Boolean<\/span><\/pre>\n<p><b>onAction<\/b>:<\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, pressed<span style=\"color: blue;\"> As Boolean<\/span>)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, pressed<span style=\"color: blue;\"> As Boolean<\/span>)<\/pre>\n<p><b>onAction (command):<\/b><\/p>\n<pre>VBA: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, pressed<span style=\"color: blue;\"> As Boolean<\/span>, ByRef cancelDefault)\r\nVB6: Sub OnAction(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, pressed<span style=\"color: blue;\"> As Boolean<\/span>, ByRef CancelDefault)<\/pre>\n<h3>(diverse)<\/h3>\n<p><b>getDescription:<\/b><\/p>\n<pre>VBA: Sub GetDescription(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef description)\r\nVB6: Function GetDescription(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getEnabled<\/b>:<\/p>\n<pre>VBA: Sub GetEnabled(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef enabled)\r\nVB6: Function GetEnabled(control as IRibbonControl)<span style=\"color: blue;\"> As Boolean<\/span><\/pre>\n<p><b>getImage<\/b>:<\/p>\n<pre>VBA: Sub GetImage(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef image)\r\nVB6: Function GetImage(control as IRibbonControl) as IPictureDisp<\/pre>\n<p><b>getImageMso<\/b>:<\/p>\n<pre>VBA: Sub GetImageMso(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef imageMso)\r\nVB6: Function GetImageMso(control as IRibbonControl) as String<\/pre>\n<p><b>getLabel<\/b>:<\/p>\n<pre>VBA: Sub GetLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef label)\r\nVB6: Function GetLabel(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getKeytip<\/b>:<\/p>\n<pre>VBA: Sub GetKeytip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef label)\r\nVB6: Function GetKeytip (control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getSize<\/b>:<\/p>\n<pre>VBA: Sub GetSize(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef size)\r\nVB6: Function GetSize(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As <\/span>RibbonControlSize<\/pre>\n<p><b>getScreentip<\/b>:<\/p>\n<pre>VBA: Sub GetScreentip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef screentip)\r\nVB6: Function GetScreentip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getSupertip<\/b>:<\/p>\n<pre>VBA: Sub GetSupertip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef supertip)\r\nVB6: Function GetSupertip(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As String<\/span><\/pre>\n<p><b>getVisible<\/b>:<\/p>\n<pre>VBA: Sub GetVisible(control<span style=\"color: blue;\"> As <\/span>IRibbonControl, ByRef visible)\r\nVB6: Function GetVisible(control<span style=\"color: blue;\"> As <\/span>IRibbonControl)<span style=\"color: blue;\"> As Boolean<\/span><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Wer Anwendungen programmiert, die das Ribbon anpassen, m&ouml;chte die benutzerdefinierten Ribbon-Steuerelemente auch mit entsprechenden Callback-Prozeduren ausstatten. Dieser Artikel liefert eine Zusammenfassung der Ribbon-Signaturen f&uuml;r die Callback-Funktionen unter VBA und Visual Basic 6 beziehungsweise twinBASIC. Die VBA-Signaturen nutzen wir, wenn wir Ribbon-Erweiterungen direkt zu den mit den Office-Anwendungen erstellten Ribbonanpassungen hinzuf&uuml;gen wollen. Erstellen wir hingegen COM-Add-Ins mit VB6 oder twinBASIC, nutzen wir die alternativen Signaturen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022022,662022,44000027,44000036],"tags":[],"yst_prominent_words":[],"class_list":["post-55000314","post","type-post","status-publish","format-standard","hentry","category-66022022","category-662022","category-Excel_programmieren","category-Ribbon_programmieren"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts\/55000314","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/comments?post=55000314"}],"version-history":[{"count":1,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts\/55000314\/revisions"}],"predecessor-version":[{"id":88072052,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/posts\/55000314\/revisions\/88072052"}],"wp:attachment":[{"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/media?parent=55000314"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/categories?post=55000314"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/tags?post=55000314"},{"taxonomy":"yst_prominent_words","embeddable":true,"href":"https:\/\/vbentwickler.de\/data\/wp\/v2\/yst_prominent_words?post=55000314"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}