HERBERS Excel-Forum - die Beispiele

Thema: Diagramm erstellen, in UserForm anzeigen und drucken

Home

Gruppe

Grafik

Problem

Wie kann ich aus einer Excel-Tabelle ein Diagramm erstellen, dieses als Grafikdatei speichern, in eine UserForm laden und von dort aus drucken lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub DiagrammInUserForm()
   Dim cht As Chart
   Set cht = Charts.Add
   Application.ScreenUpdating = False
   cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1:C3"), _
      PlotBy:=xlRows
   cht.Export "test.gif"
   With frmChart.imgChart
      .Picture = LoadPicture("test.gif")
      '.AutoSize = True
   End With
   frmChart.Show
   Kill "test.gif"
   Application.DisplayAlerts = False
   cht.Delete
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm

Diagramm mit vba erstellen Diagramm-Datenpunkte mit neuem Diagramm verküpfen
Diagramme in PowerPoint mit VBA neu befüllen Dynamischer Datenbereich im Diagramm
Kartendiagramm per VBA erstellen und formatieren VBA: Dynamisches Diagramm mit bestimmten Zellberei
Gestapelte Säulen-Diagramm: Ich kapier's nicht 3D-DIagramme
Hilfe bei Diagramm zu PowerPoint VBA Diagramme nach mehreren Balken filtern
fehlerhaftes Punktdiagramm(XY) Diagramme und ihr Format
Jahresgrafik #NV im Kreisdiagramm
Diagrammquelle in Werte umwandeln mit VBA? gestapeltes Balkendiagramm
Grafik - Linie nach unten, Kriterien links "Gestapelte Säulen" Diagramm nebeneinander?
Formatierung anderer Diagramme Dynamisieren - Gleiches Diagramm für alle Blätter
Balkendiagramm - Farbflächen in den Hintergund? Balkendiagramm: 2 Balken voreinander darstellen
spezielles Diagramm Linien-Säulendiagramm auf 2 Achsen
Grafik auf Position bringen Diagrammformatierung übertragen
Skalierung Balkendiagramm Diagrammgröße
Diagramme DIN A3 drucken Werte aus Usf-Berechnung für Diagramm fehlerhaft!
0-Wert im Diagramm unsichtbar machen Diagramm erkennen
Achsen für Exceldiagramm autom. anpassen Frage zu Diagrammdarstellung
Viele Grafiken mit gleicher Größe einfügen Excel Grafiken nur schwarz/weiss
Skalierung Diagramm Excel - Diagramme
Benötige Hilfe bei Diagrammen Fortsetzung Linienfarbe ändern Diagramm
dynamische Datenquelle Diagramm Farbänderung bei Liniendiagramm
Mit einem Makro ein Diagramm löschen Diagramm – Zweite Rubrikenachse
Zweite Y-Achse in Exceldiagramm Leere Zellen interpolieren in Diagramm
Grafik drucken Grafik nach Change in Exceltabelle laden
Diagramm auf Landkarte Skalierung von Diagrammachsen