Bild als Datei Speichern

[snb]

Schau mal:

[schauan]

Hallöchen,

siehe hier:

Thread-Excel-Macro-s-erstellen-nur-leere-Bilder

[snb]

@Shauan

Danke !!

Code:

With Sheets(1)
  .Range("B5:S20").CopyPicture
  With .ChartObjects.Add(0, 0, .Range("B5:S20").Width, .Range("B5:S20").Height).Chart
    .Select
    .Paste
    .Export "R:\INTERN\01. Tagessteuerung\test.png"
    .Parent.Delete
  End With
End With

[Sulprobil]

Hallo,

Ich schlage vor:
http://www.sulprobil.com/sbexportrange2picture_en/

Viele Grüße,
Bernd

[Enclave]

Danke für deine Mühe aber der Code geht immer noch nicht =/

[snb]

Zeig mal deinen Code

Verwende F8 im VBEditor.

[Enclave]

Danke Sulprobil für dein Post,
bei dem war ich nicht fähig das umzustellen das es läuft

---

das Problem hier ist das dass ChartObjekt nicht mit .select angesprochen werden kann.

So weit ich es verstehe.

Code:

Sub test12()


With Sheets(1)
  .Range("B5:S20").CopyPicture
  With .ChartObjects.Add(0, 0, .Range("B5:S20").Width, .Range("B5:S20").Height).Chart
    .Select
    .Paste
    .Export "R:\INTERN\01. Tagessteuerung\test.png"
    .Parent.Delete
  End With
End With

End Sub

---

jetzt geht es mit etwas rumtesten

Code:

  Workbooks("Dienstleister.xlsx").Sheets("Start").Range("A2:S20").CopyPicture

  With ThisWorkbook.Sheets(1).ChartObjects.Add(10, 10, 1000, 300).Chart
  ThisWorkbook.Sheets(1).ChartObjects.Select
    .Paste
    .Export "R:\INTERN\01. Tagessteuerung\test.png"
    .Parent.Delete
  End With
End Sub

[Sulprobil]

Danke  Sulprobil für dein Post,
bei dem war ich nicht fähig das umzustellen das es läuft

---

das Problem hier ist das dass ChartObjekt nicht mit .select angesprochen werden kann.

So weit ich es verstehe.

...

Hallo,

Da muss nichts umgestellt werden.
Du kannst die Sub einfach in eins Deiner Module kopieren und dann von Deinem Code aus aufrufen.

Falls es bei Dir nicht läuft: Welche Fehlermeldung erhältst Du?

Ansonsten: es geht leider nicht ohne Activate, aber Select ist nicht nötig.

Viele Grüße,
Bernd

[snb]

So sollte es unbedingt laufen:

Code:

With Sheets(1) .Range("B5:S20")
  .CopyPicture
  With .Parent..ChartObjects.Add(0, 0,.Width,.Height).Chart
    .Paste
    .Parent.Activate
    .Export "R:\INTERN\01. Tagessteuerung\test.png"
    .Parent.Delete
  End With
End With