Высокоуровневые методы информатики и программирования. Степанов А.Г. - 102 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

102
свойств. В последних строках программы задается его новое положение на листе, а
сама диаграмма делается активной.
Пример 37. Текст макроса, записанного во время построения диаграммы.
Sub Построение_диаграммы()
' Построение_диаграммы Макрос
' Макрос записан 28.02.2006 (Администратор)
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Лист2").Range("C2:C5"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Зарплата"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Characters.Text = "Сотрудник"
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveSheet.Shapes("Диагр. 25").IncrementLeft 231#
ActiveSheet.Shapes("Диагр. 25").IncrementTop -82.5
ActiveSheet.ChartObjects("Диагр. 25").Activate
End Sub
Часть кодов рассмотренного примера может быть непосредственно внедрена
в программу VBA, причем изменение свойств графика в процессе ее выполнения не-
посредственно отражается на экране во время ее выполнения.
Задание
Используйте согласованный с преподавателем вариант задания (табл. 1), вы-
полненную на его основе таблицу Excel, написанные программы вычислений в таб-
лице, созданный вами класс и созданную пользовательскую форму. Напишите про-
грамму, позволяющую сохранять результаты вычислений в файл произвольного
имени и считывать ранее созданные файлы. Постройте график или семейство гра-
фиков, связанных с данными вашей таблицы. Включите созданные программы в со-
став методов класса и напишите итоговую программу, демонстрирующую возможно-
сти работы с классом на основе всех созданных вами методов.
Порядок выполнения работы
1. Модифицируйте ранее написанную диалоговую программу, запрашивающую
имя файла, так, чтобы использовалось свойство GetSaveAsFilename библиотечного
объекта Application.

Страницы