Gruppe
Extern
Bereich
Grafikexport
Thema
Diagramm exportieren und in Tabellenblatt importieren
Problem
Wie kann ich ein Excel-Diagramm als *.GIF-Grafik exportieren, in ein Tabellenblatt importieren und die Grafik wieder löschen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub DiaExport()
Dim pct As Picture
Dim sFile As String
sFile = Application.Path & "\test.gif"
Sheets("Diagramm1").Export sFile
Application.DisplayAlerts = False
Sheets("Diagramm1").Delete
Application.DisplayAlerts = True
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set pct = ActiveSheet.Pictures.Insert(sFile)
Kill sFile
End Sub