VBA: Donut Chart - mit Text

Computer: Software & Programmierung Office Software
1

Hallöchen,

leider zeichnet der VBA Makroeditor nicht alles auf.

Status quo:

Sub BildchenMal
 Set X = Sheets("BunteBildchenDaten").Range("A2:smiley:6")
 Charts.Add
 With ActiveChart
 .ChartType = xlDoughnut
 .SetSourceData Source:=X, PlotBy:=xlColumns
 .Location Where:=xlLocationAsNewSheet
 .HasLegend = True
 .Legend.Position = xlRight
 End With
End Sub

Was ich noch brauche:

  1. Dem Diagramm einen Namen geben („Titelzeile“)
    Komischerweise reicht „.Name = BuntesBildchen“ nicht aus (beim Pie-Chart würde es)
  2. Den einzelnen Elementen die Werte zuweisen (stehen in B2:smiley:6)

Danke schön und schönz Wochenende :wink:
Gruss,
Michael

2

Hi.

 ActiveSheet.Shapes.AddChart.Select
 ActiveChart.ChartType = xlDoughnut
 ActiveChart.SetSourceData Source:=Range("A1:A5")
 ActiveChart.SeriesCollection(1).Name = "=""bla"""

Müsste dir helfen.
Ich hab das Makro mit Excel 2007 aufgezeichnet. Hoffe das gilt für deine Version auch, denke, das dürfte kein Problem sein.

Gruss,
Sebastian