Создание диаграммы с диапазоном, являющимся областью, которую выбрал пользователь. Объект не поддерживает это свойство или метод.

Question

Поэтому мне нужно создать граф, а данные, находящиеся в указанном графе, должны быть диапазоном, который пользователь в настоящее время имеет подчеркнуто, я сделал это хорошо, и граф создает, но ошибка «Объект не поддерживает это свойство или метод», а может кто-то может помочь мне исправить эту ошибку, я пробовал несколько разных способов создания диаграмм, и это только один, который приближается к работе

Мой код для создания диаграммы:

Sub CreateChart() 
ActiveSheet.Shapes.AddChart.Select 
ActiveChart.ChartType = xlBarClustered 
ActiveChart.SetSourceData Source:=ActiveSheet.range(Selection.Address) 
End Sub 

Answer 1

есть несколько возможных ответов ваш вопрос. Во-первых, если вы запустите свой макрос, пользователь может выбрать определенный диапазон. Это означает, что вам нужно только следующий код, чтобы добиться успеха:

Sub CreateChart() 
    ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlBarClustered 
End Sub 

Если вам необходимо установить ссылку на выбранный диапазон в любом случае, вы могли бы сделать это следующим образом:

Sub CreateChart_modif() 
    Dim rngSel As Range 
    Set rngSel = Selection 

    ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlBarClustered 
    ActiveChart.SetSourceData source:=rngSel 
End Sub