Um ein Diagramm in einer UserForm darzustellen, kannst Du die folgenden Schritte befolgen:
Diagramm erstellen: Stelle sicher, dass Du ein Diagramm in einer Excel-Tabelle hast. Zum Beispiel ein einfaches Säulendiagramm oder ein Excel Spinnendiagramm.
UserForm erstellen: Öffne den VBA-Editor (ALT + F11) und füge eine neue UserForm hinzu.
Image-Control hinzufügen: Ziehe ein Image-Steuerelement auf die UserForm. Dies wird verwendet, um das Diagramm als Bild anzuzeigen.
Diagramm exportieren: Verwende den folgenden VBA-Code, um das Diagramm als Bild zu exportieren:
Private Sub UserForm_Activate()
Worksheets("Tabelle2").ChartObjects("Diagramm 1").Chart.Export _
Filename:="C:\temp\chart.gif", FilterName:="GIF"
With Image1
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture("C:\temp\chart.gif")
End With
End SubUserForm anzeigen: Du kannst die UserForm jetzt über ein Makro aufrufen.
Fehler: Diagramm nicht gefunden
ChartObjects(1).Fehler: Bild wird nicht angezeigt
Falls Du das Diagramm nicht direkt in der UserForm anzeigen möchtest, kannst Du auch folgende Alternativen in Betracht ziehen:
Private Sub UserForm_Activate()
Dim cht As ChartSpace
Set cht = Me.ChartSpace1 ' ChartSpace-Steuerelement in UserForm
cht.SetSourceData Source:=Worksheets("Tabelle2").Range("A1:B10")
cht.Refresh
End SubBeispiel 1: Ein einfaches Säulendiagramm aus den Verkaufszahlen exportieren:
Worksheets("Verkäufe").ChartObjects("Verkaufszahlen").Chart.Export _
Filename:="C:\temp\verkaufszahlen.gif", FilterName:="GIF"Beispiel 2: Ein Excel Spinnendiagramm verwenden:
Worksheets("Tabelle1").ChartObjects("Spinnendiagramm").Chart.Export _
Filename:="C:\temp\spinnendiagramm.gif", FilterName:="GIF"Verwende relative Pfade: Statt absolute Pfade zu nutzen, könntest Du relative Pfade verwenden, um die Portabilität Deiner Excel-Anwendung zu erhöhen.
Automatisierung mit VBA: Automatisiere die Erstellung und den Export des Diagramms, um Zeit zu sparen und Fehler zu minimieren.
Verwende Loop: Wenn Du mehrere Diagramme exportieren musst, nutze eine Schleife, um den Vorgang zu automatisieren.
Dim i As Integer
For i = 1 To 5
Worksheets("Tabelle2").ChartObjects(i).Chart.Export _
Filename:="C:\temp\chart" & i & ".gif", FilterName:="GIF"
Next i1. Frage
Wie kann ich ein 3D-Diagramm in einer UserForm darstellen?
Antwort: Aktuell kann man 3D-Diagramme nicht direkt in UserForms darstellen. Du kannst jedoch das Diagramm als Bild exportieren und es dann in der UserForm anzeigen.
2. Frage
Was ist der Unterschied zwischen ChartObjects und Chart?
Antwort: ChartObjects bezieht sich auf das Diagrammobjekt als Ganzes, während Chart spezifisch auf die Darstellung des Diagramms zugreift. Du kannst beide verwenden, um auf Diagramme in Excel zuzugreifen.