Daten-Label positionieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: Daten-Label positionieren
von: Student
Geschrieben am: 08.10.2015 09:12:02

Hallo zusammen,
momentan verwende ich folgenden Code, um Höhe der Position festzulegen:


ActiveChart.SeriesCollection(8).Points(40).DataLabel.Select
     Selection.Top = 5.598

Da es sich aber um dynamischen Daten handelt, ändert sich die horizontale Position bei jeder Aktualisierung. Wie kann ich das Label so positionieren, dass es horizontal immer schön mittig platziert wird?
Habe mit Recorder folgendes aufgenommen:

Selection.Position = xlLabelPositionOutsideEnd

Leider wird nicht unterstütz :(
Könnte mir evtl. jemand helfen?
Regards,
Student

Bild

Betrifft: AW: Daten-Label positionieren
von: Beverly
Geschrieben am: 10.10.2015 21:21:11
Hi,
die Label werden doch in horizontalier Ausrichtung automatisch mittig an den Datenpunkten positioniert - oder meinst du vertikal mittig (bei einem Säulendiagramm)?

Sub BeschriftungslabelVertikalMittig()
    Dim lngReihen As Long
    Dim lngPunkte As Long
    Dim serReihe As Series
    Dim dblOben As Double
    With ActiveSheet.ChartObjects(1).Chart
        dblOben = .Axes(xlCategory).Top
        For lngReihen = 1 To .SeriesCollection.Count
            Set serReihe = .SeriesCollection(lngReihen)
            With serReihe
                For lngPunkte = 1 To .Points.Count
                    .Points(lngPunkte).DataLabel.Top = dblOben - _
                        (dblOben - .Points(lngPunkte).Top) / 2
                Next lngPunkte
            End With
        Next lngReihen
        Set serReihe = Nothing
    End With
End Sub




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten-Label positionieren"