Office: Chart als Bitmap funktioniert nicht in Office2016

Hallo Case & Excel-Fan's,

Dein Beispiel funtioniert in Excel 2016 so: Code:

Gruß von Luschi
aus klein-Paris

PS: Mit dieser kleinen Änderung funtioniert es auch in E_2010/13

 

Hallo Luschi, *Smilie

Danke für den Hinweis. Habe jetzt auch mal meinen PC mit der 2016er drauf angeworfen. *rolleyes.gif*

Das hatte ich mittlerweile auch schon gefunden, bin aber im Moment noch am probieren an einer Version ohne "Select". *eek.gif*

Bzw. ich habe auch eine entwickelt, die einfach mit dem "Chart" etwas macht (sprich ChartArea befüllen und dann wieder löschen) - das kommt dem "Select" ja gleich. *frown.gif*

In diesem Sinne - schönen Abend noch. *wink.gif*

Servus
Case

 

Also ich hab XL 2010.

Das hier funktioniert tadellos....

Code:

...aaaber!....nur wenn das Diagramm im sichtbaren Bereich liegt, das
Erstellen in einem anderen Blatt spielt dabei merkwürdigerweise keine Rolle.

Mit folgendem Code...

Code:

befindet sich das Diagramm außerhalb des sichtbaren Bereichs.
.Paste läuft in einen Fehler:
Die Methode 'Paste' für das Objekt '_Chart' ist fehlgeschlagen

Wird zuvor wie Luschi angegeben Chartarea selektiert so
ist das .Paste-en kein Problem mehr.

Das Problem hatte ich damals auch und bin durch Zufall beim Testen drauf gestoßen. Merken konnte ich es mir leider nicht.

In Excel 2007 gibt es ähnliche Fälle in denen eine direkte Referenzierung nicht
wirkt/ausreicht, das Objekt muss zusätzlich aktiviert sein.

Ich denke diesen Bug wird es immer wieder geben. Vergessen sollte man ihn nicht. *wink.gif*

 

Hallo xlph,

die Vba-Programmierer werden sich wohl wieder dran gewöhnen müssen, den Code in allen suf dem Markt befindlichen Excel-Versionen zu testen.
Gerade in Excel 2016 habe ich festgestellt, daß bei Grafik-Objekten der Select-Befehlt wieder in Mode kommt, wenn man bestimmte Properties/Methoden aufrufen will - Hoch lebe die Kompatibilität!

Grtuß von Luschi
aus klein-Paris

 

Hallo Karin,

so - jetzt habe ich mich mal durchgewühlt.

Kurz, es funktioniert. *Smilie

Ich habe es zum Testen minimal meiner Bedarfsumgebung angepasst (Diagramm hinzugefügt, eine UserForm steuert die Grafik in der anderen, der Button übergibt den Namen des Bereichs an ExportPicture).

Den Abbruch durch eine leere objPicture habe ich für mich umgangen, indem ich das Laden des Bildes in der UserForm davon abhängig gemacht habe, ob objPicture leer ist oder nicht.

Datei für Interessierte hängt an.

ALSO: Vielen Dank! *Smilie

Morgen werde ich noch testen müssen, ob es auch für 2010 funktioniert... *boah

 

Hallo LumenMundi,

bei mir funktionier es mit Excel2013/16, aber mit einer Einschränkung:
- C:\Temp.gif ist ein ungünstger Ort zum Ablegen der gif-Datei
da bei uns Windows 10 verhindert, daß User ohne Admin-Rechte im Root-Verzeichnis des Betriebssystems Dateien anlegen dürfen - und dann bleibt das Image leer!

Gruß von Luschi
aus klein-Paris


PS: nimm doch das Dokumente-Verzeichnis des angemeldeten Users :
Environ("USERPROFILE") & "\Documents\Termp.gif"

Hast Du meinen Lösungsvorschlag gesehen?

 

So! Ich habe alles in 2016 getestet und es funktioniert !!!! *winner

Ich hatte zwischendurch noch ein paar Aussetzer, da Code:

zu leeren Bildern (HDD und UserForm) geführt hat.


@Luschi
Deine Lösung werde ich auch noch testen

"C:\Test.bmp" und der Rest der Datei (Charts etc) waren nur für den schnellen Test gedacht. Die Bilddatei landet bei mir im Verzeichnis des WorkBooks (und das auch nur kurz, da ==> kill).

Nochmals Gruß und Dank an alle Beteiligten!!!
LM