Office: Ribbon Dynamisches Menü weitere Ebene

Hallo Gemeinde.

Ich bräuchte gern mal wieder einen Rat.
und zwar kreiere ich nach einem abgewandelten Beispiel von Mumpel aka Rene ein Ribbon.
Es besteht aus 7 Gruppen.
Dann wird zur Laufzeit weitere Schaltflächen hinzugefügt. Vgl. Angehängtes Bild


Der Ribbon Code

PHP:

         <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="olLoad_DNM">
<ribbon>
<tabs>
<tab id="tab0" label="RFP">
<group id="grp0" label="1.00 U/B">
<dynamicMenu id="dmnu0" label="1.00" getContent="GetContent_Menu1" size="large" imageMso="CacheListData"/>
</group>

<group id="grp1" label="2.00 Pflege">
<dynamicMenu id="dmnu1" label="2.00" getContent="GetContent_Menu2" size="large" imageMso="CacheListData"/>
</group>
<group id="grp2" label="3.00 Verwaltung">
<dynamicMenu id="dmnu2" label="3.00" getContent="GetContent_Menu3" size="large" imageMso="CacheListData"/>
</group>
<group id="grp3" label="4.00 Soziale Dienste">
<dynamicMenu id="dmnu3" label="4.00" getContent="GetContent_Menu4" size="large" imageMso="CacheListData"/>
</group>
<group id="grp4" label="5.00 Ver/Entsorgung">
<dynamicMenu id="dmnu4" label="5.00" getContent="GetContent_Menu5" size="large" imageMso="CacheListData"/>
</group>
<group id="grp5" label="6.00 Forschung/Lehre">
<dynamicMenu id="dmnu5" label="6.00" getContent="GetContent_Menu6" size="large" imageMso="CacheListData"/>
</group>
<group id="grp6" label="7.00 Sonstige">
<dynamicMenu id="dmnu6" label="7.00" getContent="GetContent_Menu7" size="large" imageMso="CacheListData"/>
</group>

</tab>
</tabs>
</ribbon>
</customUI>


:)

 

Hallo!

Nach dem Einlesen der Ordnerinhalte müsste sich damit auf dei selbe Weise ein Menü erstellen lassen. Ich werde das morgen mal probieren.

Gruß, René

 

Hallo Rene

schön von dir zu lesen =)

Nur damit es nicht falsch verstanden wird, ich würde gern, eine weitere Menue-Tiefe hinzufügen bei der man dann die entsprechende Datei auslesen /kopieren kann

Also
1. Ebene Button in Gruppe
2. Ebene sind die Buttons die sich im Dropdown aus 1. Ebene öffnen
3. Ebene dropdown aus 2. Ebene

Grüße und vielen Dank für deine Unterstützung

 

Das funktioniert so wie Du es im CustomUI-Editor auch machen würdest. Als String in VBA ist das etwas kniffliger. Vielleicht jede Ebene in eine eigene Schleife packen und diese Schleifen am Ende zusammenfügen. Etwas Übung gehört dazu. Aber so etwas Umfangreiches habe ich diesbezüglich noch nie gemacht, mir fehlt also die Erfahrung.

 

Mein Problem ist, dass ich gar keinen Ansatz habe wie ich mich dem ganzen nähere -.- #

Also im konkreten Fall, wie kann ich die Ebene überhaupt ansprechen.

aber wenn du morgen zeit findest, wäre ich diesbezüglich sehr glücklich.


Grüße

 

Also ein bisschen bin ich weiter.
aber noch nicht maßgeblich. Das folgende Makro liesst mir zumindest die dazugehörigen Dateien aus dem betreffenden SubOrdner aus

Code:

Grüße

 

Jetzt muss ich nochmal nachfragen. Das Menü soll wie es ist bleiben und zusätzlich ein Untermenü mit den Dateien? Oder nur für jede Datei eine Schaltfläche?

 

Also ich stelle mir das optimalerweise so vor, dass bspw bei klick auf 1.01 sich eine weitere Menüebene öffnet bei der man dann die Dateien wählen (und importieren kann)

Bsp. Wenn man in Excel auf "Datei" geht kommt ein Dropdown (Speichern; Speichern unter; Öffnen; Schliessen ...usw). Klickt man jetzt auf Zuletzt Verwendet kommt eine weitere Ebene (in der man hier die Mappen auswählen kann)
So in der Art (wenn auch grafisch anders) wäre optimal

Grüße

Ps.: Das Menü sollte so wie in der XLAM gezeigt bleiben nur mit einer weiteren Ebene halt

 

Das würde ich vorher schon einlesen und als Untermenü (dynamicmenu) zur Verfügung stellen. Dann musst Du nicht erst neue Tabellen im Add-In erstellen.

 

Das hab ich jetzt nicht verstanden.

Meinst du das so, dass die Ebene2 (die bisher dynamisch ist) "fest installiert wird" und nicht dynamisch und nur die Ebene3 variabel über die Ordnerstruktur hizugefügt wird?

 

Ich meine das anders. Du möchtest das Menü ja erst bei Klick auf eine Schaltfläche erstellen. Das ist aber nicht erforderlich. Du liest die Dateien beim Öffnen das Add-Ins schon ein und erstellst daraus das Dynamicmenu. Ist aber nicht so einfach. Da muss ich selber erstmal überlegen wie ich das am besten mache.

 

Und von welcher Ebene reden wir dabei?
Bleibt die Ebene2 (bisher Dynamic) unangetastet oder veränderst du die auch? Nicht das ich es besser wüsste, ich würde es nur gern verstehen =)

Grüße

 

Hier ein Beispiel für das erste Menü.

Zuerst der RibbonX-Code. Das Tag-Attribut enthält den Namen des Unterordners (OrdnerB in Deiner Datei), der durchsucht werden soll. Und Du musst Dir noch eine passende imageMso auswählen.

Nun zum VBA-Code. Den musst Du normalerweise nicht mehr anpassen, nur für die anderen 6 Hauptmenüs dann den (OrdnerA in Deiner Datei) und natrülich den Namen der Prozedur (aber das weisst Du ja). Die anderen Makros kannst/musst Du beibehalten.

Die Tabelle "MenüDescript" brauchst Du dann nicht mehr.

 

Nachtrag:
Kleiner Fehler bei der Schleife. Die muss bei 1 beginnen, nicht bei 2.
For lngInhalt = 1 To xlLastCell

 

Hallo Rene ..

Das sieht schonmal super aus. Ich kann es leider nicht mehr probieren, da ich daheim nur nen Mac hab.

Aber ich glaub ich hab den Code soweit verstanden. Muss ich dann halt für alle anderen anpassen. aber das ist dann die Fleissarbeit =)

Add1. Du rufst die Routine Dateienauflisten auf die ein Blatt erstellt.
1. kann ich das gleich nach
" strEndZeile = strStartZeile & strInhalt & " ""
wieder löschen? Oder kommt es dann zu Problemen? Eigentlich ja nicht wenn ich richtig denke.
2. Was passiert wenn tatsächlich keine Datei vorhanden ist?

Add2. Hier kann dann alternativ auch meine "kopierroutine" eingefügt /gecallt werden richtig?
Code:

auf jeden Fall erstmal vielen lieben Dank für deine Mühe.
Ich werde dazu morgen berichten =)

Grüße