MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access - Code Archiv
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 01.04.2015, 12:36   #1
Aegert
Neuer Benutzer
Neuer Benutzer
Standard Codebeispiel - Access 2013 Menüband mit VBA reduzieren und voll ...

Aufgabenstellung: Benützer sollen das Menüband nicht offensiv nutzen. Gleichzeitig ist die Nutzhöhe für den Inhalt besser.

Menüband reduzieren: (bei Open der Anwendung)

1. folgende Funktion in einem Modul einfügen:
Public Function Menü_minimize()
' minimiert und maximiert den Menübalken
Dim lngHeight As Long
lngHeight = CommandBars("Ribbon").Controls(1).Height
If lngHeight > 100 Then CommandBars.ExecuteMso "MinimizeRibbon"
End Function


(lngHeight sagt aus, ob das Menüband bereits reduziert ist oder nicht)

2. im Standardmakro "autoexec" diese Funktion unter "Aktionen / Makrobefehle/ Ausführen Code /" einfügen mit Name "Menü_minimize".


Menüband wieder voll darstellen: (bei Close der Anwendung)
1. folgende Funktion in einem Modul einfügen:
Public Function Menü_maximize()
' maximiert den Menübalken
Dim lngHeight As Long
lngHeight = CommandBars("Ribbon").Controls(1).Height
If lngHeight < 100 Then CommandBars.ExecuteMso "MinimizeRibbon"
End Function


2. im Standardmakro "close" diese Funktion unter "Aktionen / Makrobefehle/ Ausführen Code /" einfügen mit Name "Menü_maximize".
Aegert ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.10.2017, 21:45   #2
wof
MOF User
MOF User
Standard

Ich bin ziemlich sicher, dass es in Menü_maximize heißen muss:
Code:

If lngHeight < 100 Then CommandBars.ExecuteMso "MaximizeRibbon"
Sonst wärs ja dasselbe wie bei Menü_minimize.
Oder?
wof ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:16 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.