Office: (Office 2010) RibbonX Custom UI

Hallo,

ich bin neu auf dem Sektor Custom UI Editor etc. und komme daher gerade nicht weiter.

Habe bereits den Workshop von Mumpel durchgearbeitet, leider finde ich nicht alle notwendigen Informationen, um mein Vorhaben zu beenden.

Ziel: Das Einblenden eines bestimmten Tabs (TAB A) beim Aktivieren von Tabelle A und dabei das Ausblenden von TAB B beim deaktivieren von Tabelle B und vice versa.
Kurz: Entsprechend der aktiven Tabelle ein passendes Tab dazu.

Anbei eine Beispieldatei.

Ich vermute ich habe irgendwo im Klassenmodul einen Fehler, ggf. stimmt aber auch mein XML Anteil nicht.*frown.gif*

Über eine kleine Hilfestellung würde ich mich sehr freuen.

Viele Grüße

Mathieu

EDIT:

In der Datei ist ein Fehler, leider funktioniert es trotzdem nicht..

Im Klassenmodul habe ich das WithEvent falsch benannt

Code:

:)

 

Hallo,

1. Du hast die falsche Schemadatei im XML angegeben.
2. Du hast ein Fantasieereignis im Klassenmodul programiert.

Test mal:

 

Hallo!

Es geht auch ohne Klassenprogrammierung.

In "DieseArbeitsmappe":

Gruß, René

 

Nachtrag:
Die Zeile "Public objRibbonVisible As Boolean" kann m.E. entfernt werden, da nicht genutzt.

 

Hallo,

das funktioniert ja super. Unglaublich wie simpel das sein kann, sind ja nur ein paar Zeilen Code.

Würde jetzt gerne noch den Schnipsel einfügen, damit ich entsprechend den passenden Tab auch aktiv habe. Das hat mir die MSDN.office Hilfe rausgegeben. Kann ich das nutzen? Gehört das "tabActivate" auch in die XML Bestandteile?

Code:

Grüße und vielen lieben Dank

Mathieu

EDIT:

Habe es jetzt so gelöst. Wahrscheinlich nicht die feine engl. Art.

Code:

EDIT 2:

Rätselhafte Ereignisse..

Habe jetzt mal die ganze Sache auf mein Problem angewendet, was tadellos funktioniert hat.
Vier Tabellen, vier Tabs, wechselten problemlos ihren Visible Status.

Habe jetzt Buttons hinzugefügt nach RibbonX Workshop, jetzt heißt es wieder objRibbon.Invalidate --> Fehler: WithBlock variable nicht definiert.

PHP:

         <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="onload_D4XA">
<ribbon startFromScratch="false">
<tabs>
<tab id="tabLOP" label="LOP TOOLS" getVisible="getVisible_TabLOP">
</tab>

<button id="tgb01" label="Show Config" imageMso="ExchangeFolder"
onAction="ButtonOpenConfig_onAction" size="large"/>

<button id="tgb02" label="Open Issues" imageMso="ExchangeFolder"
onAction="ButtonOpenIssues_onAction" size="large"/>

<button id="tgb03" label="Release Issues" imageMso="ExchangeFolder"
onAction="ButtonReleaseIssues_onAction" size="large"/>

<button id="tgb04" label="Insert Hyperlink" imageMso="ExchangeFolder"
onAction="ButtonInsertLink_onAction" size="large"/>

<button id="tgb05" label="Transform Team" imageMso="ExchangeFolder"
onAction="ButtonTransTeam_onAction" size="large"/>

<button id="tgb06" label="Scroll Up/Down" imageMso="ExchangeFolder"
onAction="ButtonScrollTop_onAction" size="large"/>

<button id="tgb07" label="Reset Filters" imageMso="ExchangeFolder"
onAction="ButtonResetFilters_onAction" size="large"/>

<button id="tgb08" label="Add Item" imageMso="ExchangeFolder"
onAction="ButtonAddItem_onAction" size="large"/>

<tab id="tabComplete-LOP" label="COMPLETE LOP TOOLS" getVisible="getVisible_TabCompleteLOP">
</tab>

<tab id="tabPersonal-LOP" label="PERSONAL LOP TOOLS" getVisible="getVisible_TabPersonalLOP">
</tab>

<tab id="tabLOP-Config" label="CONFIG TOOLS" getVisible="getVisible_TabLOPConfig">
</tab>

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


 

Vergib ein Kennwort für das VBA-Projekt. Dann sollte die Fehlermeldung ausbleiben. Weshalb es zu diesen Fehlermeldungen kommt ist unbekannt.

 

Hallo René,

das VB Projekt hat ein Kennwort. Darf ich es dann auch nicht eingeben, um am VB Projekt zu arbeiten?

Grüße

Mathieu

EDIT: Funktioniert leider nicht.
Ich versuche es mal mit einem Button statt mit 8...
Alternativ muss ich wieder an meine Beispieldatei.

EDIT2:Habe nach Recherche einen Verdacht..

losing the state of the global IRibbonUI ribbon object
Das könnte die Lösung sein.

EDIT3: Scheinbar funktioniert mein Onload Ereignis nicht, es wird das Objekt ribbon as IRibbonUI nicht in die Zelle geschrieben, jedenfalls nicht bei meinem Beispiel.... Ich verstehe die Welt nicht mehr.

 

Sobald Du am Code arbeitest kommt es zu diesen Fehlermeldungen. Wenn Du das Projekt mal abgeschlossen hast sollte die Fehlermeldung nicht mehr auftreten. Wie bereits erwähnt ist der Grund für diese Meldung nicht bekannt.

 

Hallo,

anbei das funktionierende Beispiel ohne Passwort.

Grüße

Mathieu

 

Diese Problemlösung findest Du in meinem Workshop auch (IRibbonUI - Objekt wiederherstellen). Das Problem ist dass auch das nicht immer funktioniert. Also darauf verlassen kann man sich nicht.

 

Hallo René,

ah okay, danke.
Wenn es die meiste Zeit funktioniert ist alles gut.^^

Grüße

Mathieu

 

Hallo,

Mein Tool hat ein Workbook_Open Ereignis in "DieseArbeitsmappe" stehen.
Durch Debug.Print konnte ich feststellen, dass dieses Ereignis vor der Ribbon_OnLoad ausgeführt wird, sodass ich erst nach Ende der Workbook_Open Prozedur auf meine Ribbons Prozedur zugreifen kann.


Code:

 

Nein, das ist nicht möglich. Beim Öffnen einer Datei werden immer erst die Ereignismakros (Workbook. Worksheet etc.) abgearbeitet, erst danach das Menüband erstellt. Du kannst also erst im onLoad-Ereignis entsprechend reagieren, wie Du ja schon bemerkt hast.

 

Hallo Gemeinde,

ich wollte mal nachfragen, ob mein Code irgendwie einfacher und besser zu gestalten ist...

Code:

Habe 4 Tabs, die ein/ausgeblendet werden.
Jedem ist ein GetVisible zugeordnet.
Beim worksheet_activate wird RefreshRibbon(Tag) aufgerufen und damit den Prozess des ein/ausblendens eingeleitet.

Reicht ggf. ein GetVisible aus? Die Tabs blenden sich nämlich etwas träge ein/aus und der Code läuft jedes mal durch alle GetVisibles...*frown.gif*

Viele Grüße und besten Dank

Mathieu

 

Würde nichts bringen. Dann gäbe es zwar nur eine Prozedur, die würde aber trotzdem vier mal durchlaufen. Auch die XML wird zeilenweise abgearbeitet.