Daten-Label positionieren
claudia-jungwirth@web.de
ich möchte gerne die Daten-Label von einem Bubble-Diagramm positionieren.
Hierzu habe ich auch bereits den passenden Befehl gefunden, nur leider funktioniert mein Code noch nicht so wie ich das gerne haben möchte.
Kann mir hierzu geholfen werden?
Mein Code:
'Auswahl einblenden
i = Productnumber
ActiveSheet.ChartObjects("Graph_1").Activate
'Bubble einblenden
ActiveChart.SeriesCollection(i).Select
With Selection.Interior
.ColorIndex = xlNone
.PatternColor = Sheets("Data sheet").Cells(8, i + 6).Interior.Color
.Pattern = xlSolid
.Color = Sheets("Data sheet").Cells(8, i + 6).Interior.Color
End With
ActiveChart.SeriesCollection(i).Select
With Selection.Border
.Color = RGB(0, 0, 0)
.Weight = xlThin
End With
Selection.Shadow = False
' Selection.InvertIfNegative = True
'Data label einblenden
ActiveChart.SeriesCollection(i).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=True, ShowCategoryName:=False, ShowValue:=False, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(i).DataLabels.Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = RGB(0, 0, 0)
.Background = xlAutomatic
.Position = xlLabelPositionBestFit 'Weiß nicht genau ob hier auch wirklich die richtige Stelle ist, wo der Befehl hinpasst?!
End With
Vielen Dank für Eure Hilfe.
Grüße
Claudia