![]() |
Betrifft: Bereich als Grafik speichern
von: Jonathan
Hey,
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!
![]() |
Betrifft: AW: Bereich als Grafik speichern
von: Daniel
![]() |
Betrifft: AW: Bereich als Grafik speichern
von: Beverly
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
![]() |
Betrifft: AW: Bereich als Grafik speichern
von: Jonathan
Geschrieben am: 10.07.2008 18:03:29
Hey,
das macht echt Spaß, hier Fragen zu stellen - vieln Dank für die Antwort und die super Idee!
![]() |