Bild aus Range in bestimmter Größe speichern
19.02.2015 13:43:54
Christian
ich versuche mit dem folgenden Makro ein Teil meiner Tabelle zu einem Bild "umzuwandeln" und dieses dann zu exportieren und speichern. Das klappt auch ganz gut, nur wird das Bild im falschen Verhältnis gespeichert. Es müsste 1630 * 580px haben, wird jedoch immer in 1232 * 797px gespeicht. Ich versuchte schon alles mögliche und es scheint, als würde der Hintergrund (Diagrammbereich) das Problem sein. Habt ihr vielleicht eine Idee?
Danke
Hier der Code:
Sub saveimg()
Dim oRange As Range
Dim oCht As Chart
Dim oImg As Picture
Pfad = ThisWorkbook.Path
Set oRange = Range("A6:Y41")
Set oCht = Charts.Add
oRange.CopyPicture xlScreen, xlPicture
With ActiveSheet.ChartObjects.Add(Left:=oRange.Left, Top:=oRange.Top, _
Width:=oRange.Width, Height:=oRange.Height)
.Activate
End With
oCht.Paste
oCht.Export Filename:=pfad & "\SavedRange.png", FilterName:="PNG"
Application.DisplayAlerts = False
oCht.Delete
Application.DisplayAlerts = True
End If
End Sub
Anzeige