ich habe es geschafft, ein Chart als Grafik zu speichern und in einer UF einzubinden - ist es auch möglich, den markierten Bereich als Grafik zu speichern?
Habe im Inet leider nichts gefunden!
Danke Euch!
Sub tabellenausschnitt_exportieren()
Dim chDiagramm As ChartObject
Dim shBild As Shape
Application.ScreenUpdating = False
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
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:="C:\Test\Bild.png", FilterName:="PNG" ' andere Grafikformate sind mö _
glich
End With
chDiagramm.Delete
Set chDiagramm = Nothing
Set shBild = Nothing
Application.ScreenUpdating = True
End Sub