VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Diagramm erstellen, in UserForm anzeigen und drucken

Gruppe

Grafik

Bereich

Diagramm

Thema

Diagramm erstellen, in UserForm anzeigen und drucken

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