Private Sub CommandButton4_Click()
Dim oChart As Chart
Application.DisplayAlerts = False

For Each i In ActiveSheet.Shapes
i.Delete
Next i
' Создаём новую диаграмму
ActiveSheet.ChartObjects.Add(25, 25, 500, 300).Select
With ActiveChart
' Задаём тип диаграммы ( объемная гистограмма )
.ChartType = xl3DBarClustered

' Находим кол-во записей в таблице
M = 2
Do
If Sheets("Áàçà").Cells(M, 1).Value = "" Then Exit Do
M = M + 1
Loop
M = M - 1
' Определяем источник данных для построения диаграммы
Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart.SetSourceData (Sheets("Áàçà").Range("L2:L" + Trim(Str(M))))
PlotBy = xlRows
For i = 2 To M
ActiveChart.SeriesCollection(1).XValues = "=Áàçà!A2:A" + Trim(Str(M))
Next
With ActiveChart
'Заголовок
.HasTitle = True
.ChartTitle.Characters.Text = "Ñóììà îïëàòû âîäó"
'Легенда
.HasLegend = True
.Legend.Select
Selection.Position = xlLeft
.HasDataTable = False
.Axes(xlCategory).MajorTickMark = xlNone
.Axes(xlCategory).MinorTickMark = xlNone
.Axes(xlCategory).TickLabelPosition = xlNone
End With
End With
End Sub