Gruppe
Grafik
Problem
Wie kann ich aus einer Tabelle eine Serie von Diagrammen erstellen und diese nacheinander in der Druckansicht anzeigen lassen?
StandardModule: basMain
Sub GrafikenErstellen()
Dim wks As Worksheet
Dim cht As Chart
Dim iRow As Integer
Set wks = ActiveSheet
iRow = 3
Do Until IsEmpty(wks.Cells(iRow, 1))
Set cht = Charts.Add
With cht
.ChartType = xlColumnClustered
.SetSourceData _
Source:=wks.Range( _
wks.Cells(iRow, 1), wks.Cells(iRow, 13)), _
PlotBy:=xlRows
.Location Where:=xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = wks.Cells(iRow, 1).Value
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.PrintPreview
End With
iRow = iRow + 1
Loop
End Sub