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

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

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

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

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

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

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

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

Sub Макрос!()

Макрос! Макрос

Макрос записан 26.!!. 99 (Владимир)

ActiveSheet.Shapes.AddTextEffeet(msoTextEffectl4 , "Амортизация", "Impact",

18#, msoTrue, msoFalse, 166.5, 105#).Select Selection.ShapeRange.IncrementLeft 111# Selection.ShapeRange.IncrementTop -100.5 ActiveSheet.Shapes("WordArt I").Select Selection.Delete End Sub

Первые три инструкции этого макроса предназначены для создания объекта WordArt. Их просто надо скопировать в то место программы расчета амортизации, где создается этот объ-

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

Самоспюятельное задание

Разработайте приложение, с помощью которого можно:

• либо Вычислить значение заданной функции, например >(х)=со8(л:)/(л: + х), при вводимом значении аргумента и вывести найденное значение в пол диалогового окна;

• либо протабулировать значения этой функции на заданном интервале (с заданным шагом, вывести результат табуляции в список и построить график на рабочем листе).

Операция, выполняемая над функцией, должна устанавливаться выбором переключателя из группы Операция диалоговых окон Значение или График. При выборе переключателя Значение в диалоговом окне должны отображаться только элементы управления, относящиеся к нахождению функции при вводимом значении аргумента (рис. 18.5), а при выборе переключателя График ~ в диалоговом окне должны отображаться только элементы управления, относящиеся к построению графика функции (рис. 18.6).

Функция

• Операции • ф3начение

С График

AprvweHT Функция

Отмена

I -4207

Рис. 18.5. Диалоговое окно «Функция» при выборе переключателя «Значение»

Функция

• OnepazviH •• Значение

< График

Отмена

Аргумент Начальное

Рис. 18.6. Диалоговое окно «Функция» при выборе переключателя «График»