Clever-Excel-Forum

Seiten: 1 2

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 Smile

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 =)

Hallo,

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

Gruß Uwe

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

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

- 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

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

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

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

Statt sheet1: sheets(1)

ok jetzt wird wieder eine Datei erstellt (alles top Smile

)

aber die Datei ist wieder leer Sad

ich hab mal eine Beispiel Datei hinzugefügt

Seiten: 1 2

Enclave

Kuwer

snb

Enclave

snb

Enclave

snb

Enclave

snb

Enclave