Самоучитель VBA


         

Методы, создающие объекты Shape



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

AddShape Возвращает объект Shape.

Синтаксис:

AddShape (Type, Left, Top, Width, Height)

Аргументы:

  • Tуре — специфицирует тип объекта. Допустимо 139 значений. Приведем несколько из них:

    msoShapeCube (куб), msoShapeRectangle (ПРЯМОУГОЛЬНИК), msoShapeOval (овал), msoShapeSmileyFace (улыбающееся лицо) ;

  • Left, Top — координаты левого верхнего угла объекта ;
  • Width, Height — ширина и высота объекта
  • Следующая последовательность инструкций создает три графических объекта: прямоугольник, овал и улыбающееся лицо (рис. 10.1). Вручную эти объекты можно было создать на рабочем листе, используя кнопки Прямоугольник (Rectangle) Овал (Oval) панели инструментов Рисование (Drawing) и кнопку Улыбающееся лицо (Smaley Face) из раскрывающегося списка Автофигуры (AutoShapes) панели инструментов Рисование (Drawing).

    Рис. 10.1. Графические объекты: прямоугольник, овал и улыбающееся лицо

    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

    AddLine

    Возвращает объект shape, являющийся линией (отрезком).

    Синтаксис:

    AddLine (BeginX, BeginY, EndX, EndY)

    Аргументы:

  • BeginX, BeginY, EndX, EndY — координаты концов отрезка

  • AddTextbox

    Возвращает объект shape, являющийся надписью.

    Синтаксис:

    AddTextbox (Orientation, Left, Top, Width, Height)

    Аргументы:

  • Orientation — устанавливает ориентацию текста в надписи. Допустимые значения:

    msoTextOrientationDownward

    msoTextOrientationHorizontal

    msoTextOrientationMixed

    msoTextOrientationUpward

    msoTextOrientationVertical

  • Left, т.ор — координаты левого верхнего угла объекта

  • width, Height — ширина и высота объекта

  • <

    Содержание  Назад  Вперед