Thema
Diagramm exportieren und in Tabellenblatt importieren
Gruppe
Grafikexport
Problem
Wie kann ich ein Excel-Diagramm als *.GIF-Grafik exportieren, in ein Tabellenblatt importieren und die Grafik wieder löschen?
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