Opdatering af værdier på grafer

Hvordan har du lavet etiketterne? Nå jeg prøver det, opdateres værdierne automatisk.

... det er en del af problemet ;-).. De er lavet ved at højreklikke->dataetiketter->vis værdi.. og normalt opdaterer de sig selv, men nogle gange virker det som om at kæden fra cellen til dataetiketten forsvinder, mens den bliver mellem søjlen og cellen.

Men det kunne tyde på at jeg er den eneste som har prøvet det. Tror at jeg har problemet i tre eller fire regneark hvor der i hver ligger 6-20 grafer

Det har jeg godt nok aldrig stødt på før. Du er helt sikker på at du (eller andre) ikke har været inde og skrive nogen værdier manuelt?

Det er ikke fordi jeg vil beskylde dig for noget - blot prøve de muligheder som jeg lige kan komme i tanke om (hvor banale de end virker).

Prøv evt. at indsætte denne kode i et af dine regneark, og kør koden og se om det hjælper.

Koden ser på alle datasæt i alle diagrammer, og fjerner visning af dataetiketter og viser dem så med det samme igen (det var i hvert tilfælde tanken, så du må sige til, hvis det ikke virker hos dig).

Sub ResetDataLabels()

For Each Diagram In ThisWorkbook.Charts
    For Each Datasæt In Diagram.SeriesCollection
        Datasæt.ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
        Datasæt.ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
    Next Datasæt
Next Diagram

End Sub

Det kunne være, men man regner ikke med at folk tænker sig så lidt om, at de kunne finde på det, men arket bliver brugt af mange....

Makroen virker desværre ikke, men den ville kunne løse problemet... Hvis det er muligt må den meget gerne kunne kontrollere om der i forvejen er dataetiketter, og kun tilføje på de serier hvor der i forvejen er... opgaven er blevet noget større, så sætter lidt flere point på....

Nedenfor er koden revideret, så den først undersøger om serien har dataetiketter.

Du skriver at makroen ikke virker. Hvad er det, der går galt?



Sub ResetDataLabels()

For Each Diagram In ThisWorkbook.Charts
    For Each Datasæt In Diagram.SeriesCollection
        With Datasæt
            If .HasDataLabels Then
                .ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
                .ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
            End If
        End With
    Next Datasæt
Next Diagram

End Sub

Ovenstående gælder, hvis du laver separate ark med dine diagrammer. Hvis du kun har grafer inde i arkene kan du bruge:

Sub ResetDataLabels()

For Each Ark In ActiveWorkbook.Sheets
    For Each Diagram In Ark.ChartObjects
        For Each Datasæt In Diagram.Chart.SeriesCollection
            With Datasæt
                If .HasDataLabels Then
                    .ApplyDataLabels Type:=xlDataLabelsShowNone, AutoText:=True, LegendKey:=False
                    .ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
                End If
            End With
        Next Datasæt
    Next Diagram
Next Ark

End Sub

Perfekt..

Men du skal lige poste det som svar... ellers kan jeg ikke give dig point....

Ups! Det glemte jeg lige ;0)

.