Clever-Excel-Forum

Seiten: 1 2

Schau mal:

Hallöchen,

siehe hier:

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

@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

Hallo,

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

Viele Grüße,
Bernd

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

Zeig mal deinen Code

Verwende F8 im VBEditor.

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

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 Smile

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

(08.07.2022, 09:28)Enclave schrieb: [ -> ]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

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

Seiten: 1 2

snb

schauan

snb

Sulprobil

Enclave

snb

Enclave

Sulprobil

snb