Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Не меняется тип диаграммы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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]
К сообщению приложен файл: 6082390.xlsm(62.4 Kb) · 1745208.jpg(15.0 Kb)
 
Ответить
СообщениеНе могу разобраться почему не меняется тип диаграммы.
Код на мой взгляд правильный.
Должен отображаться вот так, но он отображает только обычную диаграмму.
помогите пожалуйста разобраться в последней задаче :)


[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]

Автор - Triglav86
Дата добавления - 19.07.2019 в 16:58
Pelena Дата: Пятница, 19.07.2019, 20:03 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14872
Репутация: 3248 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так хотели?
К сообщению приложен файл: 4450268.xlsm(44.3 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак хотели?

Автор - Pelena
Дата добавления - 19.07.2019 в 20:03
Triglav86 Дата: Суббота, 20.07.2019, 08:26 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Да! Большое спасибо! :)
 
Ответить
СообщениеДа! Большое спасибо! :)

Автор - Triglav86
Дата добавления - 20.07.2019 в 08:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не меняется тип диаграммы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!