Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Häufige Fragen

Diagramm (2) Als Gif Exportieren

Autor: Peter Haserodt - Erstellt: --      - Letzte Revision: --Gruppenthema: 3 Folgen 1 2 3 Sie sind in Folge:2
Diagramm als Gif exportieren - manchmal braucht man es

Ein kurzes Beispiel, wie man ein Chartobject exportiert.

Erstellen Sie eine Mappe und speichern Sie diese.
Erstellen Sie dann im Blatt Tabelle1 ein Diagramm.

Im folgenden Code sind keine Fehlerabfangungen, die müssen Sie selbst noch einbauen.
Ist nur als Beispiel für den ChartExport


	
Public Sub DiagrammAlsGif()
	Dim oBlatt As Worksheet, oDia As ChartObject
	Set oBlatt = Worksheets("Tabelle1")
	With oBlatt
		Set oDia = .ChartObjects(1)
		' Arbeitsmappe muss schon mal gespeichert sein, wegen Pfad
		oDia.Chart.Export ThisWorkbook.Path & "\Test.gif", "GIF"
	End With
End Sub


Dieses Thema hat weitere Beiträge

Diagramm (1) Datenquelle ändern
Diagramm (2) Als Gif Exportieren
Diagramm (3) In Userform im ImageControl

Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA
Nach oben