На этом шаге мы рассмотрим методы AddTextEffect и AddPicture.
Метод AddTextEffect возвращает объект Shape, являющийся WordArt-объектом. Синтаксис:
AddTextEffect (PresetTextEffeet, Text, FontName, FontSize, _
FontBold, FontItalic, Left, Top)
Аргументы:
- PresetTextEffect — устанавливает текстовой эффект. Допустимые значения от msoTextEffect1 до msoTextEffect30;
- Text — текст, отображаемый в объекте WordArt;
- FontName — название шрифта;
- FontSize — размер шрифта;
- FontBold — допустимые значения: True (полужирный шрифт), False (в противном случае);
- FontItalic — допустимые значения: True (курсивный шрифт), False (в противном случае);
- Left, Top — координаты левого верхнего угла объекта.
Метод AddPicture возвращает объект Shape, являющийся рисунком, созданным на основе существующего файла. Синтаксис:
AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
Аргументы:
- FileName — строка, задающая имя файла, на основе которого создается рисунок;
- LinkToFile — допустимые значения: True (рисунок связан с файлом, на основе которого создан) и False (в противном случае);
- SaveWithDocument — допустимые значения: True (сохраняется рисунок с рабочей книгой) и False (в рабочей книге сохраняется связь с рисунком, а не сам рисунок);
- Left, Top — координаты левого верхнего угла объекта;
- Width, Height — ширина и высота объекта.
Следующая последовательность инструкций создает WordArt-объект (рисунок 1) и скрывает от пользователя панель инструментов WordArt.
Рис.1. WordArt-объект
Вручную этот объект можно было создать на рабочем листе, используя кнопку Добавить объект WordArt (Insert WordArt)
панели инструментов Рисование (Drawing).
ActiveSheet.Shapes.AddTextEffect(msoTextEffect27, _
"VBA " & Chr(13) & "" & Chr(10) & "Лучшее решение", _
"Impact", 36#, msoFalse, msoFalse, 87#, 45#).Select
Application.CommandBars("WordArt").Visible = False
Со следующего шага мы начнем рассматривать основы программирования на VBA.
