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


         

с внедренными графическими объектами лучше



UserForml.Show

'

End Sub

При написании программ с внедренными графическими объектами лучше всего воспользоваться средством MacroRecorder.

Итак, для активизации MacroRecorder выберите команду Сервис, Макрос, Начать запись (Tools, Macro, Record New Macro) и запустите MacroRecorder на запись. После задания всех параметров в появившемся диалоговом окне Запись макроса (Record Macro) и нажатия кнопки ОК появится плавающая панель инструментов с кнопкой Остановить запись (Stop Recording). Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка. Выполните построение объекта WordArt по следующему алгоритму:

  • Нажмите кнопку Добавить объект WordArt (Insert WordArt) панели инструментов Рисование (Drawing).

  • В появившемся окне Коллекция WordArt (WordArt Gallery) выберите нужный стиль надписи. Нажмите кнопку ОК.

  • В появившемся окне Изменение текста WordArt (Edit WordArt Text) установите шрифт и размер отображаемого текста, а также в поле Текст (Text) введите текст, который будет отображаться, например Амортизация . Нажмите кнопку ОК.

  • На рабочем листе появится внедренный объект WordArt. Выберите и перенесите его в требуемое место на этом листе.

  • Для того чтобы разобраться, как происходит программное удаление объекта WordArt с рабочего листа, выделите его и удалите с помощью клавиши <Delete>.

    Перечисленные выше действия будут переведены MacroRecorder в следующий макрос.

    Sub Макрос1()

    ' Макрос1 Макрос

    ' Макрос записан 26.04.99 (Андрей)

    '

    ActiveSheet.Shapes.AddTextEffeet(msoTextEffect!4,

    "Амортизация", "Impact",

    18#, msoTrue, msoFalse, 166.5, 105#).Select

    Selection.ShapeRange.IncrementLeft lilt

    Selection.ShapeRange.IncrementTop -100.5

    ActiveSheet.Shapes("WordArt 1").Select

    Selection.Delete

    End Sub

    Первые три инструкции этого макроса предназначены для создания объекта wordArt. Их просто надо скопировать в то место программы расчета амортизации, где создается этот объект.Две последние инструкции связаны с удалением объектов wordArt с рабочего листа. Подсказка со стороны MacroRecorder очень полезна, т. к. у объекта wordArt нет метода Delete. Удаляемый объект необходимо выбрать, что приведет к образованию объекта selection. Удалять надо не непосредственно объект wordArt, а полученный указанным способом объект Selection. Эта идея как раз и реализована в данном приложении.




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