Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

OWC Diagramm bearbeiten

Betrifft: OWC Diagramm bearbeiten von: Janet
Geschrieben am: 05.12.2007 16:36:28

Hallo,

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


  

Betrifft: AW: OWC Diagramm bearbeiten von: Janet
Geschrieben am: 06.12.2007 08:17:38

Hallo,

ist da jemand der mir hier helfen kann bei diesem Problem???

Bin verzweifelt


  

Betrifft: AW: OWC Diagramm bearbeiten von: Herbert H.
Geschrieben am: 06.12.2007 09:43:15

hallo Janet!

probier das einmal:

With Me.ChartSpace1.Charts(0)
.SeriesCollection.Add
.Type = chChartTypePie
With .SeriesCollection(0)
.SetData chDimValues, chDataLiteral, DataCol1
.SetData chDimCategories, chDataLiteral, arrCategories
Set lab1 = .DataLabelsCollection.Add
With lab1
.HasPercentage = True
.HasValue = False
.Font.Size = 12
.Font.Bold = True
End With
End With
End With


gruß herbert


 

Beiträge aus den Excel-Beispielen zum Thema "OWC Diagramm bearbeiten"