With ea.ActiveChart

.ChartType = 66

.setSourceData(ea.Sheets("Лист1").Range("A1:B6"), PlotBy:=2)

.HasLegend = False

.HasTitle = True

.ChartTitle.Characters.text = "Продажи за пять месяцев"

.Axes(1, 1).HasTitle = True

.Axes(1, 1).AxisTitle.Characters.Text = "Месяцы"

.Axes(2, 1).HasTitle = True

.Axes(2, 1).AxisTitle.Characters.Text = "Уровни продаж"

.Export("D:\excel.jpg") End With

ea.Visible = True End Sub

End Module