Ошибка при ссылании на большее количества диграмм - VBA

Формулировка задачи:

Подскажите пожалуйста, ссылаюсь на лист с большим количеством диаграмм чем есть и выводит ошибку, а как только указываю точный диапазон - ошибки нет, как исправить чтоб м.б. не указывать точное количество в названии и ошибку не выбивало?

                    Листинг программы
                
Sub erert()
 
  For q = 1 To 300
    Sheets(2).Shapes("Диаграмма " & q).Height = 300
    Sheets(2).Shapes("Диаграмма " & q).Width = 500
  Next
End Sub

Решение задачи: «Ошибка при ссылании на большее количества диграмм»

textual
                            Листинг программы 
                        
With Worksheets(2).ChartObjects.ShapeRange
     .ScaleHeight 0.5, msoFalse
     .ScaleWidth 0.5, msoFalse
End With

Оцени полезность:

9 голосов , оценка 3.556 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы