Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nach Bereich als Bild speichern, verzerrt

Nach Bereich als Bild speichern, verzerrt
Stefan
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nach Bereich als Bild speichern, verzerrt
27.01.2012 12:46:32
Josef

Hallo Stefan,
probier mal
Appearance:=xlPrinter

« Gruß Sepp »

AW: Nach Bereich als Bild speichern, verzerrt
31.01.2012 15:33:23
Stefan
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
Anzeige

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige