Office: Grafiken per VBA in Excel zentrieren

Hallo Beverly, in meiner hochgeladenen Beispieldatei funktioniert der Code prima. Bei der Originalen kommt jedoch beim auswählen "Laufzeitfehler 13, Typen unverträglich" und der Debugger springt zur Zeile

"For Each picBild In ActiveSheet.Pictures" und markiert diese gelb*confused.gif*

 

Kann es sein dass du andere Bilder verwendest? Möglicherweise können sie nicht als Picture angesprochen werden. Dann kannst du versuchen, dass du sie stattdessen als Shape ansprichst - ändere diesen Teil

Code:

und an allen Stelle wo Pictures steht ersetzt du es durch Shapes (kann man mit Suchen und Ersetzen machen).

 

Jetzt kommt anwedungs und objektdefinierter Fehler und die Zeile darunter wird markiert

 

Also das mit den roten 'Bildnamen' stimmt nicht mit den DropDown-Inhalten überein.

Zu meiner Datei:

Im Blatt 'Einstellungen' trägst du bitte alle Zell-Adressen (bei verbundenen Zellen
nur die Adresse der oberen linken Zelle) der DropDowns in Spalte A und der
BildContainer in Spalte B ein. Die DropDowns und die BildContainer findest
du ja im Blatt 'Abfrage'.

Weiter trägst du in Spalte D die Bezeichnungen und in Spalte E die zugehörigen
Bildnamen ein. Diese Angaben findest du ja im Blatt 'Bilder'.

Codes befinden sich in folgenden Modulen, welche du in deine Original-Datei
übernehmen musst:

- Modul1 (Standardmodul)
- Tabelle1(Abfrage) (Klassenmodul der Tabelle)

In der Originaldatei müssen die Blätter "Abfrage","Bilder","Einstellungen"
vorhanden sein. Sind diese anders benannt, müssen im Code die Blatt-Bezeichnungen
geändert werden

Nachtrag:
Wo die Bezeichnungen und wie die Bilder im Blatt 'Bilder' angeordnet sind spielt keine Rolle.
Die Zuordnung ist/wird in im Blatt 'Einstellungen' festgelegt

 

Hi Caro,

dann lade doch mal eine Beispielmappe mit den tatsächlichen Bedingungen hoch.

 

Sry für meine späte Rückmeldung. Die Methode von xlph hat jetzt doch geklappt.

Vielen, vielen Dank für eure Hilfe