Thema: Diagramm exportieren und in Tabellenblatt importieren

Home

Gruppe

Extern

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

Dateiname externer Datei ändern	Tabellenblatt aus externer Exceldatei kopieren
ConboBox mit externe Daten füllen	Wert in externer Datei suchen
Aufruf externer Programme	Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen	Pivot mit Externer DB am Limit?
Externe Verknüpfungen	Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen	Externe Datenquelle via VBA
Pivot mit Externer DB UNION funzt nich	Nur externe Bezüge rausnehmen
*xlt-Dateien als externe Datenquelle nutzen	Externes Programm öffnen
Makro: Bezug auf externes xls-File?	Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern	Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen	externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge....	Externe Verknüpfung finden
externe Bezüge	Summenprodukt + Externe Bezüge
Datenbank in externer Datei	Fehler beim Kopieren von externer Tabelle
anzahl Blätter externer Excel-Datei	Externe Daten aus Access
Externe Daten importieren aus Access	Zellwert als Parameter f. externes Script/Programm
Worksheetzugriff auf externe Datei	Dropdown - externe Daten
Externe Bezüge	Zeitanzeige auf USF wenn ein externes Progr. läut
Externe Daten (QueryTable) ab 1 nummerieren	Schnittstelle extern mit Lampen
Zelleninhalt für externes Programm kopieren	Archivieren externer Dateien in Arbeitsblatt
Externer Vergleich	externe Verknüpfung per Makro einfügen
Externe Verknüpfungen	Externen Text mit Makro einfügen
Abfragekriterium externe Daten verändern	Daten aus externer Mappe einfügen
externes Programm ausführen	externe Verknüpfungen
Externes Programm automatisch schließen	Verknüpfungen externer Dateien auf geöffnete Datei