Помогите начинающему, пожалуйста.
Пишу код для рисования фигур. Вот его кусок:
Код
Sub ПримерФигуры()
Set Лист = Worksheets(1)
With Лист.Shapes.AddShape(msoShapeRectangle, 10, 10, 210, 110)
With .Fill
.ForeColor.RGB = QBColor(5)
.OneColorGradient msoGradientFromCorner, 1, 1
End With
End With
End Sub
По идее, при активации книги, должна рисоваться указанная фигура, но этого не происходит. Что я делаю не так?