На этом шаге мы начнем рассматривать методы, используемые для создания этих объектов.
Рассмотрим методы, создающие новые элементы семейства Shapes. Вручную объекты Shape создаются при помощи панели инструментов Рисование (Drawing).
Метод AddShape возвращает объект Shape. Синтаксис:
AddShape (Type, Left, Top, Width, Height)
Аргументы:
- Tуре — специфицирует тип объекта. Допустимо 139 значений. Приведем несколько из них: msoShapeCube (куб), msoShapeRectangle (прямоугольник), msoShapeOval (овал), msoShapeSmileyFace (улыбающееся лицо);
- Left, Top — координаты левого верхнего угла объекта;
- Width, Height — ширина и высота объекта.
Следующая последовательность инструкций создает три графических объекта: прямоугольник, овал и улыбающееся лицо (рисунок 1).
Рис.1. Графические объекты: прямоугольник, овал и улыбающееся лицо
Вручную эти объекты можно было создать на рабочем листе, используя кнопки Прямоугольник (Rectangle) 
,
Овал (Oval) 
панели
инструментов Рисование (Drawing) и кнопку Улыбающееся лицо (Smaley Face) 
из раскрывающегося списка
Автофигуры (AutoShapes) панели инструментов Рисование (Drawing).
ActiveSheet.Shapes. _
AddShape(msoShapeRectangle, 117#, 27.75, 76.5, 40.5).Select
With Selection.ShapeRange
.Line.Weight = 3#
.Line.Visible = msoTrue
.Line.Style = msoLineDash
.Fill.ForeColor.SchemeColor = 13
.Fill.Visible = msoTrue
.Fill.Solid
End With
ActiveSheet.Shapes. _
AddShape(msoShapeOval, 114.75, 109.5, 91.5, 49.5).Select
With Selection.ShapeRange
.Fill.ForeColor.SchemeColor = 45
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Weight = 2.25
.Line.Visible = msoTrue
.Line.Style = msoLineSingle
.Line.ForeColor.SchemeColor = 12
.Line.Visible = msoTrue
End With
ActiveSheet.Shapes. _
AddShape(msoShapeSmileyFace, 254.25, 99#, 70.5, 66#).Select
With Selection.ShapeRange
.Line.ForeColor.SchemeColor = 0
.Line.Visible = msoTrue
.Fill.Solid
End With
На следующем шаге мы продолжим изучение этого вопроса.
