Bild als Datei Speichern

[Enclave]

Hallo zusammen,

ich weiß zu diesem Thema gibt es viele Posts aber ich komme trotzdem nicht weiter.

ich möchte einen Bereich aus einer anderen Datei als Bild Speichern (mit dem Namen des aktuellen Tages)

vlt hat jemand eine möglichkeit mir zu helfen

dafür habe ich folgenden Code gefunden:

Code:

Sub tabellenausschnitt_exportieren()
Dim chDiagramm As ChartObject
Dim shBild As Shape
Application.ScreenUpdating = False

Workbooks("Dienstleister.xlsx").Sheets("Start").Range("B5:S20").CopyPicture Appearance:=xlPrinter, Format:=xlPicture
'Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture

ThisWorkbook.Sheets("Tabelle2").Paste
'ActiveSheet.Paste
Set shBild = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shBild.Width, shBild.Height)
With chDiagramm.Chart
.Paste
.Export Filename:="R:\CCC\INTERN\01. Tagessteuerung\Bild.png", FilterName:="PNG" ' andere Grafikformate sind mö _
glich
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shBild = Nothing
Application.ScreenUpdating = True
End Sub

Dankeschön =)

[Kuwer]

Hallo,

Code:

.Export Filename:="R:\CCC\INTERN\01. Tagessteuerung\" & Format(Date, "yyyymmdd") & ".png", FilterName:="PNG"

Gruß Uwe

[snb]

Reicht schon:

Code:

Sub M_snb()
  ThisWorkbook.Sheets(1).Range("B5:S20").CopyPicture

  With ThisWorkbook.Sheets(1).ChartObjects.Add(0, 0, 100, 100).Chart
    .Paste
    .Export "G:\OF\snb.png"
    .Parent.Delete
  End With
End Sub

[Enclave]

Danke snb,
jetzt wird eine Datei erzeugt aber die ist Weiß.

Code:

Sub test12()

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

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

End Sub

[snb]

- ich sehe die 'Range' nicht


Warum nicht ?

Code:

Sub test12()
  with Workbooks("Dienstleister.xlsx").Sheets("Start")
    .Range("B5:S20").CopyPicture

     With .ChartObjects.Add(0, 0, 100, 100).Chart
      .Paste
      .Export "R:\INTERN\01. Tagessteuerung\test.png"
      .Parent.Delete
     End With
  Ebd With
End Sub

[Enclave]

Ich versuche mit meinem Wissen viel rum zu experementieren, aber leider komme ich nicht an die Lösung.

hier bei erhalte ich leider einen Anwendungs- oder objektdefinierten Fehler

Code:

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

     With .ChartObjects.Add(0, 0, 100, 100).Chart    ' <--- Fehler
      .Paste
      .Export "R:\INTERN\01. Tagessteuerung\test.png"
      .Parent.Delete
     End With
 
  End With

[snb]

Dann so

Code:

Sub M_snb()
  if dir("G:\OF\snb.png")<>"" then kill "G:\OF\snb.png"

  With Sheet1
      .Range("B5:S20").CopyPicture
      With .ChartObjects.Add(0, 0, .Range("B5:S20").Width, Range("B5:S20").Height).Chart
        .Paste
        .Export "G:\OF\snb.png", "PNG"
        .Parent.Delete
      End With
  End With
End Sub

[Enclave]

hmm... ich verstehe es nicht, aber es geht immer noch nicht.

(ich habe auch versucht "Sheet1" zu ändern um die richtige Datei anzusprechen...
ich bekomme hier ein Objekt Fehler)

PS. ich nutze Excel 2016 falls das hilft

Code:

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

[snb]

Statt sheet1: sheets(1)

[Enclave]

ok jetzt wird wieder eine Datei erstellt (alles top )


aber die Datei ist wieder leer

---

ich hab mal eine Beispiel Datei hinzugefügt