"Красивое имя"
Рядом с логотипом поместим название офиса: "Издательство Родная Речь". Чтобы эта надпись выглядела незаурядно, воспользуемся возможностями, которые предоставляет инструментальная панель WordArt для художественного исполнения надписей. При написании слов "Издательство" и "Родная Речь" я использовал разные стили. С объектной точки зрения каждая из этих надписей представляет объект класса Shape. Я визуально менял свойства этих объектов, а Macrorecorder фиксировал мои действия в макросе с именем "КрасивоеИмя". Вот текст этого макроса:
Sub КрасивоеИмя() ' ' КрасивоеИмя Macro ' Macro recorded 27.11.1999 by Vladimir Billig 'Этот макрос включает инструментальную панель WordArt 'и с ее помощью создает два рисованных объекта класса Shape 'первый из них задает слово "Издательство", второй -"Родная Речь"
ActiveSheet.Shapes.AddTextEffect(msoTextEffect10, "Издательство", _ "Arial Black", 24#, msoFalse, msoFalse, 177.75, 138.75).Select Selection.ShapeRange.IncrementLeft -34.5 Selection.ShapeRange.IncrementTop -126# ActiveSheet.Shapes.AddTextEffect(msoTextEffect4, _ "Р о д н а я Р е ч ь ", _ "Impact", 20#, msoFalse, msoFalse, 197.25, 138.75).Select Selection.ShapeRange.IncrementLeft -30# Selection.ShapeRange.IncrementTop -80.25 End Sub
Листинг 6.20.
(html, txt)
