Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.84
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.84

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

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

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

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

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

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

Sub Макрос1()

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

' Макрос записан 26.11.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. Их просто надо скопировать в то место программы расчета амортизации, где создается этот объ-

18. Расчет амортизации_145

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

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

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

• либо Вычислить значение заданной функции, например ^(x)=cos2(jc)/(jc4 + х2), при вводимом значении аргумента и вывести найденное значение в поле диалогового окна;

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta