Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Nach Bereich als Bild speichern, verzerrt | Herbers Excel-Forum


Betrifft: Nach Bereich als Bild speichern, verzerrt von: Stefan K.
Geschrieben am: 27.01.2012 12:07:12

Hallo zusammen,

mit folgendem Code kopiere ich einen Bereich und speichere ihn als Bilddatei ab. Allerdings ist das dann gespeicherte Bild extrem in die Breite gezogen. Hat jemand eine Idee, woran das liegt bzw. wie man es in normalen Größenverhältnissen speichern kann ?

Sub ScreenShot()
Dim wks As Worksheet
Dim cht As Chart
Dim iCounter As Integer
Dim sPath As String
ActiveSheet.PageSetup.PrintArea = ""
sPath = "Z:\Eigene Dateien\Excel\..." 'Hier individueller Pfad
Set wks = Worksheets("Direktauftrag")
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & Cells(Rows.Count, "A").End(xlUp).Row
   wks.Range(wks.PageSetup.PrintArea).CopyPicture _
   Appearance:=xlScreen, _
   Format:=xlPicture
Set cht = Charts.Add
cht.ChartArea.Clear
On Error Resume Next
cht.Paste
On Error GoTo 0
cht.Export sPath & wks.Name & ".gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
End Sub
Besten Dank im Voraus.
Gruß
Stefan

  

Betrifft: AW: Nach Bereich als Bild speichern, verzerrt von: Josef Ehrensberger
Geschrieben am: 27.01.2012 12:46:32


Hallo Stefan,

probier mal

Appearance:=xlPrinter




« Gruß Sepp »



  

Betrifft: AW: Nach Bereich als Bild speichern, verzerrt von: Stefan K.
Geschrieben am: 31.01.2012 15:33:23

Hallo Josef,

vielen Dank für Deine Rückmeldung (sorry, dass ich jetzt erst antworte). Leider hat es damit auch nicht geklappt. Der Effekt tritt auf, wenn der "Fotografierte" Bildausschnitt in das temporäre Chart eingefügt wird. Dann wird der Ausschnitt in die Breite gezogen. Da müsste es sowas geben, wie Bild auf 100% skalieren oder so...

Besten Dank und Gruß
Stefan


Beiträge aus den Excel-Beispielen zum Thema "Nach Bereich als Bild speichern, verzerrt"