Microsoft Excel

Herbers Excel/VBA-Archiv

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

Chartspace-Problem in UF

Betrifft: Chartspace-Problem in UF von: Dirk
Geschrieben am: 04.09.2004 18:31:54

Hallo!!
In einer Userform habe ich ein Chartspace sowie ein Spreadsheet erstellt.
Alles klappt eigentlich ganz gut, nur schaffe ich es nicht, dem Kreisdiagramm die Prozentangaben hinzuzufügen! Wer hat eine Idee?
Schon jetzt allen vielen Dank!!
Gruss Dirk

Private Sub userform_initialize()
Dim rng As Range
Dim irow As Integer, icol As Integer
Set rng = Tabelle1.Range("a1:l122")
 For icol = 1 To rng.Columns.Count
  For irow = 1 To rng.Rows.Count
  Spreadsheet1.Cells(irow, icol).Value = Tabelle1.Cells(irow, icol).Value
 Next irow
Next icol
ChartSpace1.Clear
Set c = ChartSpace1.Constants
Set cht = ChartSpace1.Charts.Add
ChartSpace1.DataSourceType = chDataSourceTypeSpreadsheet
ChartSpace1.DataSource = Spreadsheet1
ChartSpace1.Charts(0).SeriesCollection.Add
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "a2"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, "b2:d2"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, "B3:d3"
ChartSpace1.Charts(0).SeriesCollection(0).Type = chChartTypePieExploded
ChartSpace1.Charts(0).HasLegend = True
ChartSpace1.Charts(0).HasTitle = True
ChartSpace1.Charts(0).Legend.Position = chLegendPositionBottom
End Sub

  


Betrifft: AW: Chartspace-Problem in UF von: K.Rola
Geschrieben am: 04.09.2004 21:50:15

Hallo,

ChartSpace1.Charts(0).SeriesCollection(0).DataLabelsCollection.Add

Nur wenn du das in Webseiten verwendest, sind die benannten Argumente erforderlich.
Wesentlich schneller ist es, die entsprechenden Long- Werte zu verwenden.

Gruß K.Rola


  


Betrifft: DANKE SCHÖN!! von: Dirk
Geschrieben am: 04.09.2004 23:16:24

Hallo,

vielen Dank für die INFO!! Jetzt klappts...
Grüsse Dirk