Dacă doriți să inserați o linie medie orizontală într-o diagramă, puteți calcula mai întâi media datelor și apoi creați diagrama. Vă rugăm să faceți acest lucru:

1. Calculați media datelor cu In medie funcție, de exemplu, în Coloana medie C2, tastați această formulă: = Medie ($ B $ 2: $ B $ 8), apoi trageți mânerul de completare automată al acestei celule în intervalul de care aveți nevoie. Vedeți captura de ecran:

2. Și apoi selectați acest interval și alegeți un format de diagramă pe care doriți să îl inserați, cum ar fi Coloana 2-D sub Insera filă. Vedeți captura de ecran:

3. Și a fost creat un grafic, faceți clic pe una din coloana medie de date (bara roșie) din grafic, faceți clic dreapta și selectați Schimbați tipul graficului în serie din meniul contextual. Vedeți captura de ecran:

4. În pop-out Schimbați tipul diagramei , faceți clic pentru a evidenția Combo în bara din stânga, faceți clic pe caseta din spatele In medie, apoi selectați stilul unei diagrame liniare din lista derulantă. Vedeți captura de ecran:

5. clic pe OK buton. Acum, aveți o linie orizontală care reprezintă media în diagramă, vedeți captura de ecran:

Această metodă va recomanda un instrument uimitor, Adăugați linie în diagramă caracteristică a Kutools pentru Excel, pentru a adăuga rapid o linie medie orizontală la graficul de coloane selectat doar cu 2 clicuri!

Presupunând că ați creat o diagramă a coloanelor, așa cum este prezentată mai jos, și puteți adăuga o linie medie orizontală pentru aceasta, după cum urmează:

1. Selectați diagrama de coloane și faceți clic pe Kutools > Grafice > Adăugați linie în diagramă pentru a activa această caracteristică.

2. În dialogul Adăugați linie în diagramă, verificați In medie și faceți clic pe Ok butonul.

Acum, linia medie orizontală este adăugată la graficul de coloane selectat simultan.

Presupunând că ați creat o diagramă coloană cu datele dvs. în foaia de lucru și următorul cod VBA vă poate ajuta, de asemenea, să inserați o linie medie în diagramă.

1． Faceți clic pe una dintre coloanele de date din graficul dvs. și apoi toate coloanele de date vor fi selectate, vedeți captura de ecran:

2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

VBA: adăugați o linie medie în grafic

Sub AverageLine()
'Update 20130907
Dim ser As Series
Dim arr As Variant
Dim total As Double
Dim outArr As Variant
If VBA.TypeName(Application.Selection) <> "Series" Then Exit Sub
Set ser = Application.Selection
arr = ser.Values
total = Application.WorksheetFunction.Average(arr)
ReDim outArr(LBound(arr) To UBound(arr))
For i = LBound(outArr) To UBound(outArr)
    outArr(i) = total
Next
With ActiveChart.SeriesCollection.NewSeries
    .XValues = ser.XValues
    .Values = outArr
    .Name = "Average " & ser.Name
    .AxisGroup = ser.AxisGroup
    .MarkerStyle = xlNone
    .Border.Color = ser.Border.Color
    .ChartType = xlLine
    .Format.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent6
End With
End Sub

4. Apoi apăsați F5 pentru a rula acest cod și o linie medie orizontală a fost inserată în diagrama coloanelor. Vedeți captura de ecran:

notițe: Acest VBA poate rula numai atunci când formatul de coloană pe care îl introduceți este 2-D Coloană.