Graf: slet label hvis værdi er = 0

Jeg går ud fra at du henter labels fra dit ark?
I så fald er det vel lettest at styre med en formel i Excel.
Noget á la Hvis(A2=0;"";A1) Eller lignende.

Ellers skal du nok have fat i

    ActiveChart.SeriesCollection(1).XValues = "=Ark1!R2C2:R2C10"

Vil jeg tro.

hejsa,
Jeg havde forestillet mig noget ala dette:

Sub FjerLabelHvisVærdi()
Dim x As Byte ' Antal Serier i graf
Dim y As Byte ' Antal datapunkter i serie (point)
Dim i As Byte ' tæller
Dim z As Byte ' tæller

x = ActiveChart.SeriesCollection.Count

    For i = 1 To x
        y = ActiveChart.SeriesCollection(i).Points.Count
            For z = 1 To y
                If ActiveChart.SeriesCollection(i).Points(z).Value = 0 Then
                    ActiveChart.SeriesCollection(i).Points(z).Label.Visible = False
                End If
            Next z
    Next i
End Sub

Det køre helt fint indtil:

                If ActiveChart.SeriesCollection(i).Points(z).Value = 0 Then
                    ActiveChart.SeriesCollection(i).Points(z).Label.Visible = False

Det er disse to linier som jeg ikke kan hitte ud af (syntax mv). Jeg aner faktisk ikke om man overhoved kan skrive noget med:

point(3).value

eller

point(3).label.visible=true

Det er mest for at vise hvad det er jeg mener.

Håber der er nogen som har de vise sten ;-)

/brille

Har du forsøgt med en omskrivning af

Charts("Chart1").SeriesCollection(1).HasDataLabels = True / False

Eller

Charts("Chart1").SeriesCollection(1).Points(1).ApplyDataLabels

Jeg er på rimelig bar bund her... :o)

hej igen,

problemet er ikke længere at fjerne/sætte label på det enkelte datapoint, men at finde værdien af datapoint xx i seriescollection yy for at bestemme om labelen skal væk eller ej.

Jeg har kigget en del i hjælp mv, men jeg kan sgu ikke finde svaret..

Jeg synes også at have kigget og testet, men heler ikke fundet noget der ligner det. Det er sikkert simpelt hvis man ved hvordan.

ja, jeg kan jo bare håbe på at der er en af hejerne her som har en ide. Tak for dine bud

Så tror jeg det lykkes, løsningen ser således ud (det kan sikkert gøres smukkere..)
For Each Se In ActiveChart.SeriesCollection
    With Se
        SerieNavn = .Name
        Vær = .Formula
        x = Split(Vær, ",")
        Vær = x(2)
        For Counter = 1 To Range(Vær).Cells.Count
            PointVærdi = Range(Vær).Cells(1, Counter).Offset(0, 0).Value
            LabelVærdi = Range(Vær).Cells(1, 1).Offset(0, -1).Value
            If PointVærdi <> 0 Then
                ActiveChart.SeriesCollection(SerieNavn).Points(Counter).HasDataLabel = True
                ActiveChart.SeriesCollection(SerieNavn).Points(Counter).DataLabel.Text = LabelVærdi
            End If
        Next Counter
    End With
Next

..og det skulle have været et svar.

mikker, tak for budet

/brille

Cool, det skal nok kunne bruges en dag.
Hvis bare man bliver ved længe nok :o)