ich möchte die Datenbeschriftung in Kreisdiagrammen per Makro positionieren. Für jedes Kreisdiagramm habe ich schon einen Code der eine andere Eigenschaft regelt. In diesen Code möchte ich gerne die Positionierung einbauen. Mein Versuch funktioniert leider nicht:
'Datenbeschriftungen in den einzelnen Kreisdiagrammen der Hauptdaten (Auswahl einzeln) werden ausgeblendet wenn
Sub Datenbeschriftung_Kreisdiagramm_Klasse()
Dim Werte As Range, Index As Integer
Dim ch As Chart
Set Werte = Sheets("Auswertung").Range("L77:L83")
Set ch = Sheets("Pflanzungs-Karte").ChartObjects("Diagramm 67").Chart
For Index = 1 To Werte.Cells.Count
With ch.SeriesCollection(1).Points(Index)
If Werte.Cells(Index) < 3 Then
.HasDataLabel = False
Else
.HasDataLabel = True
.DataLabel.Text = Werte.Cells(Index, 1) & "%" 'Anzeige in Prozent
End If
End With
Next Index
Set ch = Nothing
Set Werte = Nothing
'Datenbeschriftung positionieren
With ActiveSheet
.ChartObjects("Diagramm 67").DataLabel.Position = xlLabelPositionInsideEnd
End With
End Sub
Wie ist es richtig?
Grüße aus Berlin