Office: (Office 2007) Bild speichern mit VBA

Gibt es eine Möglichkeit in VBA ein Bild zB. ein ShapeObjekt das auf dem Sheet liegt als gif oder so abzuspeichern ?

:)

 

Schau mal, ob dir das weiterhilft

Online - Excel Programmierung VBA Makro: Grafik Export

 

Ja genau sowas brauche ich...nur leider speichert er das markierte ShapeObjekt und drumherum immer son fetten Weißen Hintergrund. Und dieser stört mich extrem...will ja eigetnlich nur das ShapeObjekt

Habe auch schon versucht ein paar Parameter anzupassen, nur leider ist der Code etwas "zu Hoch" für mich...weißt du woran ma da drehen muss ?

 

Ne, tut mir leid, da weiß ich auch nicht weiter. Das mit dem Rand scheint typisch für das Chartobject zu sein.
Den rechten und den unteren Rand kannst du hier beeinflußen:
iBreite = .Width + 7 ' hier gegebenenfalls anpassen
iHoehe = .Height + 7 ' hier gegebenenfalls anpassen
Aber die Grafik wird im Chartobject immer ein wenig vom linken und oberen Rand eingefügt.
Wenn du nur wenige Grafiken hast, kannst du mit
iBreite = .Width
iHoehe = .Height
arbeiten und die Grafik hinterher in einem Grafikprogramm links und oben beschneiden.

 

Hallo zusammen,

ich habe mich ebenfalls mit diesem Problem beschäftigt und versucht, das Bild mit Hilfe von MSPaint zu speichern und dabei MSPaint per SendKeys fernzusteuern. Leider funktioniert die Aktivierung per AppActivate nicht und ich bekomme in der AppActivate-Zeile den Fehler 5 (Ungültiger Prozeduraufruf oder ungültiges Argument). Durch das "On Error Resume Next" bleibt das Makro dann einfach in der Do...Loop-Schleife stecken.

Vielleicht kann sich das noch jemand anders ansehen und den Fehler beheben. Würde mich natürlich auch interessieren.

Code:

 

Hallo Ingolf,

hier mal eine Möglichkeit ein Bild zu speichern. (Umweg über ein Chart)
Code:

Diesen Code hatte ich mal vor ein paar Monaten im Netz gefunden und etwas angepasst. Vielleicht ist dies ja eine Alternative für Dich.

Gruß
Gerd

 

Hallo Gerd,

ich sag einfach mal dankeschön für deine Antwort im Namen von xmenh (ich selbst bin nicht der Fragesteller). Aber ist das nicht dieselbe Variante, die Stade über einen Link schon vorgeschlagen hat? Wenn ja, vielleicht hast du noch eine Lösung für das Problem mit dem Rand, das dabei noch aufgetreten ist (siehe weiter oben).

Ansonsten bin auch ich weiter interessiert, falls noch jemand sagen kann, warum meine Lösungsvariante nicht läuft. Vielen Dank.

Gruß Ingolf

 

Ich hab folgende Lösung im Internet gefunden.
Durch die Wartezeit nach dem Starten von Paint tritt der Laufzeitfehler
nicht auf

Code:

 

Hallo Jens,

wunderbar! Funktioniert perfekt. Vielen Dank dafür.

Gruß Ingolf