Im Beitrag „Steuerelemente ausrichten per VBA“ (www.access-im-unternehmen.de\/1429) haben wir eine Prozedur entwickelt, die markierte Steuerelemente samt Bezeichnungsfeldern in der Entwurfsansicht ausrichtet. Damit wir sie nutzen können, muss der Code in der jeweiligen Datenbank vorliegen. Bequemer ist es, wenn sie in jeder Datenbank über das Ribbon und das Kontextmenü der Steuerelemente bereitsteht. Wie wir dazu ein COM-Add-In mit twinBASIC bauen, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Von der VBA-Prozedur zum COM-Add-In<\/h2>\n
Access lädt ein COM-Add-In beim Start. Seine Funktionen stehen damit unabhängig von der geöffneten Datenbank zur Verfügung. Wir müssen keinen Code in einzelne Datenbanken kopieren. Die Prozedur aus dem VBA-Beitrag bleibt im Kern erhalten. Es ändert sich, wie wir ihre Parameter festlegen und wie wir sie aufrufen.<\/p>\n
Die Parameter lngDistanceLabelControl<\/b>, lngVerticalDistance<\/b>, lngAlignment<\/b> und bolColons<\/b> der Prozedur AlignControls<\/b> erscheinen als Elemente im Ribbon. Zwei Textfelder legen den horizontalen Abstand zwischen Bezeichnungsfeld und Steuerelement sowie den vertikalen Abstand fest, jeweils in Twips. Eine Dropdownliste bestimmt die Textausrichtung der Bezeichnungsfelder, und ein Kontrollkästchen schaltet den Doppelpunkt (:<\/b>) hinter den Beschriftungen ein. Zwei Schaltflächen starten das Ausrichten und das Anhängen der Doppelpunkte (siehe Bild 1).<\/p>\n
![\"Der](\"..\/fileadmin\/_temp_\/2026_06\/pic_1627_001.png\")
<\/p>\n
Bild 1: Der neue Bereich im Ribbon<\/span><\/b><\/p>\n Dieselben beiden Befehle fügen wir dem Kontextmenü der Steuerelemente hinzu (siehe Bild 2).<\/p>\n Bild 2: Die beiden Befehle im Kontextmenü<\/span><\/b><\/p>\n Das Register im Ribbon soll nur erscheinen, wenn wir ein Formular oder einen Bericht in der Entwurfsansicht bearbeiten. Dafür verwenden wir kontextbezogene Register.<\/p>\n Das Add-In besteht aus drei Teilen. Die Klasse ControlAligner<\/b> enthält die Anbindung an Access, das Ribbon und die Kontextmenüs. Das Modul Alignment<\/b> enthält die Ausrichtungslogik. Das Modul DllRegistration<\/b> trägt das Add-In bei der Registrierung in die Registry ein.<\/p>\n Wie wir twinBASIC einrichten und ein COM-Add-In für Access aufbauen, haben wir in den Beiträgen twinBASIC – VB\/VBA mit moderner Umgebung (www.access-im-unternehmen.de\/1303)<\/b> und twinBASIC – COM-Add-Ins für Access (www.access-im-unternehmen.de\/1306)<\/b> beschrieben. Hier legen wir ein neues Projekt vom Typ ActiveX-DLL <\/b>mit dem Namen amvControlAligner<\/b> an und fügen die drei Quelldateien hinzu. Das Projekt benötigt vier Verweise.<\/p>\n Außerdem schalten wir Option Explicit<\/b> für das Projekt ein. Die DLL muss dieselbe Bitbreite wie die installierte Access-Version haben. In unserem Beispiel ist das die 32-Bit-Version von Access.<\/p>\n Nach dem Erstellen müssen wir die DLL registrieren. Das Modul DllRegistration<\/b> schreibt dazu unter HKCU\\SOFTWARE\\Microsoft\\Office\\Access\\Addins<\/b> einen Schlüssel mit dem Namen amvControlAligner.ControlAligner<\/b> und den Werten FriendlyName<\/b>, Description<\/b> und LoadBehavior<\/b>. Der Wert 3<\/b> für LoadBehavior<\/b> bewirkt, dass Access das Add-In beim Start lädt. Das Vorgehen dazu zeigt der Beitrag COM-Add-Ins und -DLLs installieren oder registrieren (www.access-im-unternehmen.de\/1484)<\/b>.<\/p>\n Die Klasse ControlAligner<\/b> implementiert zwei Schnittstellen. IDTExtensibility2<\/b> meldet dem Add-In, dass Access es lädt oder entlädt. IRibbonExtensibility<\/b> liefert Access beim Laden die Ribbondefinition:<\/p>\n Das Attribut ClassId<\/b> legt die Klassen-ID fest, unter der Access das Add-In findet. Jedes Add-In benötigt eine eigene ID. Das Attribut WithDispatchForwarding<\/b> vor IRibbonExtensibility<\/b> sorgt dafür, dass Access die im Ribbon-XML angegebenen Callbackprozeduren anhand ihres Namens in der Klasse aufrufen kann.<\/p>\n Die Variable objAccess<\/b> nimmt die Access-Anwendung auf und objRibbon<\/b> das Ribbon-Objekt, das wir zum Aktualisieren benötigen. Die vier Variablen für die Einstellungen entsprechen den Parametern der Ausrichtung. Die vier mit WithEvents<\/b> deklarierten Variablen vom Typ CommandBarButton<\/b> nehmen später die Schaltflächen der Kontextmenüs auf und liefern deren Ereignis Click<\/b>.<\/p>\n Beim Laden ruft Access die Prozedur OnConnection<\/b> auf (siehe Listing 1). Sie speichert die Access-Anwendung in objAccess<\/b>, lädt die gespeicherten Einstellungen und legt die Schaltflächen in den Kontextmenüs an.<\/p>\n Listing 1: Die Prozedur OnConnection verbindet das Add-In mit Access<\/span><\/b><\/p>\n Beim Entladen ruft Access die Prozedur OnDisconnection<\/b> auf. Diese entfernt die Schaltflächen wieder und gibt die Objektvariablen frei. Die übrigen Prozeduren der Schnittstelle (OnAddInsUpdate<\/b>, OnStartupComplete<\/b> und OnBeginShutdown<\/b>) benötigen wir nicht und lassen sie leer. Da sie Teile der Schnittstelle IDTExtensibility2 <\/b>sind, dürfen wir sie nicht einfach weglassen.<\/p>\n Die Einstellungen sollen beim nächsten Start von Access wieder zur Verfügung stehen. Das Add-In speichert sie mit der Funktion SaveSetting<\/b> in der Registry und liest sie in der Prozedur LoadSettings<\/b> mit der Funktion GetSetting<\/b> wieder ein. Fehlt ein Eintrag, verwendet LoadSettings<\/b> die Standardwerte. Das sind 100<\/b> Twips für beide Abstände, die Textausrichtung Standard<\/b> und keine Doppelpunkte.<\/p>\n Die Prozedur SaveSettings<\/b> schreibt die vier Werte und aktualisiert danach das Ribbon (siehe Listing 2).<\/p>\n Listing 2: Die Prozedur SaveSettings speichert die Einstellungen<\/span><\/b><\/p>\n Der Aufruf der Methode Invalidate<\/b> ist erforderlich, weil das Ribbon die Elemente zweimal enthält, einmal im Register für Formulare und einmal im Register für Berichte. Ändern wir einen Wert in einem der beiden Register, müssen beide ihre Anzeige neu einlesen.<\/p>\n Die Eingaben in die beiden Textfelder prüft die Funktion ParseDistance<\/b>. Sie wandelt den Text mit der Funktion Val<\/b> in eine ganze Zahl zwischen 0<\/b> und 99999<\/b> um.<\/p>\n Ist die Eingabe keine Zahl oder liegt sie außerhalb dieses Bereichs, liefert die Funktion den Standardwert 100<\/b>. Die Obergrenze ergibt sich aus der Länge der Eingabe, die wir im Ribbon mit dem Attribut maxLength<\/b> auf fünf Zeichen begrenzen:<\/p>\n Access ruft beim Laden die Funktion GetCustomUI<\/b> der Schnittstelle IRibbonExtensibility<\/b> auf und erwartet als Ergebnis den XML-Code der Ribbondefinition. Wir erzeugen ihn in dieser Funktion (siehe Listing 3).<\/p>\n Listing 3: Die Funktion GetCustomUI liefert die Ribbondefinition<\/span><\/b><\/p>\n Das Attribut onLoad<\/b> des Elements customUI<\/b> nennt die Callbackprozedur OnRibbonLoad<\/b>, über die wir das Ribbon-Objekt erhalten. Das Register soll nur im Entwurf von Formularen und Berichten erscheinen.<\/p>\n Deshalb enthält das Element contextualTabs<\/b> zwei Elemente tabSet<\/b>. Über die Werte TabSetFormTools<\/b> und TabSetReportTools<\/b> des Attributs idMso<\/b> wählen wir die kontextbezogenen Registergruppen für Formulare und Berichte aus. Access blendet das Register ein, wenn das Objekt in der Entwurfsansicht geöffnet ist. In der Formularansicht erscheint es nicht.<\/p>\n Access prüft die Werte für idMso<\/b> beim Laden des Ribbons.<\/p>\n Verwenden wir einen unbekannten Wert, meldet Access einen Fehler in der benutzerdefinierten Benutzeroberfläche.<\/p>\n Beide Registergruppen erhalten dasselbe Register. Weil jedes Element im Ribbon eine eindeutige ID benötigt, hängt die Funktion GetTabXml<\/b> an alle IDs ein Suffix an, nämlich Form<\/b> für Formulare und Report<\/b> für Berichte (siehe Listing 4).<\/p>\n Listing 4: Die Funktion GetTabXml erzeugt das Register<\/span><\/b><\/p>\n Die Gruppe Einstellungen<\/b> enthält zwei Elemente editBox<\/b> für die Abstände, ein Element dropDown<\/b> mit den fünf Einträgen Standard<\/b>, Links<\/b>, Zentriert<\/b>, Rechts<\/b> und Verteilen<\/b> für die Textausrichtung der Bezeichnungsfelder sowie ein Element checkBox<\/b> für die Doppelpunkte. Die Reihenfolge der Einträge in der Dropdownliste entspricht den Werten der Eigenschaft TextAlign<\/b>, also 0<\/b> für Standard<\/b> bis 4<\/b> für Verteilen<\/b>. Die Gruppe Befehle<\/b> enthält die Schaltflächen Steuerelemente ausrichten<\/b> und Doppelpunkte anhängen<\/b>.<\/p>\n Im Formularentwurf zeigt Access es hinter dem Register Format<\/b> an (siehe Bild 3).<\/p>\n Bild 3: Das Register Steuerelemente ausrichten im Entwurf eines Formulars<\/span><\/b><\/p>\n Die Schaltflächen zeigen eingebaute Symbole von Office, die wir über das Attribut imageMso<\/b> angeben. Eigene Bilder binden wir nach dem Muster aus dem Beitrag Benutzerdefinierte Bilder in twinBASIC (www.access-im-unternehmen.de\/1325)<\/b> ein.<\/p>\n Die Callbackprozeduren stehen in derselben Klasse. Die erste ist OnRibbonLoad<\/b>. Access übergibt ihr das Objekt IRibbonUI<\/b>, das wir in der Variablen objRibbon<\/b> speichern.<\/p>\n Für jedes Element, das seinen Wert beim Anzeigen abfragt, gibt es eine Funktion, die den gespeicherten Wert liefert. Die Auswahl in der Dropdownliste liefert die Funktion GetAlignmentIndex<\/b>:<\/p>\n Diese Callbacks sind in twinBASIC Funktionen mit einem Rückgabewert. In VBA deklarieren wir Callbacks zum Abfragen eines Wertes als Prozedur mit einem Ausgabeparameter, den wir mit dem Schlüsselwort ByRef<\/b> übergeben. Verwenden wir diese Schreibweise im Add-In, zeigt Access beim Aufrufen die Meldung Fehler beim Aufrufen der Rückruffunktion<\/b> mit dem Namen der Prozedur an.<\/p>\n Wählen wir einen anderen Eintrag der Dropdownliste, ruft Access die Prozedur OnAlignmentChange<\/b> auf. Sie speichert den Index des gewählten Eintrags in lngAlignment<\/b> und ruft SaveSettings<\/b> auf:<\/p>\n Die Funktionen GetDistanceLabelText<\/b>, GetDistanceVerticalText<\/b> und GetColonsPressed<\/b> liefern ihre Werte nach demselben Muster. Die Prozeduren OnDistanceLabelChange<\/b> und OnDistanceVerticalChange<\/b> wandeln die Eingabe mit ParseDistance<\/b> um. OnColonsChange<\/b> übernimmt den Zustand des Kontrollkästchens. Diese drei Prozeduren speichern die Einstellungen anschließend mit SaveSettings<\/b>. Den vollständigen Quellcode enthalten die Beispieldateien zu diesem Beitrag.<\/p>\n Die beiden Schaltflächen im Ribbon rufen die Prozeduren OnAlignClicked<\/b> und OnColonsClicked<\/b> auf. Sie rufen die Prozeduren RunAlign<\/b> und RunColons<\/b> auf, die auch die Kontextmenübefehle verwenden. RunColons<\/b> ruft AddColonsToLabels<\/b> auf. RunAlign<\/b> übergibt die Einstellungen an AlignControls<\/b>.<\/p>\n Die Prozedur AlignControls<\/b> im Modul Alignment<\/b> übernimmt die Logik aus dem VBA-Beitrag. Sie ist in VBA-Syntax geschrieben und lässt sich deshalb auch in ein twinBASIC-Modul übernehmen. Gegenüber der VBA-Fassung ändert sich Folgendes.<\/p>\n Welches Objekt die Prozedur bearbeitet, ermittelt die Funktion GetDesignObject<\/b>. Sie prüft zuerst, ob ein Bericht aktiv ist, und danach, ob ein Formular aktiv ist. Das Objekt muss sich in der Entwurfsansicht befinden. Das erkennt die Funktion an der Eigenschaft CurrentView<\/b> mit dem Wert 0<\/b>.<\/p>\n Screen.ActiveReport<\/b> und Screen.ActiveForm<\/b> lösen einen Fehler aus, wenn das jeweils andere Objekt aktiv ist. Deshalb steht On Error Resume Next<\/b> vor den Zugriffen, wobei die Variable frm<\/b> in diesem Fall den Wert Nothing<\/b> behält. Findet die Funktion kein Objekt in der Entwurfsansicht, liefert sie den Wert False<\/b>. Die Prozedur AlignControls<\/b> zeigt dann die Meldung Es ist weder ein Formular noch ein Bericht in der Entwurfsansicht geöffnet<\/b>.<\/p>\n Die Prozedur AddColonsToLabels<\/b> hängt allen markierten Bezeichnungsfeldern einen Doppelpunkt an, sofern er noch fehlt (siehe Listing 5). Die Prozedur AlignControls<\/b> ruft sie auf, wenn im Ribbon das Kontrollkästchen Mit Doppelpunkten<\/b> aktiviert ist. Mit dem Befehl Doppelpunkte anhängen<\/b> starten wir sie auch einzeln.<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2026_06\/pic_1627_002.png\")
<\/p>\nDas twinBASIC-Projekt anlegen<\/h2>\n
\n
Die Klasse des Add-Ins<\/h2>\n
[ ClassId (\"940037E2-0FB7-89-B188-3212448EA4EC\") ]\r\nClass<\/span> ControlAligner\r\n Implements IDTExtensibility2\r\n [ WithDispatchForwarding ]\r\n Implements IRibbonExtensibility\r\n Private <\/span>objAccess As <\/span>Access.Application\r\n Private <\/span>objRibbon As <\/span>IRibbonUI\r\n Private <\/span>lngDistanceLabelControl As Long<\/span>\r\n Private <\/span>lngVerticalDistance As Long<\/span>\r\n Private <\/span>lngAlignment As Long<\/span>\r\n Private <\/span>bolColons As Boolean<\/span>\r\n Private <\/span>WithEvents cbbFormAlign As <\/span>CommandBarButton\r\n Private <\/span>WithEvents cbbFormColons As <\/span>CommandBarButton\r\n Private <\/span>WithEvents cbbReportAlign As <\/span>CommandBarButton\r\n Private <\/span>WithEvents cbbReportColons As <\/span>CommandBarButton\r\n ...\r\nEnd Class<\/span><\/pre>\nSub <\/span>OnConnection(ByVal Application As Object<\/span>, ByVal ConnectMode As <\/span>ext_ConnectMode, ByVal AddInInst As Object<\/span>, _\r\n ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnConnection\r\n Set<\/span> objAccess = Application\r\n LoadSettings\r\n SetCommandBars\r\nEnd Sub<\/span><\/pre>\nDie Einstellungen speichern<\/h2>\n
Private Sub <\/span>SaveSettings()\r\n SaveSetting SETTINGS_APP, SETTINGS_SECTION, \"AbstandBezeichnung\", CStr(lngDistanceLabelControl)\r\n SaveSetting SETTINGS_APP, SETTINGS_SECTION, \"AbstandVertikal\", CStr(lngVerticalDistance)\r\n SaveSetting SETTINGS_APP, SETTINGS_SECTION, \"Ausrichtung\", CStr(lngAlignment)\r\n SaveSetting SETTINGS_APP, SETTINGS_SECTION, \"Doppelpunkte\", IIf(bolColons, \"1\", \"0\")\r\n 'Das Ribbon enthält die Steuerelemente je einmal für\r\n 'Formulare und Berichte und muss beide neu lesen.\r\n If <\/span>Not<\/span> objRibbon Is Nothing Then<\/span>\r\n objRibbon.Invalidate\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>ParseDistance(ByVal strText As String<\/span>) As Long<\/span>\r\n If <\/span>IsNumeric(strText) Then<\/span>\r\n If <\/span>Val(strText) >= 0 And Val(strText) <= 99999 Then<\/span>\r\n ParseDistance = CLng(Val(strText))\r\n Exit Function<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n ParseDistance = 100\r\nEnd Function<\/span><\/pre>\nDas Ribbon mit kontextbezogenen Registern<\/h2>\n
Private Function <\/span>GetCustomUI(ByVal RibbonID As String<\/span>) _\r\n As String<\/span> Implements IRibbonExtensibility.GetCustomUI\r\n Dim <\/span>strXML As String<\/span>\r\n strXML &= \"<customUI xmlns=\"\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\"\"\" & _\r\n \" onLoad=\"\"OnRibbonLoad\"\">\" & vbCrLf<\/span>\r\n strXML &= \"<ribbon startFromScratch=\"\"false\"\">\" & vbCrLf<\/span>\r\n strXML &= \"<contextualTabs>\" & vbCrLf<\/span>\r\n strXML &= \"<tabSet<\/span> idMso=\"\"TabSetFormTools\"\">\" & vbCrLf<\/span>\r\n strXML &= GetTabXml(\"Form\")\r\n strXML &= \"<\/tabSet>\" & vbCrLf<\/span>\r\n strXML &= \"<tabSet<\/span> idMso=\"\"TabSetReportTools\"\">\" & vbCrLf<\/span>\r\n strXML &= GetTabXml(\"Report\")\r\n strXML &= \"<\/tabSet>\" & vbCrLf<\/span>\r\n strXML &= \"<\/contextualTabs>\" & vbCrLf<\/span>\r\n strXML &= \"<\/ribbon>\" & vbCrLf<\/span>\r\n strXML &= \"<\/customUI>\" & vbCrLf<\/span>\r\n Return strXML\r\nEnd Function<\/span><\/pre>\nPrivate Function <\/span>GetTabXml(ByVal strSuffix As String<\/span>) As String<\/span>\r\n Dim <\/span>strXML As String<\/span>\r\n strXML &= \" <tab id=\"\"tabAmvAlign\" & strSuffix & \"\"\" label=\"\"Steuerelemente ausrichten\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <group id=\"\"grpAmvSettings\" & strSuffix & \"\"\" label=\"\"Einstellungen\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <editBox id=\"\"edtDistanceLabel\" & strSuffix & \"\"\" label=\"\"Abstand Bezeichnung\/Feld\"\" \" & _\r\n \"sizeString=\"\"99999\"\" maxLength=\"\"5\"\"\" & \" screentip=\"\"Horizontaler Abstand in Twips\"\" \" & _\r\n \"getText=\"\"GetDistanceLabelText\"\" onChange=\"\"OnDistanceLabelChange\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <editBox id=\"\"edtDistanceVertical\" & strSuffix & \"\"\" label=\"\"Vertikaler Abstand\"\" \" & _\r\n \"sizeString=\"\"99999\"\" maxLength=\"\"5\"\"\" & \" screentip=\"\"Vertikaler Abstand zwischen den Zeilen in \" & _\r\n \"Twips\"\" getText=\"\"GetDistanceVerticalText\"\" onChange=\"\"OnDistanceVerticalChange\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <dropDown id=\"\"ddAlignment\" & strSuffix & \"\"\" label=\"\"Beschriftung\"\" \" & _\r\n \"screentip=\"\"Textausrichtung der Bezeichnungsfelder\"\"\" & _\r\n \" getSelectedItemIndex=\"\"GetAlignmentIndex\"\" onAction=\"\"OnAlignmentChange\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <item id=\"\"itmAlign0\" & strSuffix & \"\"\" label=\"\"Standard\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <item id=\"\"itmAlign1\" & strSuffix & \"\"\" label=\"\"Links\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <item id=\"\"itmAlign2\" & strSuffix & \"\"\" label=\"\"Zentriert\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <item id=\"\"itmAlign3\" & strSuffix & \"\"\" label=\"\"Rechts\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <item id=\"\"itmAlign4\" & strSuffix & \"\"\" label=\"\"Verteilen\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <\/dropDown>\" & vbCrLf<\/span>\r\n strXML &= \" <checkBox id=\"\"chkColons\" & strSuffix & \"\"\" label=\"\"Mit Doppelpunkten\"\" \" & _\r\n \"screentip=\"\"Beim Ausrichten Doppelpunkte hinter die Beschriftungen setzen\"\"\" & _\r\n \" getPressed=\"\"GetColonsPressed\"\" onAction=\"\"OnColonsChange\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <\/group>\" & vbCrLf<\/span>\r\n strXML &= \" <group id=\"\"grpAmvActions\" & strSuffix & \"\"\" label=\"\"Befehle\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <button id=\"\"btnAlign\" & strSuffix & \"\"\" label=\"\"Steuerelemente ausrichten\"\" \" & _\r\n \"size=\"\"large\"\" imageMso=\"\"AlignLeft\"\"\" & \" screentip=\"\"Markierte Steuerelemente ausrichten\"\" \" & _\r\n \"onAction=\"\"OnAlignClicked\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <button id=\"\"btnColons\" & strSuffix & \"\"\" label=\"\"Doppelpunkte anhängen\"\" \" & _\r\n \"size=\"\"large\"\" imageMso=\"\"AlignRight\"\"\" & \" screentip=\"\"Markierten Bezeichnungsfeldern einen \" & _\r\n \"Doppelpunkt anhängen\"\" onAction=\"\"OnColonsClicked\"\"\/>\" & vbCrLf<\/span>\r\n strXML &= \" <\/group>\" & vbCrLf<\/span>\r\n strXML &= \" <\/tab>\" & vbCrLf<\/span>\r\n Return strXML\r\nEnd Function<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2026_06\/pic_1627_003.png\")
<\/p>\nDie Callbackprozeduren des Ribbons<\/h2>\n
Public Sub <\/span>OnRibbonLoad(Ribbon As <\/span>IRibbonUI)\r\n Set<\/span> objRibbon = Ribbon\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>GetAlignmentIndex(Control As <\/span>_\r\n IRibbonControl) As Long<\/span>\r\n Return lngAlignment\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>OnAlignmentChange(Control As <\/span>IRibbonControl, _\r\n SelectedId As String<\/span>, SelectedIndex As Long<\/span>)\r\n lngAlignment = SelectedIndex\r\n SaveSettings\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>RunAlign()\r\n AlignControls objAccess, lngDistanceLabelControl, _\r\n lngVerticalDistance, lngAlignment, bolColons\r\nEnd Sub<\/span><\/pre>\nDie Ausrichtung in einem Modul<\/h2>\n
\n
Private Function <\/span>GetDesignObject( _\r\n ByVal objAccess As <\/span>Access.Application, _\r\n ByRef frm As Object<\/span>) As Boolean<\/span>\r\n On Error Resume Next<\/span>\r\n Set<\/span> frm = Nothing\r\n Set<\/span> frm = objAccess.Screen.ActiveReport\r\n If <\/span>frm Is Nothing Then<\/span>\r\n Set<\/span> frm = objAccess.Screen.ActiveForm\r\n End If<\/span>\r\n If <\/span>Not<\/span> frm Is Nothing Then<\/span>\r\n If <\/span>frm.CurrentView = 0 Then<\/span>\r\n GetDesignObject = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>AddColonsToLabels(ByVal objAccess As <\/span>Access.Application)\r\n Dim <\/span>frm As Object<\/span>\r\n Dim <\/span>ctl As <\/span>Access.Control\r\n Dim <\/span>lbl As <\/span>Access.Label\r\n If <\/span>