Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
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?
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