Как создать диаграмму с помощью макроса
Иногда не хочется тратить время на составление диаграммы. Представьте сами - вкладка "Вставка", кнопка диаграммы, выбор типа, выделение ячеек для "забора" данных, перемещение, переименование!.. И это еще не всё, это мы так, пробежались. Гораздо проще указать все условия сразу в макросе! Как? Смотрите наше новое видео!
Текст макроса:
Sub CreateChart()
' Создание и настройка диаграммы
With Charts.Add
' Данные из первого листа
.SetSourceData Source:=Worksheets(1).Range("A2:E4")
' Заголовок
.HasTitle = True
.ChartTitle.Text = "Выручка по магазинам"
' Активизируем диаграмму
.Activate
End With
End Sub
' Создание и настройка диаграммы
With Charts.Add
' Данные из первого листа
.SetSourceData Source:=Worksheets(1).Range("A2:E4")
' Заголовок
.HasTitle = True
.ChartTitle.Text = "Выручка по магазинам"
' Активизируем диаграмму
.Activate
End With
End Sub
Всем удачи!