End With

Charts.Add

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A2:D6"), PlotBy:= _

XlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "Расчет зарплаты"

.Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ФИО"

.Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Выплаты"

End With

End Sub

Запуск макроса другими способами

Можно запускать созданный макрос другими способами: