OWC Diagramm bearbeiten
05.12.2007 16:36:28
Janet
ich habe geschafft ein sog. OWC-Diagramm zu erstellen
Es ist ein Kreisdiagramm und soweit funktioniert es auch schon
nur möchte ich auch das mir die Prozentwerte angezeigt werden.
Weiß jemand wie das geht?
Wär toll wenn mir jemand schreibt
Hier der bisherige Code:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim DataCol1(3 To 9)
Dim arrCategories(3 To 9)
ChartSpace1.Clear
For i = 9 To 3 Step -1
arrCategories(i) = Worksheets("Auswertung").Cells(i, 1)
DataCol1(i) = Worksheets("Auswertung").Cells(i, 3)
Next i
With ChartSpace1.Charts.Add
.HasTitle = True
.Title.Caption = "Art der Tierhaltung"
.Type = chChartTypePie
.HasLegend = True
End With
With ChartSpace1.Charts(0)
With .SeriesCollection
.Add.SetData chDimValues, chDataLiteral, DataCol1
End With
.SetData chDimCategories, chDataLiteral, arrCategories
End With
End Sub