Ошибка при ссылании на большее количества диграмм - 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
                        