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


         

Следующая последовательность инструкций создает три


/p> Следующая последовательность инструкций создает три графических объекта: две линии, первая из которых со стрелкой, вторая без стрелки и текстовое поле (рис. 10.2). Вручную эти объекты можно было создать на рабочем листе, используя кнопки Стрелка (Arrow) Линия (Line) и Надпись (Text Box) панели инструментов Рисование (Drawing).



Рис. 10.2. Графические объекты: линии и текстовое поле

'

' Линия со стрелкой

'

ActiveSheet.Shapes.AddLine(571, 30#, 174#, 59.25).Select

With Selection.ShapeRange.Line

.Weight = 6#

.Visible = msoTrue

.Style = msoLineSingle

.BeginArrowheadStyle = msoArrowheadNone

.EndArrowheadStyle = msoArrowheadTriangle

.EndArrowheadWidth = msoArrowheadWidthMedium

.EndArrowheadLength = msoArrowheadLengthMedium

.Visible = msoTrue End With

'

' Простая линия

'

ActiveSheet.Shapes.AddLine(219.75, 23.25, 334.5, 67.5).Select

With Selection.ShapeRange.Line

.Visible = msoTrue

.Style = msoLineThinThick

.Weight =4.5

End With

'

' Текстовое поле

'

ActiveSheet.Shapes.

AddTextbox(msoTextOrientationHorizontal,

69.75, 87.75, 116.25, 76.5).Select

Selection.Characters.Text = "Пример двух линий"

With Selection.Characters(Start:=1, Length:=17).Font

.Name = "Arial Cyr"

.FontStyle = "полужирный"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

. Colorlndex = 5

End With

With Selection.ShapeRange.Fill

.ForeColor.SchemeColor = 42

.Visible = msoTrue

.Solid End With













































AddTextEffect



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

Синтаксис:

AddTextEffect (PresetTextEffeet, Text, FontName, FontSize, FontBold, Fontltalic, Left, Top)

Аргументы:

  • PresetTextEf feet — устанавливает текстовой эффект. Допустимые значения от msoTextEffect1 до msoTextEf fect30

  • Text — текст, отображаемый в объекте WordArt

  • FontName — название шрифта

  • Fontsize — размер шрифта

  • FontBold — допустимые значения: True (полужирный шрифт), False (в противном случае)

  • Fontltalic — допустимые значения: True (курсивный шрифт), False (в противном случае)

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



  • AddPicture



    • Возвращает объект shape, являющийся рисунком, созданным на основе существующего файла. Синтаксис:

    • AddPicture (FileName, LinkToFile, SaveWithDocument , Left, Top, Width, Height)

    • FileName — строка, задающая имя файла, на основе которого создается рисунок

    • LinkToFile — допустимые значения: True

      (рисунок связан с файлом, на основе которого создан) и False (в противном случае)

    • SaveWithDocument — допустимые значения: True(сохраняется рисунок с рабочей книгой) и False (в рабочей книге сохраняется связь с рисунком, а не сам рисунок)

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

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



    Следующая последовательность инструкций создает WordArt-объект (рис. 10.3) и скрывает от пользователя панель инструментов WordArt. Вручную этот объект можно было создать на рабочем листе, используя кнопку Добавить объект WordArt (Insert WordArt) панели инструментов Рисование (Drawing).



    Рис. 10.3. WordArt-объект

    ActiveSheet.Shapes.AddTextEffeet(msoTextEffect27,_

    "VBA " & Chr(13) & "" & Chr(10) & "Лучшее решение",

    "Impact", 36#, msoFalse, msoFalse, 87tt, 45#).Select

    Application.CommandBars("WordArt").Visible = False


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