Блог

Я пытаюсь добавить диаграмму в выбранный мной диапазон. Я сталкиваюсь с некоторыми проблемами, пытаясь найти правильный способ сделать это. У меня есть способ сделать что-то в духе

 Dim cht as ChartObject
Dim UserSelection as Range

Set UserSelection = ActiveSheet.Selection
Set cht = ActiveSheet.ChartObjectsy.Add(UserSelection)
 

попытка установить переменную cht приводит к ошибке. Я действительно ищу, как это сделать .Добавьте в выбранный мной диапазон.
заранее спасибо

Подобный этому:

 Dim co, cht as Chart
Dim UserSelection as Range

Set UserSelection = ActiveSheet.Selection

'add a chartobject
Set co = UserSelection.Parent.Shapes.AddChart2(240, xlXYScatter)
co.Name = "myChart"
co.Top = UserSelection.Top 
co.Left = UserSelection.Left
co.Width = 400
co.Height = 400

Set cht = co.Chart 'the contained chart