Søjlediagram i Excel

Hvis du i trin 3 ud af 4 i wizarden går ind på fanebladet "Data Labels" og sætter et flue ben ud for Value/Værdi, da vil du få værdierne placeret på¨din graf.

Ja, den funktion kender jeg også, men det er jo blot for de enkelte værdier. Det jeg savner er en for den samlede værdi - altså den samlede højde på søjlen

Den er jo altid 100%

Du kan prøve dette eks...

Private Sub Workbook_SheetCalculate(ByVal Chart As Object)

    total = [F14].Value
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartTitle.Text = "Total = " & total & " stk"
    ActiveWindow.Visible = False
    Windows("Book1").Activate
    Range("A1").Select
End Sub


Summen henter jeg fra celle F14.

Hilsen

Lars

Denne er måske bedre...

Private Sub Workbook_SheetCalculate(ByVal Chart As Object)
    total = [F14].Value
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartTitle.Text = "Total = " & total & " stk"
    ActiveWindow.Visible = False
    ActiveCell.Activate
   
End Sub

Macroen skal ligge under ThisWorkBook i macroeditoren (Alt+F11)

Tak for forslagene - Jeg prøver dem lige og vender tilbage hurtigst muligt

Virker det?

Hilsen

Lars