Шаг 101.
VBA в MSExcel.
Работа с графическими объектами. Методы, создающие объекты Shape

    На этом шаге мы начнем рассматривать методы, используемые для создания этих объектов.

    Рассмотрим методы, создающие новые элементы семейства Shapes. Вручную объекты Shape создаются при помощи панели инструментов Рисование (Drawing).

    Метод AddShape возвращает объект Shape. Синтаксис:

  AddShape (Type, 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
Текст этого примера можно взять здесь.

    На следующем шаге мы продолжим изучение этого вопроса.




Предыдущий шаг Содержание Следующий шаг