Невозможно сделать эту ссылку

Question

По какой-то причине я продолжаю получать сообщение об ошибке при попытке этого кода

Set chtObj = ActiveWorkbook.Sheet2.ChartObjects.Add(Range("D3:M20").Left, Range("D3:M20").Top, Range("D3:M20").Width, Range("D3:M20").Height)

Answer 1

Какую именно ошибку вы получаете?Оператор Set должен быть объявлен внутри процедуры.

Я попытался быстро, и следующий код компилируется без проблем.

Sub foo()
Dim chtObj As ChartObject
Set chtObj = Worksheets("Sheet2").ChartObjects.Add(Range("D3:M20").Left, Range("D3:M20").Top, Range("D3:M20").Width, Range("D3:M20").Height)
End Sub

Answer 2

Лучше было бы написать, используя With, чтобы ваши диапазоны по умолчанию не совпадали с другими листами:

With Sheet2.Range("D3:M20")
    Set chtObj = .Parent.ChartObjects.Add(.Left, .Top, _
                                          .Width, .Height)
End With

Возможно, вам потребуется настроить ссылку на лист (в зависимости от того, какую именно ошибку вы получаете).