Microsoft Excel

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und Grafikexport