ошибка автоматизации при создании диаграммы

Я пытаюсь создать диаграмму из таблицы.

Таблица находится в моем листе «Тест», и я хочу, чтобы мой график находился в листе «статус».

Я использую код, в котором я получаю ошибку автоматизации в строке

.SetSourceData Source:=rng 

Я не получаю ошибку каждый раз. за каждые 30 или более итераций я получаю эту ошибку.

Может ли кто-нибудь помочь, как я могу это исправить?

 Sub chart() Dim rng As Range Dim cht As Object Dim Ws As Worksheet Set Ws = Sheets("Test") Set rng = Ws.Range("G1:J2") Set sh = ActiveSheet.ChartObjects.Add(Left:=400, _ Width:=390, _ Top:=100, _ Height:=250) sh.Select Set cht = ActiveChart With cht .SetSourceData Source:=rng .ChartType = xlColumnClustered ActiveChart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ActiveChart.FullSeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) ActiveChart.FullSeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) ActiveChart.FullSeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(80, 100, 10) 'cht.Axes(xlSecondary).TickLabels.NumberFormat = "0.0%" End With 'cht.SeriesCollection(1).name = "" cht.SeriesCollection(1).HasDataLabels = True cht.HasTitle = True cht.ChartTitle.Text = "Status" End Sub 

Попробуйте:

 Sub chart() Dim rng As Range Dim cht As Chart Dim Ws As Worksheet Set Ws = ThisWorkbook.Sheets("Test") Set rng = Ws.Range("G1:J2") Set sh = ThisWorkbook.Sheets("status") sh.Shapes.AddChart(Left:=400, Top:=100, Width:=390, Height:=250).Select Set cht = ActiveChart With cht .SetSourceData Source:=rng .ChartType = xlColumnClustered .SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) .SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) .SeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) .SeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(80, 100, 10) .ChartTitle.Text = "Status" End With End Sub 
Interesting Posts

excel с именем range copy от листа до листа

Проблема с экспортом рабочей таблицы Excel в файл CSV на общем сетевом диске

TFS2010: открытие некоторых отчетов Excel дает ошибку TF80076

Получать данные с веб-страницы с помощью VBA

Обновление значения ячейки из-за изменения в другой ячейке вручную только один раз

excel vba, выбирая блок ячеек

Как открыть файл excel с несколькими листами в пандах?

Проблема с распознаванием функции Mac Excel 2011 VBA Dir ()

Как увидеть имена кнопок управления формой в Excel / VBA

Программно удалить источник данных Mailmerge с помощью VB.NET

Подсчитайте количество ячеек в диапазоне, который соответствует содержимому другой ячейки

Измените цвет табуляции листов Excel с помощью рубина

Добавление различных произвольно сгенерированных чисел в лист Excel с помощью VB.NET

Конвертировать дату с 1-го по конец месяца до 1-го числа в месяц

MS Word VBA: управление рабочей книгой Excel из слова – требуемая ошибка объекта

Давайте будем гением компьютера.