Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Diagramm erstellen, in UserForm anzeigen und drucken

Gruppe

Diagramm

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