Office: Formen ein- und ausblenden per VBA

Hallo!

Leider bin ich unter VBA ein blutiger Anfänger. Allerdings schaue ich mir im Netz schon ein paar Tutorials an und lese hier gerne mit.

Nun möchte ich auf verschiedenen Tabellenblättern Formen (Rahmen) über andere Formen (diese fungieren als Schalter) ein- bzw. wieder ausblenden.

Ich habe dazu eine Beispieldatei hochgeladen.

Anhand der Makroaufzeichnung (Excel 2010) komme ich zu diesen Codeschnipseln:
Code:

Muss es hier "msoTrue" heißen oder genügt hier auch einfach "True"?

Ich würde gerne eine Funktion zum Ein- und Ausblenden erstellen und dann nur noch die einzelnen Formen mit der Funktion "verknüpfen". Wie mache ich das?

Wie muss ich den Schalter (Ellipse 1) mit dem Makro verknüpfen, damit es klappt?

Vielen Dank

:)

 

Rechtsklick auf Form->Form formatieren...->Alternativtext

In Alternativtext schreibst du 'Schalter: {Name der ziel-Form}'

 

Ist das genial!

Danke dir xlph.

 

Darf ich dich noch etwas Fragen, xlph?

Ich habe deinen Vorschlag umgesetzt. Er funktioniert tadellos.

Allerdings habe ich nun noch "Textfelder" und "Gerade Verbindung mit Pfeil" welche ich gleichzeitig mit drücken auf die Ellipse ein- bzw. ausblenden lassen möchte. Die Formen werden auch alle nummeriert.

Da kann man sicher noch etwas an deinem Code ergänzen *idee

Und noch eine Frage, was muss ich bei VBA einstellen, damit ich beim ersten Tippen Vorschläge z. B. aus dem Objektmodell, Schalter etc. erhalte?

 

Hi Sentaso,

mal stellvertretend für xlph.... hoffe mal, xlph hat nix dagegen....*wink.gif*

das Prinzip bleibt das gleiche. Nur, dass Du jetzt irgendwas zum sammeln und zur Aufnahme der unterschiedlichen Objekte benötigst. Hab es mal mit einem Array gemacht. Der Code muss ein klein wenig abgeändert werden:

Code:

Und in den Alternativtext des Schalters gibst Du dann durch Komma getrennt die Namen der Shapes an, die geschaltet werden sollen. Bsp.:

Rahmen rot 2, Gerade Verbindung mit Pfeil 6,Textfeld 7

(eine Rahmen, ein Pfeil und ein Textfeld)

Den Vorsatz "Schalter" hab ich weggelassen...

 

Klasse Ralf.

Es funktioniert so wie ich es mir vorgestellt habe.

Recht herzlichen Dank und einen schönen Freitag.

 

\@ RJ

nicht wenn mein Stil bei behältst ...Ungarische Notation, Variablen-Deklaration, Sorgfalt usw.

Die Bezeichnung "Schalter:" habe ich bewusst eingefügt und sollte den
Zweck der Form beschreiben.

Alternativtext wird gerne als 'Informations-Speicher' missbraucht.

...Alternativtext hilft Personen mit einer Sprachausgabe, den Inhalt von Bildern zu verstehen. Wenn ein Dokument mit Sprachausgabe angezeigt oder in einem Dateiformat wie HTML oder DAISY (Digital Accessible Information System) gespeichert wird, wird in den meisten Browsern Alternativtext eingeblendet, wenn Sie mit dem Mauszeiger auf ein Bild zeigen.

Quelle: Hinzufügen von alternativem Text...

...weiter...

Für blinde Nutzer oder für Benutzer eines einfachen Text-Browser sind Grafiken nicht zugänglich. Deshalb muss für ein barrierefreies bzw. barrierearmes Webdesign über das alt-Attribut ein Alternativtext hinterlegt werden. Dieser soll die Aussage des Bild-Elementes wiedergeben und somit das Grafikelement ersetzen können.

Quelle: Die barrierefreie Website: Alternativtext und Bildbeschreibung

Also, versuchen wird das zu kombinieren und es nicht nur für unsere Zwecke zu nutzen, sondern es auch dafür zu verwenden wozu es auch vorgesehen ist.

@Sentaso

Gebe deinen Formen sinnvolle Namen ohne Leerzeichen " " bzw. ersetze sie durch einen Unterstrich "_".

Code:

 

\@xlph Bin selbst an sauberem Arbeiten sehr interessiert ;-)
Habe meine Formen einheitlich abgekürzt (z. B. T1, T2 = Textfeld 1, Textfeld 2 oder R1, R2 = Rechteck 1... usw.).

Danke für dein neues Code-Snippet.

Interpretiere ich den Teil hier richtig, dass hier das Wort "Schalter" herausgenommen und nur der Text nach dem Wort "Schalter" genutzt wird?
Code: