Не меняется тип диаграммы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не меняется тип диаграммы (Макросы/Sub)

Triglav86

Дата: Пятница, 19.07.2019, 16:58 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 49

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Не могу разобраться почему не меняется тип диаграммы.
Код на мой взгляд правильный.
Должен отображаться вот так, но он отображает только обычную диаграмму.
помогите пожалуйста разобраться в последней задаче

[vba]

Код

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

[/vba]