makro til at lave mellemrum mellem data-labels i en graf

Nedenstående kode viser kun hver anden labe.

Sub VisLabels()
Dim I As Integer
Dim Punkt As Object
I = 0
For Each Punkt In Sheets("Diagram3").SeriesCollection(1).Points
    I = I + 1
    If I Mod 2 = 0 Then
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
    Else
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
    End If
Next
End Sub

Den giver en 'runtime error' 9 ved denne linie:
For Each Punkt In Sheets("Chart 5").SeriesCollection(1).Points - det er fordi jeg har min graf (chart 5) i "Sheet1". kan det lade sig gøre eller skal grafen være i sit eget ark? Og hvad nu hvis man kun vil se f.eks hver 24 data label?
(ps, jeg har prøvet at sætte grafen i sit eget ark - og det virker)

Prøv med

Sub VisLabels2()
Dim I As Integer
Dim Punkt As Object
I = 0
Sheets("Sheet1").Select
ActiveSheet.ChartObjects("Chart 5").Activate
For Each Punkt In ActiveChart.SeriesCollection(1).Points
    I = I + 1
    If I Mod 2 = 0 Then
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
    Else
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
    End If
Next
End Sub

Nåh ja den kunne jo lige trimmes lidt

Sub VisLabels2()
Dim I As Integer
Dim Punkt As Object
I = 0
For Each Punkt In Worksheets("Ark1").ChartObjects("Diagram 1").Chart.SeriesCollection(1).Points
    I = I + 1
    If I Mod 2 = 0 Then
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
    Else
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
    End If
Next
End Sub

Det ser godt ud. Lige bortset fra at den sætter katagori aksens etiketter ind i stedet for..

Du erstatter blot
  xlDataLabelsShowLabel
med
  xlDataLabelsShowValue

Det funker bare ! (Har du et bud  på hvordan jeg 'tænder' for dem igen og hvordan jeg kan nøjes med at vise f.eks hver 10 label ?)

Det lille nummer klarer du med
    xlDataLabelsShowLabel
mens det er
    xlDataLabelsShowNone
der "slukker" for dem.

For kun at tænde hver 10. label skal du lige ændre if-sætningen til følgende:

    If I Mod 10 = 0 Then
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowLabel, AutoText:=True, LegendKey:=False
    Else
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
    End If

Din funktion skal altså nu se således ud

Sub VisLabels10()
Dim I As Integer
Dim Punkt As Object
I = 0
For Each Punkt In Worksheets("Sheet1").ChartObjects("Chart 5").Chart.SeriesCollection(1).Points
    I = I + 1
    If I Mod 10 = 0 Then
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
    Else
        Punkt.ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
    End If
Next
End Sub

super, tester lige.

Og så kunne du måske også have glæde af følgende funktioner til henholdsvis at vise og slukke alle labels:

Sub VisAlleLabels()
Worksheets("Ark1").ChartObjects("Diagram 1").Chart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
End Sub

Sub SlukAlleLabels()
Worksheets("Ark1").ChartObjects("Diagram 1").Chart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
End Sub

YES, det var lige det jeg var ved at skrive om...
tester igen..

Håber ikke du bliver alt for forvirret, når jeg glemmer at ændre "Ark1" til "Sheet1" og "Diagram 1" til "Chart 5".

næ, det er helt ok, men nu kan jeg sgu' ikke slukke igen efter jeg har kørt 'tænderen'?

Det fungerer fint her. Er du sikker på du bruger den rigtige funktion?

Ups, det er mig som fumler. Det virker bare kanon. Point på vej! tak for hjælpen - det var lige det jeg manglede.

Jamen det var da en fornøjelse. Det er jo sjovest når det virker - det er dog sjovere når en flok piger vinder OL!

Det er jo lige det det er!
Har du et bud på hvorfor det virker som det skal når jeg bruger stacked bar diagram, men ikke når jeg bruger stacked area? (VisAlleLabels virker ok, men jeg kan ikke slukke)

Nej det kan jeg ikke lige forstå. Det burde da ikke være noget problem.

Hmmm. Du skriver STACKED - så har du vel også flere serier?! I de ovenstående makroer er der kun taget højde for én dataserie. Det gøres med udtrykket
SeriesCollection(1)
Hvis du skal have fat i andre serier, skal du ændre nummeret.

Jeg havde en lille rutine til at bytte om på serierne, så den har jeg brugt således at jeg bytter om på serierne - og køre SlukAlleLabels igen.

Det funker bare ikke når jeg bruger stacked area - hmm meget mærkeligt. Jeg på vist prøve at gå i tænkeboks, men tak for hjælpen.

OK :0)