ich habe folgendes Problem:
Ich habe im Archiv folgendes Macro gefunden das mit ein Diagram in einer USerForm darstellt, aber ich habe leider keine Ahnung wie ich das in ein Balken diagramm umändern kann...
Danke
MFG
raphael
Option Explicit
Private Sub UserForm_Activate()
Dim seriesNames(0) As String, categories(7) As Variant, values(7) As Variant
Dim cht As Object, c As Object
Dim i As Integer
seriesNames(0) = "Test"
For i = 0 To 6
categories(i) = "Test " & CStr(i + 1)
values(i) = Cells(i + 1, 1)
Next
Set cht = ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants
cht.Type = c.chChartTypeLine
cht.SetData c.chDimSeriesNames, c.chDataLiteral, seriesNames
cht.SetData c.chDimCategories, c.chDataLiteral, categories
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
End Sub