Макрос для рисования в excel - Word и Excel - помощь в работе с программами

Работа с фигурами в VBA Excel: создание фигур методом Shapes.AddShape, типы фигур (MsoAutoShapeType), обращение к фигурам и изменение их свойств. Примеры.

Объекты для работы с фигурами

Фигуры в VBA Excel представлены тремя объектами:

Объект	Описание
Shapes	Коллекция всех фигур на рабочем листе. Используется для создания новых фигур, для обращения к одной фигуре по имени и для перебора фигур циклом.
ShapeRange	Коллекция нескольких фигур, аргументом которой является массив имен выбранных объектов. Используется для редактирования сразу всех фигур, входящих в эту коллекцию.
Shape	Объект, представляющий одну фигуру. Используется для редактирования одной этой фигуры.

Фигуры в VBA Excel создаются методом Shapes.AddShape.

Синтаксис метода AddShape

Shapes.AddShape (Type, Left, Top, Width, Height)

Shapes — выражение, возвращающее коллекцию фигур на рабочем листе, например: ActiveSheet.Shapes.

Параметры метода AddShape

Параметр	Описание
Type	Константа из коллекции MsoAutoShapeType, определяющая тип создаваемой фигуры.
Left	Расстояние от левой границы фигуры до левой границы табличной части рабочего листа в пунктах.. Тип данных — Single.
Top	Расстояние от верхней границы фигуры до верхней границы табличной части рабочего листа в пунктах.. Тип данных — Single.
Width	Ширина фигуры по внешним границам в пунктах.
Height	Высота фигуры по внешним границам в пунктах.

Все параметры метода Shapes.AddShape являются обязательными.

Константы MsoAutoShapeType

Константы коллекции MsoAutoShapeType, определяющие основные типы создаваемых фигур:

Константа	Значение	Тип фигуры
msoShapeRectangle	1	Прямоугольник
msoShapeParallelogram	2	Параллелограмм
msoShapeTrapezoid	3	Трапеция
msoShapeDiamond	4	Ромб
msoShapeRoundedRectangle	5	Прямоугольник: скругленные углы
msoShapeOctagon	6	Восьмиугольник (октаэдр)
msoShapeIsoscelesTriangle	7	Равнобедренный треугольник
msoShapeRightTriangle	8	Прямоугольный треугольник
msoShapeOval	9	Овал
msoShapeHexagon	10	Шестиугольник (гексаэдр)
msoShapeCross	11	Крест
msoShapeRegularPentagon	12	Пятиугольник (пентаэдр)
msoShapeCan	13	Цилиндр
msoShapeCube	14	Куб
msoShapeDonut	18	Круг: прозрачная заливка (кольцо)
msoShapeLightningBolt	22	Молния
msoShapeSun	23	Солнце
msoShapeMoon	24	Месяц (луна)
msoShape5pointStar	92	Звезда: 5 точек (пятиконечная)
msoShapeCloud	179	Облако

Все доступные константы из коллекции MsoAutoShapeType смотрите на сайте разработчиков.

Создание объекта ShapeRange

Создание коллекции ShapeRange из выбранных фигур:

Dim myShapeRange As ShapeRange

Set myShapeRange = ActiveSheet.Shapes.Range(Array(«Пятиугольник 140», «Солнце 141», «Облако 144»))

Объектная переменная myShapeRange не обязательна, можно обратиться непосредственно к возвращенной коллекции, например, присвоив всем ее элементам синий цвет:

ActiveSheet.Shapes.Range(Array(«Пятиугольник 140», «Солнце 141», «Облако 144»)).Fill.ForeColor.RGB = vbBlue

Примеры работы с фигурами

Пример 1

Создание пяти разных фигур из кода VBA Excel методом Shapes.AddShape:

Sub Primer1()

With ActiveSheet.Shapes

‘При создании фигуры без присвоения ее переменной скобки не нужны

.AddShape msoShapeCube, 30, 40, 72, 72

.AddShape msoShapeIsoscelesTriangle, 130, 40, 72, 72

.AddShape msoShapeSun, 230, 40, 72, 72

.AddShape msoShapeLightningBolt, 330, 40, 72, 72

‘Чтобы выбрать фигуру, параметры необходимо заключить в скобки

.AddShape(msoShapeCloud, 430, 40, 72, 72).Select

End With

End Sub

Результат работы кода:

Пример 2

Работа с одной фигурой:

Sub Primer2()

Dim myShape As Shape

‘Создаем фигуру «Месяц» и присваивает ссылку на нее переменной myShape

Set myShape = ActiveSheet.Shapes.AddShape(msoShapeMoon, 50, 50, 80, 80)

With myShape

‘Меняем высоту и ширину фигуры

.Height = 150

.Width = 100

‘Меняем цвет фигуры

.Fill.ForeColor.RGB = vbYellow

‘Поворачиваем фигуру влево на 40 градусов

.Rotation = —40

End With

End Sub

Пример 3

Редактирование одновременно нескольких фигур с помощью коллекции ShapeRange:

Sub Primer3()

With ActiveSheet.Shapes.Range(Array(«Овал 1», «Овал 2», «Овал 3»))

‘Меняем цвет всех фигур из коллекции ShapeRange

.Fill.ForeColor.RGB = vbBlue

‘Задаем высоту и ширину овалов

.Height = 150

.Width = 50

‘Поворачиваем фигуры вправо на 45 градусов

.Rotation = 45

End With

End Sub

Пример 4

Редактирование одновременно всех фигур на рабочем листе с помощью коллекции ShapeRange:

Sub Primer4()

Dim myShapeRange As ShapeRange, i As Integer, _

myShape As Shape, myArray() As String

‘Задаем массиву размерность от 1 до количества фигур на листе

ReDim myArray(1 To ActiveSheet.Shapes.Count)

‘Проходим циклом по всем фигурам коллекции и записываем их имена в массив

For Each myShape In ActiveSheet.Shapes

i = i + 1

myArray(i) = myShape.Name

‘Создаем коллекцию ShapeRange и присваиваем ссылку на нее переменной myShapeRange

Set myShapeRange = ActiveSheet.Shapes.Range(myArray)

With myShapeRange

‘Изменяем цвет всех фигур на рабочем листе

.Fill.ForeColor.RGB = RGB(100, 150, 200)

‘Поворачиваем все фигуры вокруг вертикальной оси

.Flip msoFlipVertical

End With

End Sub

Пример 5

Добавление надписи (текста) на фигуру:

Sub Primer5()

Dim myShape As Shape

Set myShape = ActiveSheet.Shapes.AddShape(msoShapeCloud, 50, 30, 300, 300)

With myShape.TextFrame2

‘Добавление текста на фигуру

.TextRange.Characters.Text = «Объект TextFrame представляет текстовую рамку в объекте Shape. Содержит текст в текстовом кадре, а также свойства и методы, которые контролируют выравнивание и закрепление текстового кадра.»

‘Задаем курсивное начертание

.TextRange.Characters.Font.Italic = True

‘Указываем размер шрифта

.TextRange.Characters.Font.Size = 13

‘Отступ левой границы текстового поля от левой внутренней границы фигуры

.MarginLeft = 30

‘Отступ верхней границы текстового поля от верхней внутренней границы фигуры

.MarginTop = 20

End With

End Sub

Результат работы кода:

Изменить цвет текста, например на черный, можно двумя способами:

‘С помощью константы MsoThemeColorIndex

myShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1

‘С помощью цветовой модели RGB

myShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)

С константами из коллекции MsoThemeColorIndex вы можете ознакомиться на сайте разработчиков.

Пример 6

Удаление фигур с рабочего листа из кода VBA Excel с помощью метода Delete.

Удаление одной фигуры:

ActiveSheet.Shapes(«Ромб 5»).Delete

Удаление нескольких фигур:

ActiveSheet.Shapes.Range(Array(«Овал 1», «Овал 2», «Овал 3»)).Delete

Удаление всех фигур с рабочего листа с помощью цикла:

Sub Primer6()

Dim myShape As Shape

For Each myShape In ActiveSheet.Shapes

myShape.Delete

End Sub

В 7 примере рассмотрено удаление всех фигур без цикла.

Пример 7

Выделение всех фигур на рабочем листе:

ActiveSheet.Shapes.SelectAll

Выбор всех фигур и удаление выбранного (всех фигур):

Sub Primer7()

ActiveSheet.Shapes.SelectAll

Selection.Delete

End Sub

Продолжение темы в статье VBA Excel. Копирование, перемещение и поворот фигур.

Источник

Главная » Макросы и программы по категориям
Макросы для работы с автофигурами — создание автофигур, перемещение фигур на листе, рисование на листе Excel Сохранить изображения с листа Excel в файлы Надстройка позволяет экспортировать все изображения с листа Excel в графические файлы. Доступен выбор типа создаваемых файлов (поддерживаются форматы JPG, GIF и PNG) Кроме того, можно указать имя папки, в которую будут помещены созданные файлы (эта папка будет создана автоматически в том же каталоге, где расположен обрабатываемая книга Excel) Если нужно сохранять картинки под именами из… Вывод списка фигур на листе Excel с их координатами Данный макрос производит поиск фигур (графических объектов) на всех листах текущей книги Excel, и выводит следующую информацию по каждой найденной фигуре: Название фигуры (графического объекта) Координаты верхнего левого угла Координаты правого нижнего угла Размеры фигуры (ширина, высота) Тип фигуры (свойство Type типа MsoShapeType) Тип автофигуры (свойство AutoShapeType… База данных больницы — формирование отчётов Программа позволяет сформировать отчёты по базе данных больницы. Кроме того, реализован ввод данных в базу о новых пациентах. Отображение этапов работ на шкале времени Программа предназначена для отображения этапов выполнения работ на шкале времени в Excel. В качестве исходных данных выступает таблица, заголовками которой являются названия этапов, а в строках, для каждой работы, указана дата каждого этапа. Шкала времени состоит из двух строк, заполненных датами при помощи формул. В первой строке — дата начала временного интервала, во второй строке — дата его… Создание модели хищник-жертва средствами Excel Модель клеточного автомата, реализованная средствами VBA в Excel (с использованием модуля класса) В таблице произвольного размера клетки могут быть в трех состояниях: пустая (без цвета), травоядное (зеленый цвет ячейки), хищник (красный цвет ячейки). Поведение системы характеризуется следующими параметрами: особь может переместиться на любую клетку, имеющую с данной общую сторону…. Фортепиано в Excel Данная программа позволяет воспроизводить звуки нажатием на кнопки, расположенные на листе Excel При нажатии кнопки ЗАПУСК на листе рисуется клавиатура. Ширина черных и белых клавиш зависит от ширины столбцов А и В соответственно. (добавлено в новой версии) При воспроизведении мелодий клавиши фортепиано, соответствующие воспроизводимым звукам, «нажимаются», и подсвечиваются… Поиск точек на одной прямой Честно говоря, уже не помню, для каких целей разрабатывался этот макрос ) Что-то типа поиска созвездий на карте неба. Программа рисует линии от большой зелёной точки до звёздочек по определённому алгоритму. Перетаскиваете мышкой зелёную точку, нажимаете кнопочку — и линии перерисовываются. Смотрите также ещё одну бесполезную программу для рисования точек и линий, только выполненную на Visual… Программа для игрового клуба / интернет кафе — учет времени Программа, выполненная в виде файла Excel, предназначена для управления игровым клубом, администрирования интернет-кафе или подобного заведения. В таблице Excel регистрируются сеансы пользователей (время, проведенное за компьютером или игровой приставкой) и все оплаты Поддерживаются разные варианты начисления оплаты (5 минут, 10 минут, 1 час, акция 3+1, а также ночной режим — где даётся 7 часов… Простановка размеров для автофигур в Excel Надстройка для Excel, позволяющая добавлять на лист заранее созданные автофигуры, и проставлять для них размеры (с выносными линиями). На панели инструментов можно выбрать вставляемую фигуру, после чего нарисовать на ней размерные линии Размеры выделенной фигуры (или её части) вводятся в поля на панели инструментов При нажатии клавиши Enter к выделенной фигуре добавляется размерная линия (с… Вывод картинок символов на форму VB Программа предназначена для вывода заданного текста на форму VB (VBA) Особенности программы: вывод символов осуществляется в виде картинок, размещаемых на форме возможность выбора шрифта для вывода (к программе прилагается 5 папок с наборами изображений символов для разных шрифтов) можно задать высоту и ширину изображений автоподбор размеров букв на форме в процессе набора текста…

Источник

Различного рода документы иногда включают иллюстрации, которые сложно изобразить простыми средствами. Возьмем хотя бы обычную школу. Одна Марьиванна как-то пожаловалась на жизнь: в школе нет “специального” софта для учителей. — Я ехал на машине и вез двух училок, которые болтали на заднем сиденье о своих профессиональных делах. — Более того, школу “подсадили” на Linux (во времена реформ Медведева) и никто не знает, как с ним толком работать. В общем, у математички проблема: ей нужно сделать пособие для старших классов, где, по ее замыслу, должно быть много красивых иллюстраций с графиками функций, а “Mathcad”a в Linux’е нет”. Разумеется, все это педагоги делают в рабочее время в школе.

Так как я тоже когда-то учился в школе, и даже после школы изучал математику в университете, то я представляю себе примерно, что это за функции. Поэтому я удивился настолько, что влез в разговор. “Насколько я понимаю, это не такая уж большая проблема”. Одна из училок живо возразила: “А вы попробуйте сделать это в этом сраном Линуксе, с одним только его офисом”. Я сказал, что и пробовать не стану, а просто сделаю. “Мы вам пять пачек бумаги для принтера подарим, но надо, чтобы все работало!” Ок!

После того, как я забрал свой гонорар — пять пачек бумаги А4 по 500 листов для принтера — я подумал, что этот небольшой пустячок мог бы оказаться еще кому-либо полезным. Я делал эту работу так, чтобы в ней было “как можно меньше наворотов, только самое нужное”. Таково было ТЗ. Поэтому ее легко будет запостить.

Как небольшое вступление, я отмечу, что трудности вызывает “кошмарный” Basic в Open- и LibreOffice, к которому пользователи VBA не могут привыкнуть. То есть, собственно, не сам язык, он-то как раз всюду одинаков, а интерфейс UNO, придуманный в Sun Microsystems, на котором держится программирование для линуксовых офисов. Там за тысячу с лишним всяких сервисов и интерфейсов, и я тоже совсем не специалист по ним. Но у меня есть книжка Эндрю Питоньяка, где объясняются многие вещи. Есть даже ее перевод на русский, но в оригинале она более понятна.

Основная идея была в том, чтобы сделать костыль, скрыв “sun.star…” в понятной упаковке. В документе Draw присутствует хотя бы один лист, этого вполне достаточно. Функции рисуются макросом, а все остальное можно сделать вручную. Из всех примитивов берем только линию, а из ее бесчисленных атрибутов берем ширину и цвет.

В библиотечке всего две функции для рисования линий: по двум точкам и относительно предыдущей точки. Вторая очень удобна, потому, что имеет собственную, “плавающую систему координат”. Само собой, можно добавить и другие фигуры, а также множество всяких наворотов, так что приводимый пример — только минимум. Весь код, вместе с примером для теста, показан ниже, а дальше будет его небольшое обсуждение.

Код

Тест должен подтвердить, что косяков нет. Дальше скринкаст этого теста:

Теперь пояснения по коду вдобавок к комментариям. Они будут полезны тем, кто пожелает это использовать и, конечно, добавить сюда свои прибамбасы. Мы используем несколько переменных как public, для того, чтобы они были видимы в пределах модуля с библиотекой и макросами. Библиотечку и макросы лучше всего хранить в документе, используемом как шаблон для определенных целей. Для “защиты” мы выбираем настолько геморройные имена, что мало кому придет в голову их использовать. Например, вставляя знак подчеркивания после первой буквы имени. Благодаря этому, для пользователей библиотеки остается возможность выбирать нормальные имена.

Функция origin устанавливает начало координат. Фактически это просто ппараллельный перенос “мировых” координат, которые в документах OpenOffice.org начинаются с левого верха документов, и идут с шагом в одну сотую мм вправо, по оси x, и вниз, по оси y. Есть совершенно аналогичная функция lrs, которая делает то же самое для относительного построения линий.

Функции, управляющие переменными для цвета и толщины линии, просто передают в них параметры. Толщина линий измеряется в миллиметрах. Вообще, как нетрудно заметить, у нас все измеряется в миллиметрах, с возможностью делить их еще в сто раз. В качестве аргументов мы используем числа в плавающем формате, а функция clng преобразует их в целые числа, с которыми и работают графические устройства.

Переменные pgs и pg не следуют правилу x_…, т.е. они не записаны, как следовало бы ожидать, как p_gs и p_g. Это не является какой-то магией, просто так получилось. Первая из них (pgs), кстати, этого и не требует, она вообще, private. Их мнемоника: pages и page. Дескриптор набора страниц pgs следует получать первым. Мы делаем это в инициализирующей функции dp0init (draw page 0 init). Здесь мы временно используем дескриптор pgs, для получения остального, а именно дескриптора pg, дающего доступ к странице с номером 0, первой страницы.

thiscomponent всегда указывает на текущий документ и является, своего рода, “корнем”, откуда берется остальное. Метод getdrawpages() позволяет инициализировать структуру pgs. Все желающие могут посмотреть, что там есть, используя встроенный в LibreOffice отладчик Basic IDE. Это касается и всех остальных переменных. Объект pgs, в свою очередь, использует метод getbyindex() для получения другого объекта pg, несущего информацию о странице с указанным номером. Его мы будем использовать неоднократно, поэтому он у нас public. Из остальной инициализации мы устанавливаем цвет линии и ее ширину. В общем, по существу, функция dp0init является конструктором, как говорят в объектных языках программирования.

Собственно линии создаются функцией l_init. lin — это дескриптор реально создаваемого объекта (который, кстати, не был объявлен при помощи dim, но Basic это разрешил). Рассмотрим, как инициализируется lin. Это опять thiscomponent.createinstance(“имя из иерархии uno”). Кстати, мы не проверили еще на значение null ни один из объектов, но это не должно приводить к проблемам; наш случай слишком прост, чтобы из пушки стрелять по воробьям. Создав линию, мы уж, заодно, присвоим ей некоторые атрибуты по нашему умолчанию. (Умолчания LibreOffice могут оказаться другими.)

Теперь о функции line2p. Это самая, что ни на есть, рабочая лошадь в библиотеке. Здесь инициализируются все необходимые структуры, принадлежащие графическому примитиву. pt — это начало линии, в абсолютных координатах, sz — размер прямоугольника, в который вписан графический примитив. Следовательно, тут уже мы имеем дело не с абсолютными координатами, а с проекциями отрезка линии на горизонтальную и вертикальную оси. В общем, стандартные штуки, свойственные всей компьютерной графике, основанной на линиях первого и второго порядков: прямых и эллипсах.

Ввиду существенной разницы между передачей параметров по ссылке и значению, мы используем такой “косвенный” способ инициализации, который стоит рассмотреть подробно. Сначала pt — это просто имя. Интерпретатор Basic выделяет память для указателя (а что еще?). Затем, pt = lin.position дает интерпретатору понять, сколько памяти выделить по этому указателю, так как lin.position — это уже вполне конкретные данные. Затем, при инициализации членов pt записываются данные в выделенную память. И только потом, присваивание lin.position = pt правильно иницииализирует lin. То же относится и к sz.

Манипуляции с координатами в функции line2p не должны казаться загадочными с точки зрения азов аналитической геометрии и положения абсолютного начала в документе, о чем уже говорилось.

Наконец, метод add добавляет данные в документ, что вызывает видимые изменения в нем. Функция linerel использует данные о предыдущей конечной точке, если она, конечно, была инициализирована, о чем не следует забывать. Затем вызывается line2p, и после этого конец созданного отрезка становится началом следующего. Теперь осталось только пользоваться библиотекой на здоровье, пополняя ее новыми инструментами. Или создать свою, если есть идеи.

Источник

dotten12

Пользователь

Сообщений: 78
Регистрация: 11.09.2017

Здравствуйте, уважаемые форумчане.
Помогите с макросом.

В файле — на рабочей области находится несколько линий.
Имеющийся макрос определяет координаты той линии, чье название записано в ячейку F2.

Как при помощи макроса — нарисовать фигуру «по диагонали», указанной в ячейке F2 линии ?
Чтобы фигура целиком охватывала линию.
(В приложенном макросе приложил внешний вид фигуры и то, как она должна быть нарисована.)

Alemox

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

20.12.2017 08:00:21

Код

Sub bb()
Dim PR, Lin As Shape

Set Lin = ActiveSheet.Shapes([F2])
Set PR = ActiveSheet.Shapes("Rounded Rectangular Callout 4")
PR.Left = Lin.Left
PR.Width = Lin.Width
PR.Height = Lin.Height
PR.Top = Lin.Top
  
End Sub

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.

dotten12 Пользователь Сообщений: 78 Регистрация: 11.09.2017	Alemox, вы немного не так поняли. Вот этого объекта — «Rounded Rectangular Callout 4» — его изначально нет на листе (я просто его в файле — для наглядности изобразил). Его всякий раз нужно рисовать заново.

Karataev

Пользователь

Сообщений: 2306
Регистрация: 23.10.2014

21.12.2017 19:33:36

Код

Sub Вставить_выноску()
    Dim objShape As shape, objNewShape As shape
    Set objShape = ActiveSheet.Shapes(1)
    Set objNewShape = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, _
        objShape.Left - 4, objShape.Top - 4, objShape.Width + 8, objShape.Height + 8)
    objNewShape.Fill.Visible = msoFalse
End Sub

dotten12 Пользователь Сообщений: 78 Регистрация: 11.09.2017	#5 21.12.2017 20:35:42 Karataev, ясно. Вроде теперь все заработало. Всем спасибо за ответы.

Источник

Предлагаю коллегам

А.Н. Комаровский,
Россошанская школа-интернат Воронежской
области, kan@bk.ru

Использование MS Excel для расчетов,
математического моделирования, подготовки
документов или в качестве базы данных
общеизвестно. Однако в это приложение заложен
потенциал, о котором, видимо, не подозревали даже
его разработчики, позволяющий эффективно
использовать этот программный продукт в
дидактических целях на уроках не только
естественно-научного, но и гуманитарного цикла, и
даже в начальной школе. С помощью электронных
таблиц MS Excel можно подготовить демонстрационные
пособия, лабораторные и практические работы,
проверочные и тестовые задания, сделав их не
только красочными, но и динамичными. Для этого
достаточно владения самой программой,
знакомства с основными конструкциями (ветвления
и циклы) языка программирования Basic, а также вашей
творческой фантазии и желания. И тогда “оживут”,
станут понятными и запоминающимися многие
иллюстрации учебников, появится возможность
проводить лабораторные и практические работы в
соответствии с программой даже при отсутствии
необходимого оборудования. Да и изучение темы
“Программирование” в курсе информационных
технологий станет увлекательным занятием.

Динамические эффекты в MS Excel можно
создавать, используя условное форматирование,
макросы, счетчики или комбинируя эти методы.

При этом можно применять:

· форматирование ячеек: изменение
цвета, размеров, границ, объединение и разбивку,
вставку и удаление, скрытие и выделение;

· форматирование символов (изменение
цвета, размера, начертания, видоизменения и
выравнивания);

· изменение векторных объектов,
созданных с помощью панели рисования или
импортированных (примитивов, автофигур,
надписей, объектов WordArt), с которыми можно
производить перенос, вращение и форматирование
(заливки, прозрачность, изменение контуров,
настройку тени и объема);

· изменение растровой графики:
размеров, обрезки, яркости и контрастности, а
также перемещение, вращение и смену слайдов;

· разнообразные эффекты с графиками и
диаграммами (динамическое построение и
видоизменение);

· удаление и вставку разнообразных
объектов;

· последовательный переход с одного
листа книги на другой;

· изменение масштаба отображения
рабочего листа;

· прокручивание окна по вертикали,
горизонтали или то и другое.

Почти во всех приложениях MS Office
существует возможность записи
последовательности действий пользователя при
работе с документом в виде макросов —
инструкций на языке программирования Visual Basic
for Application (VBA), среда которого интегрирована
с этими программами. Обычно макросы используются
для автоматизации часто повторяющихся
последовательностей действий. При этом не
предполагается необходимость владения самим
языком. Достаточно того, что его понимает
интерпретатор вашего приложения. Пользователь
только выполняет действия, а приложение
отслеживает их и фиксирует в виде
последовательности команд и операторов.

Однако это не означает, что знание
основ VBA не понадобится вам в дальнейшем, по мере
совершенствования вашего мастерства. Просто
процесс вхождения в эту среду будет происходить
более плавно и естественно, тем более что
несомненным достоинством данной технологии
является доступность макросов для анализа и
экспериментов. Важно, чтобы у вас была задумка и
желание.

Правда, этой технологии не по силам
самостоятельно объявить массив, организовать
цикл, ветвление или передачу данных из одного
макроса в другой. Но для этого не надо быть семи
пядей во лбу. Вполне достаточно владения
программированием на уровне
общеобразовательной школы, и не обязательно на
языке Basic, так как упомянутые структуры в разных
языках программирования отличаются
незначительно.

Готовые проекты, рассматриваемые в
этой статье, можно скачать с портала газеты
“Информатика” по адресу: https://inf.1sept.ru/download/dinex.rar.
В более сложных работах макросы снабжены
комментариями, по поводу остальных — пояснения
читайте здесь.

Несмотря на то что в этой статье речь
идет только об электронных таблицах Microsoft Excel,
многие из предлагаемых идей можно использовать и
в других офисных приложениях.

Предварительная подготовка

Запуск файла и система безопасности

Для того чтобы макросы исполнялись в MS
Excel, могут понадобиться дополнительные
настройки. Выберите в меню Сервис — Макрос —
Безопасность… и установите средний уровень
безопасности. После этого файл закройте и
откройте снова. Если вы открываете файл, в
котором есть макросы, появится предупреждение
системы безопасности о возможности наличия в них
вирусов. При уверенности, что открываемый файл
безопасен для вашего компьютера, нажмите кнопку
Не отключать макросы.

Настройка рабочего листа

Во многих случаях при создании
демонстрационных пособий полезен вид листа с
сеткой, похожей на разлиновку тетради “в
клетку”. Для этого выделите весь лист, щелкнув в
клетку на пересечении заголовков столбцов и
строк, а затем, перейдя на заголовки столбцов,
через контекстное меню установите ширину
столбцов равную 2. При необходимости сетку можно
отключить, выбрав в меню Сервис — Параметры
закладку Вид, на которой сбросить флажок сетка.

Панель Visual Basic

Для работы с макросами удобно
пользоваться панелью Visual Basic, для отображения
которой вызовите контекстное меню на панели
инструментов и выберите строку Visual Basic.

Кнопка
служит для включения записи макроса. После
нажатия на нее появляется диалоговое окно, в
котором вам предлагается дать имя макросу и
выбрать сочетание клавиш для его запуска. Можете
оставить все по умолчанию, однако поиск
необходимого макроса по его номеру при создании
большого проекта может усложниться. Закрыв
диалоговое окно, вы обнаружите, что кнопка Запись
макроса изменила свой вид на и теперь служит для того, чтобы
Остановить запись. Запуск макроса на исполнение
осуществляется кнопкой Выполнить макрос . При ее нажатии
появляется диалоговое окно, в котором
предлагается выбрать макрос для выполнения,
изменения, удаления или установки параметров
запуска. Изменение макроса осуществляется в
интегрированной среде, в которую можно перейти и
нажатием на кнопку Редактор Visual Basic. Кнопкой вызывается панель
Элементы управления, но, чтобы воспользоваться
ею, необходимо с помощью кнопки переключиться в Режим
конструктора.

Сбои при исполнении макросов и досрочный выход

Исполняя макрос, Excel всецело занят
только им и не реагирует на попытки
вмешательства. Прервать макрос можно нажатием на
клавишу . При
досрочном выходе, а также при отладке нередки
ситуации ошибок и сбоев, после которых Excel
перестает откликаться на ваши действия. Для того
чтобы вывести его из состояния “оцепенения”,
необходимо переключиться в Редактор
Visual Basic и на панели инструментов нажать
кнопку с квадратиком Reset.

Защита файлов

В ходе работы над проектом с
использованием макросов вы обнаружите, что после
исполнения макроса невозможно вернуться в
исходное состояние с помощью кнопки Отменить. По
этой причине рекомендуется, в случае угрозы
потери существенной части вашей работы, перед
созданием и испытанием нового макроса сохранять
последнюю работоспособную версию, а для
отлаженных файлов в качестве меры защиты
устанавливать в свойствах атрибут Только чтение.

Перенос файлов на другие компьютеры

Отлаженный и замечательно работающий
проект может совсем иначе повести себя на другом
компьютере. Первой причиной такого неожиданного
поведения может оказаться более ранняя версия MS
Excel, чем у вас. Так, например, если вы создавали
свой проект в MS Office 2003, то в MS Office 2000 могут
возникнуть проблемы с полупрозрачными и
градиентными заливками графических объектов.
Кроме того, там отсутствует возможность
обращения в макросе к элементу группы по его
имени, и если вы использовали группировку, то
проблем вам не избежать. Другой причиной, которая
возникает даже при совпадающих версиях, является
то, что, помимо вашего желания, файл проекта
сохраняет следы экспериментов по использованию
приложений, которые в окончательный вариант даже
не вошли, но на другом компьютере или вовсе не
установлены, или сконфигурированы иначе.

Чтобы избежать этой проблемы,
необходимо в Редакторе Visual Basic через меню Tools —
References открыть диалоговое окно Available References
(доступные ссылки) и убрать, где можно, флажки.

Вставка и настройка элементов управления

Макрос можно запустить определенным
сочетанием клавиш, щелчком на графическом
объекте или с помощью элементов управления.
Остановимся на последнем способе и рассмотрим создание
и настройку кнопки и счетчика. Счетчики
понадобятся нам для управления макросами.

Вызовите панель Элементы управления,
нажав на панели Visual Basic кнопку , и выберите на ней элемент Кнопка .

Не отпуская правую кнопку мыши,
нарисуйте на рабочем листе кнопку необходимого
размера. Для настройки свойств кнопки сделайте
на ней двойной щелчок левой кнопкой мыши.
Откроется окно Visual Basic с окнами проекта (Project),
свойств (Properties) и кода.

В окне свойств, в строке Caption
(заголовок), текст CommandButton1 измените на подходящий
по назначению кнопки, остальные свойства, в том
числе и имя объекта (Name), можно не менять.

Чтобы макрос запускался нажатием
кнопки, его текст необходимо скопировать в окно
кода в пространство между строками Private
Sub CommandButton1_Click() и End Sub.

Для создания счетчика выберите на
панели элементов управления кнопку и на рабочем листе
нарисуйте изображение счетчика в вертикальном
или горизонтальном исполнении. Двойным щелчком
по изображению счетчика перейдите в Visual Basic и на
панели свойств объекта SpinButton в строке LinkedCell
(связанная ячейка) укажите имя ячейки, в которой
будут отображаться значения счетчика.
В строке Max установите
максимальное допустимое значение, а в строке Min — минимальное (неотрицательное),
исправив предлагаемые по умолчанию значения.
Свойство SmallChange позволяет
устанавливать шаг счетчика (целое число). В
случае необходимости отрицательных значений и
дробных шагов используется ячейка с формулой, в
которой на основе данных связанной ячейки
вычисляются необходимые значения. Связанную
ячейку в этом случае можно скрыть. Свойство Value устанавливает начальное значение
счетчика и отображает текущее значение, которое
можно читать и изменять в макросе, обращаясь к
нему SpinButton1.Value.
Свойство Delay (задержка) позволяет
установить время реакции на нажатие кнопок
счетчика.

Ячейки MS Excel

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

Обращение к ячейке

При записи макроса обращение к ячейке,
точнее ее имя, обычно выглядит так Range(«F4»), а
к диапазо-ну — Range(«F19:G21») или
Range(«F6:H11,J11,K8»), то есть обращение как к
диапазону, так и к ячейке происходит по единому
правилу. Однако это не всегда бывает удобно,
особенно когда в качестве номера строки или
столбца используются переменные (например, в
цикле). В этом случае Range(«F4») лучше заменить
на Cells(4,6), где 4 — номер строки, а 6 — номер столбца
F. Чтобы быстро определять номер столбца, полезно
на стадии создания проекта в первой строке
методом протягивания за маркер автозаполнения
их пронумеровать в пределах окна.

Обращение к ячейкам без выделения

Записывая макрос, мы выделяем те или
иные объекты, а затем производим изменения их
свойств. При этом ячейки и диапазоны выделяются
широкими черными границами и заливкой, тексты —
черным фоном и инверсным цветом, а графические
объекты — угловыми и боковыми маркерами. Если не
принять никаких мер, то при воспроизведении
анимации такого рода “сопровождение” никуда не
исчезнет и будет только отвлекать от сути. Однако
проблема вполне разрешима. Рассмотрим фрагмент
макроса:

Range(«E10»).Select

Selection.ClearContents

Selection.FormulaR1C1 = «Привет!»

With Selection.Font

.Name = «Times New Roman»

.Size = 16

.ColorIndex = 3

End With

Selection.Interior.ColorIndex = 37

В первой строке выделяется (Select) ячейка
«E10». В последующих строках обращение к ней
идет как к выделенному объекту. Попробуем
заменить Selection на конкретное имя ячейки
Range(«E10») или Cells(10,5), удалив первую строку
этого макроса:

Range(«E10»).ClearContents

Range(«E10»).FormulaR1C1 = «Привет!»

With Range(«E10»).Font

.Name = «Times New Roman»

.Size = 16

.ColorIndex = 3

End With

Range(«E10»).Interior.ColorIndex = 37

Все работает, результат тот же, только
выделение отсутствует.

Присваивание

Для занесения значений в ячейки
необходимо воспользоваться командой
присваивания, варианты записи которой могут
выглядеть следующим образом:

Range(«F6»).Value = 5 + Range(«С4»).Value

Range(«D10»).FormulaR1C1 = «Привет!»

Cells(5,8).Value = «Стоп»

Cells(i,12).Value = Min*2

Существуют и другие способы.

Очистить же содержимое ячейки
можно, например, так: Range(«B4»).Value = «» или
иначе — Range(«B4»).ClearContents.

Задержка

Для создания анимации,
соответствующей нормальному восприятию,
приходится сдерживать высокоскоростные
возможности современных процессоров. В Visual Basic
мне, как ни прискорбно, не известно другого
способа, кроме вставки пустого цикла. Жаль, что
ресурсы процессора используются в это время так
неэффективно, и здесь невольно вспоминается
калитка Эдисона, при открывании которой гость
закачивал в бак ведро воды.

В начале макроса обычно приходится
задавать значение переменной, соответствующей
оптимальной задержке:

Tik = 1000000 ‘задержка

Ее величина зависит от тактовой
частоты процессора, и вполне возможно, что у вас
она будет на порядок выше. В этом случае
достаточно будет произвести коррекцию только
этой строки. Сам же пустой цикл будет иметь вид:

For t = 1 To Tik: Next t

При необходимости замедлить или
ускорить процесс в отдельных эпизодах макроса
переменную Tik в цикле можно умножить или поделить
на соответствующий коэффициент.

Скрытие элементов

Довольно часто встречаются ситуации,
когда появляется необходимость скрыть некоторые
объекты. В одних случаях это данные, в других —
ячейки или таблицы, в третьих — графические
элементы.
В зависимости от ситуации можно воспользоваться
одним из предлагаемых вариантов:

· окраска в цвет фона;

· удаление за пределы окна;

· скрытие строк или столбцов (через
меню Окно — Скрыть);

· размещение на другом листе, который
можно скрыть (Формат — Лист — Скрыть);

· скрытие за объект;

· прижатие к краю окна (отрезков);

· растворение (прозрачность или Нет
линий, Нет заливки);

· масштабирование (уменьшение
размеров).

Динамические эффекты на основе
форматирования

Имитация движения. Пакет

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

Выделим часть десятой строки в
пределах окна и применим Формат — Ячейки… —
Граница и выберем нижнюю тонкую сплошную линию,
цвет Авто.

Включим запись макроса. Выделим первую
ячейку на этой же строке, и ее нижнюю границу
отформатируем указанным способом так, чтобы она
стала сплошной широкой и красной. Не выключая
запись макроса, еще раз отформатируем эту же
ячейку так, как отформатирована вся строка.
Запись макроса можно остановить.

При его запуске мы фактически ничего
не увидим, так как перекраска границы происходит
за недоступное нашему восприятию время. Однако
идея уже понятна: демонстрацию первого
форматирования нужно увеличить (здесь нам
поможет задержка), а после стирания (второе
форматирование) необходимо, чтобы процесс
распространился дальше (для этого воспользуемся
циклом).

Теперь смелее нажимаем кнопку
Выполнить макрос
и, выбрав Изменить…, войдем в Редактор Visual Basic.
Преобразуем его в соответствии с нашим планом:

Tik = 1000000

For C = 1 To 40

With Cells(10, C).Borders(xlEdgeBottom)

.LineStyle = xlDash

.Weight = 4

.ColorIndex = 3

End With

For i = 1 To Tik: Next i

With Cells(10, C).Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = 2

.ColorIndex = xlAutomatic

End With

Next C

А теперь настало время запустить…
Пакет помчался вдоль линии связи. Откорректируем
величину задержки.

Удаление избыточной информации

Макрос довольно подробно фиксирует не
только те свойства объекта, которые вы изменяли,
но и те, что не изменялись. Не всегда это
оправданно. В большинстве случаев избыточную
информацию без проблем можно удалить, от чего
ваша программа станет более простой и понятной.
Довольно скоро вы станете различать, какие
строки в макросе имеют прямое отношение к вашим
действиям, а какие образовались из-за его
чрезмерного усердия.

Вот красноречивый пример окраски
границ ячейки в синий цвет. В ответ на
элементарное действие пользователя макрос
разразился целой тирадой:

Range(«D2»).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 5

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 5

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 5

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 5

End With

Тот же самый результат получим,
преобразовав макрос к виду:

Range(«D2»).Borders.ColorIndex = 5

Всего-то одна строка!

Не при всяких действиях макросы бывают
такими “многословными”, поэтому не пугайтесь.

Из пункта А в пункт Б

Попытаемся усовершенствовать
предыдущий проект, используя более зрелищный
подход. Отформатируем ту же строку, установив в
ней размер символов 36, а заливку ячеек —
бледно-зеленой. Включив запись макроса, выполним
следующие действия:

— в первую ячейку нашей строки
вставим символ велосипеда из шрифта “Webdings”, а в
вышележащую — стрелку из шрифта “Wingdings 3” (цвет
символов — по вашему вкусу);

— удалим только что вставленные
символы и остановим запись макроса.

Теперь откроем макрос кнопкой на панели Visual Basic и
приведем его к виду:

For C = 1 To 40

Cells(10, C).Value = «b»

Cells(10, C).Font.Name = «Webdings»

Cells(9, C).Value = «Ж»

Cells(9, C).Font.Name = «Wingdings 3»

For t = 1 To Tik: Next t

Cells(10, C).Value = «»

Cells(9, C).Value = «»

Next C

Не забудьте задать значение
переменной для задержки.

Уже можно проиллюстрировать задачу из
учебника для начальной школы или загадку “А и Б
сидели на трубе”.

Символы многих транспортных средств в
разных ракурсах можно найти в шрифте “Transportation”.

Бегущая строка

Поменяв направление на обратное и
использовав вставку не одного символа, а целого
сообщения, получим возможность использования в
своих проектах на Excel бегущей строки:

For C = 40 To 1 Step -1

Cells(10, C).Value = «Бегущая строка»

For t = 1 To Tik: Next t

Cells(10, C).Value = «»

Next C

Если у вас вместо ожидаемого текста
бежит набор графических символов,
отформатируйте строку под шрифт Arial. Старайтесь
не перегружать макросы и все, что можно
подготовить для его работы, выполнять обычными
методами. Так, в предыдущем проекте, если
предварительно установить в строке 10 шрифт Webdings,
а в строке 9 шрифт Wingdings 3, то необходимость в
соответствующих строчках макроса отпадет, и он
получится еще короче.

Схема управления

Следующий проект вы можете
подготовить для демонстрации на уроках
информатики при изучении темы “Модель замкнутой
системы управления”. Изображения управляющей
системы и объекта управления выполнены способом
объединения диапазонов ячеек и форматирования
внешних границ. Каналы связи также “вычерчены”
методом форматирования. Передача управляющего
сигнала и информации о состоянии объекта
осуществляется с помощью макроса на основе
вставки символа и форматирования границы ячейки.
В активном состоянии объекты выделяются цветом,
что тоже отражено в макросе.

Устранение вибраций

В проектах с использованием
динамических эффектов на основе форматирования
границ ячеек при исполнении макроса может
наблюдаться “вибрация” картинки в окне. Причина
этого явления кроется в том, что при выборе
широкой границы размер текстового поля в ячейке
не изменяется, а изменяется ширина или высота
ячейки. Для устранения этой неприятности можно
за пределами сцены выделить столбец и
отформатировать горизонтальные границы ячеек
цветом фона максимальной ширины. В случае
необходимости аналогичную процедуру можно
произвести за пределами сцены и с какой-либо
строкой, выделив вертикальные границы. Не
возбраняется и индивидуальный, творческий
подход.

Автобус

Идея этого динамического эффекта
основана на изменении размеров символов. Из
шрифта “Webdings” вставлен символ автобуса. Размер
символа изменяется в цикле с задержкой. Для
получения крупного изображения диапазон 10 x 10
ячеек объединен.

For s = 1 To 300

Range(«AP3»).Font.Size = s

For t = 1 To Tik: Next t

Иногда, по непонятной причине, автобус
при исполнении этого макроса застревает на
полпути. При повторных запусках такого явления
не наблюдается.

Связь

Для моделирования передачи информации
можно использовать принцип бегущих огней,
используемый в елочных гирляндах, когда по
очереди загорается или, наоборот, гаснет каждая
третья лампочка. Воплотить в макросе это можно
следующим образом: в цикле выделяются границы
ячеек, чьи номера кратны 3, затем следующие за
ними и еще раз следующие, после чего все
повторяется. Создается эффект бегущей волны.

For M = 1 To 10

n = M Mod 3

For p = 2 To 40 Step 3

With Cells(7, p + n).Borders(xlEdgeBottom)

.LineStyle = xlDash

.Weight = xlMedium

.ColorIndex = 3

End With

Next p

For p = 2 To 40 Step 3

With Cells(7, p + n).Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Next p

Next M

Внешний цикл задает число повторов,
внутренние циклы можно переставить местами.

Цепь

В модели простейшей электрической
цепи при нажатии на кнопку замыкается
выключатель. Положительные заряды, как им и
положено по теории, бегут от “плюса” к
“минусу”. Лампочка загорается. Всем процессом
управляет малюсенький цикл, который в ячейке под
кнопкой чередует данные: 0, 1, 2.

For p = 0 To 20

Range(«G8»).Value = p Mod 3

For t = 1 To Tik * 5: Next t

Next p

Range(«G8»).Value = 3

Остальное реализовано с помощью
формул и условного форматирования. Ячейки по
внешнему периметру схемы берут данные из
управляющей ячейки непосредственно (путем
“заморозки” ссылок) или по цепочке. Одни ячейки
перекрашивают границу, образующую проводник, при
условии равенства нулю, следующие при единице и,
наконец, при двойке. Данные в них скрыты путем
выбора цвета символов под цвет фона. Что касается
внутренних ячеек, то они содержат формулы вида: =ЕСЛИ($G$8=2;“+”;“”). Здесь в условии в
левой части равенства ссылка на управляющую
ячейку, а в правой — 0, 1 или 2, в порядке
чередования.

Изменение положения выключателя
осуществлено путем смены форматирования границ
диапазона с диагонального на боковое. Источник
питания создан с помощью панели рисования, а
лампа взята из автофигур.

Последняя строка Range(«G8»).Value = 3
задает управляющей ячейке непредусмотренное
условиями значение и, таким образом, служит
выключателем, которым убираются со схемы все
знаки “+” и восстанавливается цвет проводников
по умолчанию.

Кипение

Аналогичным образом можно
продемонстрировать процесс кипения. Только в
этом случае использованы три управляющие ячейки,
скрытые под кнопкой, в каждой из которых
чередуются 0, 1 или 2.

For p = 0 To 20

Range(«D12»).Value = p Mod 3

Range(«F12»).Value = (p + 1) Mod 3

Range(«E12»).Value = (p + 2) Mod 3

For t = 1 To Tik: Next t

Next p

Range(«D12:F12»).Value = 3

Ячейки, изображающие воду, берут
значения из управляющих ячеек, со сдвигом
относительно друг друга и по слоям. Условное
форматирование для них одинаково: при равенстве
нулю цвет символа белый. Так образуются
“пузырьки”. По умолчанию цвет символов
совпадает с цветом воды, а размер символов
увеличивается от слоя к слою.

Все ячейки, в которых отображаются
скобки “пара”, связаны формулой =ЕСЛИ($D$12=1;»(«;ЕСЛИ($D$12=2;»)»;»»))
с одной из управляющих ячеек, но в каждом слое
правые части равенств в условиях циклически
сдвинуты вдоль кольца 0, 1, 2.

В последней строке, как и в предыдущей
модели, выполняется отключение пузырьков и пара.

Формула оценки, “степень требовательности”

Еще со времен программируемых
калькуляторов “Электроника Б3-34” (не так много
осталось преподавателей информатики, которые
помнят те “добейсиковские” времена, когда он
был единственным техническим средством для
сопровождения учебного пособия для школьников
под редакцией А.П. Ершова и В.М. Монахова) я
использую для оценки знаний при тестировании
следующую формулу:

oc = Int((otv / vop) ^ 2 * 5 + 0.5).

Здесь oc — оценка, vop — количество
заданных вопросов, otv — число правильных ответов,
функция Int(x) — находит целую часть. В данном
случае дробь otv/vop возведена в квадрат для
увеличения “степени требовательности”, так как
таблицу умножения надо знать хорошо. Изменяя
показатель степени (можно использовать и дробные
показатели, например, 1.5), можно регулировать
требовательность.

Достоинство этой формулы еще и в том,
что она позволяет обходиться без операторов
ветвления или выбора. Хотя здесь невелика
премудрость, однако за последние 20 лет мне не
приходилось встречаться с ее использованием в
разработках для контроля знаний.

Таблица умножения

Эту программу для проверки знаний
приходилось воплощать еще на “Электронике Б3-34”.
Почему бы не попробовать в электронных таблицах?

Способ оценивания описан выше, а для
реализации заданий использована событийная
процедура Worksheet_SelectionChange — изменение выбора на
рабочем листе. Первая команда в этой процедуре Range(«AF6:AP16»).Select пресекает всякую
попытку выделить любой другой диапазон или
ячейку, кроме диапазона для ввода ответа.
Множители задаются с помощью генератора
случайных чисел:

Range(«L6»).Value = Int(Rnd(1) * 8 + 2)

Количество вопросов — пока не надоест
или по указанию учителя.

Excel — гуманитарий

Вопрос о возможности использования
электронных таблиц на уроках русского или
иностранного языка обычно вызывает недоумение.
“В одну телегу впрячь не можно коня и трепетную
лань”¹, — вот готовый ответ классика. На
первый взгляд здесь противоречия
посущественнее, чем между Моцартом и Сальери,
однако же не будем торопиться с поспешными
выводами, ведь факты — упрямая вещь.

Вот фрагмент рабочего листа, где MS Excel,
выступая в роли учителя начальных классов,
предлагает задания по русскому языку, тщательно
выявляет допущенные ошибки, помечая их в тексте
мигающими маркерами, и выставляет оценку за
работу.

Идея этого проекта довольно проста.
Каждая буква текста занимает одну ячейку. Таким
образом, все знаки обретают свои координаты:
номер строки и номер столбца. Координаты
знакомест для вставки пропущенных букв и их
надлежащие значения сведены в таблицу, которая
вынесена за пределы окна и может быть спрятана
одним из ранее указанных способов.

Макрос в цикле по указанным
координатам читает введенные значения и
сравнивает их с имеющимися правильными ответами.
При расхождении соответствующие ячейки
маркируются.

Понятно, что такого рода упражнения
можно подготовить и для уроков математики и для
других предметов.

Метод последовательных приближений

При создании сложных проектов
неизбежно возрастает объем временных затрат и
число возникающих проблем, в том числе и ошибок.
Правильная организация работы позволяет
существенно сократить время на создание проекта.
Выручает в таких случаях метод последовательных
приближений, который в нашем случае может
включать следующие этапы:

— обдумывание всего проекта и
разбивка его на основные модули;

— выделение в модулях существенных
сторон;

— продумывание и планирование общего
сценария проекта;

— разработка способов управления
проектом;

— тщательная разработка расположения
объектов и элементов;

— разработка дизайна сцены;

— создание и отладка отдельных
макросов;

— оптимизация кода макроса;

— объявление переменных и массивов;

— организация обмена данными между
макросами;

— организация циклов и ветвлений;

— отладка усовершенствованных
макросов;

— внедрение созданных блоков в
основное тело проекта;

— структурирование и комментирование
блоков;

— отладка взаимодействия отдельных
частей и модулей;

— настройка скорости выполнения
отдельных фаз проекта;

— коррекция недочетов.

Поиск оптимального элемента

Проблема развития алгоритмического
мышления и усвоения основ программирования в
современной школе является довольно острой, и
причина здесь не только в сокращении времени на
изучение этой темы. Другим существенным
обстоятельством является то, что, соблазнив
детей прелестями графического интерфейса и
другими мультимедийными чудесами, мы, как бы
обманывая, отбрасываем их назад в прошлый век, в
мрачные QBasic или Pascal, и пытаемся убедить, что вот
так и создаются программы. А так как исходные
тексты профессиональных программ мы показать не
в состоянии, в это тем более трудно поверить. Вот
и приходится слышать: “А зачем нам это старье?”
Кроме того, подбор задач по теме
программирования весьма далек от современных
чудес и не вызывает энтузиазма.

Однако ситуация, на мой взгляд, не
такая безнадежная, и, я думаю, вы уже
догадываетесь о причинах такого оптимизма.
Большинство предлагаемых проектов:

— несложны в реализации и вполне по
силам учащимся основной школы;

— эффективны и привлекательны;

— реализованы в современной среде
программирования;

— позволяют продемонстрировать все
основные структуры и операторы языка
программирования, предусмотренные школьной
программой.

Есть реальная возможность увлечь
детей и поддержать тем самым отечественную школу
программирования.

Однако это не все. Если вы учитель
информатики, то наверняка знаете, как не просто
объяснить детям, чем решение задачи по
математике отличается от решения задачи по
программированию и какова разница между записью
алгоритма и его исполнением.

Некоторые ученики поначалу никак не
могут взять в толк, что для решения им необходимо
играть сразу три роли: программиста, исполнителя
и пользователя, а также чем эти роли отличаются
друг от друга. Особенно трудно дается роль
формального исполнителя, оттого и роль
программиста не удается. Программы работают так
быстро и так скрытно, что обычно не могут
являться иллюстрацией исполнения, вот и
приходится учителю “нарезать” петли на доске,
объясняя реализацию цикла на блок-схеме или иную
премудрость. Не всегда это получается
убедительно.

Попробуем известными уже нам
способами приручить программу и сделать ее не
такой спешной и более наглядной. И чтобы в разных
вариантах: и на Бейсике, и на алгоритмическом
языке, и в виде блок-схемы. Да и чтобы видно было,
что в памяти творится!

А еще, чтобы с ручным управлением:
захотел — остановился, захотел — дальше поехал!!
И чтобы скорость можно было переключать!!!

Сказано — сделано. Милости просим…

В этом эмуляторе в основном
использовалось выделение текста и выделение
ячеек, а также передача сигнала по цепочке. Для
организации цикла, при ручном управлении,
применен оператор выбора. Текст программы
несложно переделать под Pascal, оставив начинку на
VBA.

Графика

Панель рисования

После того как в MS Word освоены
возможности панели рисования, при изучении
электронных таблиц к ней обычно уже не
возвращаются, а потому в сознании многих
рисование и графические иллюстрации в Excel
воспринимаются как нечто непредполагаемое или
излишнее. Это явное заблуждение. Иллюстрирование
документов, заданий, тестов и моделей, созданных
в этом приложении, не ограничивается диаграммами
и графиками. Использование рисунков, схем,
чертежей, формул Microsoft Equation и графических текстов
WordArt делает проекты яркими, красочными,
доходчивыми и привлекательными. А если к этому
добавить анимационные возможности, то эффект
будет многократно выше.

Вы, вероятно, заметили, что некоторые
элементы в предыдущих проектах явно не
текстово-ячеичного происхождения. Правда, они не
несли достаточной серьезной нагрузки и
оставались на вторых ролях. Параллелограмм и
ромб можно было бы создать форматированием
ячеек, но их закраска была бы проблематична.

Далее о динамических эффектах с
использованием графических объектов.

Имена графических объектов

Каждому объекту присваивается свой
порядковый номер создания или внедрения. Если
какие-либо объекты удалялись, порядок
счета не нарушается. Большинство автофигур
(AutoShape) различаются только номером создания, и
обращение к ним производится так:
ActiveSheet.Shapes(«AutoShape 3»). Select — активную плоскую
форму “Автофигуру 3” выделить. Однако
простейшие примитивы: отрезок, прямоугольник,
овал и дуга, — кроме порядкового номера, имеют
свои собственные имена, например: «Line 3»,
«Rectangle 1», «Oval 5», «Arc 7». Для
рисунков используется обращение типа «Picture
4», а для объектов, создаваемых на основе кривых
Безье, — «Freeform 7» (полилиния). Русский
эквивалент можно видеть в окне Имя в самом начале
строки формул, там, где отображаются адреса
активных ячеек и диапазонов, и это нередко
помогает ориентироваться.

При группировке объектов нумерация
вновь создаваемых таким образом объектов
продолжается, и группа уже может именоваться как
«Group 18».
В некоторых случаях необходимо единообразное
именование объектов, присутствующих в вашем
проекте, например, при обращении к объекту в
цикле, тогда можно создать небольшой отрезок и за
каждый из ваших элементов поместить его копию,
сгруппировать образовавшиеся пары и обращаться
к ним как к группе с соответствующим номером.
Однако наиболее простой и эффектный способ
состоит в том, что если вы отбросите “титулы” и в
круглых скобках укажете только порядковый номер
графического объекта, то вас поймут и вам за это
ничего не будет. Так что ActiveSheet.Shapes(3) вполне
приемлемая и универсальная форма обращения к
графическим (да и не только) объектам, в которой
аргумент в скобках может быть переменной целого
типа.

Как обращаться к графическим объектам, не
выделяя их?

Ответ на этот вопрос рассмотрим на
примере:

При записи макроса получили:

ActiveSheet.Shapes(«Rectangle 1»).Select

Selection.ShapeRange.IncrementLeft 80

Selection.ShapeRange.IncrementTop -30

После его преобразования стало:

ActiveSheet.Shapes

(«Rectangle 1»).IncrementLeft 80

ActiveSheet.Shapes

(«Rectangle 1»).IncrementTop -30

Вывод: строку ActiveSheet.Shapes(«Rectangle
1»).Select необходимо удалить, чтобы маркеры
выделения не отвлекали от основного процесса, а в
последующем тексте макроса во всех предписаниях
для изменения свойств этой фигуры текст
Selection.ShapeRange заменить конкретным именем объекта.

Система координат

Положение графических объектов на
листе Excel в VBA отсчитывается от левого верхнего
угла рабочего листа в пикселях, так что при
разрешении экрана 1024 х 768 сцена Excel имеет размеры
734 x 402 рх (при отображении панели рисования и
двухрядном расположении стандартной панели и
панели форматирования) или 734 x 442 рх (при
однорядном расположении и без панели рисования).

Сетка Excel

Панель рисования в MS Excel не совсем та
же, что в MS Word. Здесь в меню Рисование строка Сетка
отсутствует вовсе. Видимо, предполагается
использование сетки Excel.

К сожалению, разработчики MS Excel, по всей
вероятности, не предусматривали такого рода
художеств в этом приложении, поэтому стандартную
сетку невозможно настроить таким образом, чтобы
она служила надежной опорой. Так, по горизонтали
в качестве единицы длины используется ширина
некоего знака, причем, как удалось выяснить в
ходе экспериментов, 100 таким единицам
соответствует примерно 529 пикселей, а шаг
изменения размера сетки, как ни странно,
почему-то выбран равным 1/7 этой единицы! По
вертикали размер вроде бы в пикселях, но
радоваться по этому поводу рано. При более
детальном исследовании выявляется
парадоксальная ситуация: если вы укажете высоту
первой строки равной 400 пикселям, то она
действительно будет иметь такую высоту, однако,
если вы выберете высоту строк 10, то, к своему
изумлению, обнаружите, что на 400 пикселях
спокойно размещается 41 строка! По этой причине, в
случае необходимости надежного ориентирования,
лучше с помощью панели рисования и макроса
создать свою сетку с шагом 10 рх.

Использование других приложений для графики

Как уже было сказано, в MS Excel существуют
проблемы с настройкой сетки, в том числе и в
соответствии с метрической системой. Кроме того,
в электронных таблицах доступное со стандартной
панели увеличение ограничено 200%². В
некоторых случаях более удобно создавать
иллюстрации к проектам, используя возможности MS
Word, а затем переносить их в свой файл через буфер
обмена. Иногда и возможностей текстового
редактора недостаточно. Так, панель рисования MS
Office не позволяет производить логические
операции над графическими объектами
(пересечение, объединение, вычитание). В этом
случае может выручить импорт графического
объекта из Corel Draw.

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

Движение графических объектов

Абсолютное и относительное смещение

Если вы управляете смещением
графических объектов при записи макроса с
помощью клавиш со стрелками или мышью, то ваши
действия в виде макроса будут иметь примерно
следующий вид:

ActiveSheet.Shapes

(«Rectangle 1»).IncrementLeft 5

‘сдвиг влево на 5 пикселей

ActiveSheet.Shapes

(«Rectangle 1»).IncrementTop -30

‘сдвиг вниз на 30 пикселей

ActiveSheet.Shapes

(«Rectangle 1»).IncrementRotation 3

‘поворот на 3 градуса по часовой
стрелке

Для изменения направлений придется
поменять знаки.

Во всех этих случаях использовалось
смещение относительно последнего положения
фигуры (Increment – приращение). Однако этот способ не
всегда удобен, особенно тогда, когда движение
объекта описывается математически. На этот
случай лучше использовать абсолютные координаты
и следующий синтаксис:

ActiveSheet.Shapes.Item(«AutoShape 4»).Left = 100

— а можно и проще:

ActiveSheet.Shapes(«AutoShape 4»).Left = 100

‘абсцисса 100 (в пикселях)

ActiveSheet.Shapes(«AutoShape 4»).Top = Ye

‘ордината Ye (переменная)

ActiveSheet.Shapes(«Group 4»).Rotation = u

‘поворот на угол u(в градусах)
относительно

‘положения в момент создания.

О пользе глупостей

Макросы, использующие перемещение
графических объектов, сразу же после создания
ведут себя “не по-джентльменски”. Вместо того
чтобы плавно пройтись перед вашим взором,
объекты, исполняющие главные роли в макросе,
застывают в оцепенении и, когда вы уже начинаете
терять надежду на возможность изменения
ситуации, вдруг прыгают в конечное положение,
минуя все промежуточные. Заставить отвлечься от
суммирования смещений позволяет включение в
макрос, реализующий движение какого-либо
дополнительного задания, не связанного с данным
графическим объектом. И если в данный момент вам
нечего предложить, допустимы совершенно
“никчемные” поручения типа:

Range(«A1»).Select — выделить и без того
выделенную ячейку;

Range(«A1»).ClearContents — очистить пустую
ячейку;

Range(«A1»).Orientation = 0 — установить
горизонтальную ориентацию текста в пустой
ячейке;

Range(«A1»).HorizontalAlignment = xlCenter —
выровнять отсутствующий текст по центру. Можете
сами пофантазировать на эту тему и выбрать то,
что вам по вкусу. Вроде бы и глупость, а помогает.

В путь!

Вставим рисунок автомобиля, затем,
включив запись макроса, выделим его и, сместив
вправо с помощью клавиатуры, перейдем в ячейку A1.
Остановим запись и отредактируем макрос, чтобы
получилось следующее:

For k = 1 To 160

ActiveSheet.Shapes(«Picture 1»).IncrementLeft 3

Range(«A1»).Select

For t = 1 To Tik / 10: Next t

Next k

Если ваш автомобиль пытается скрыться
за правый край сцены, верните его
перетаскиванием с помощью мыши.

Сила

В следующем проекте проверим
возможность динамического изменения размеров
графических объектов. Нарисуем стрелку из набора
автофигур и, записывая макрос, потянем ее за
правый боковой маркер. Затем отредактируем
макрос, чтобы он приобрел следующий облик:

For k = 1 To 20

ActiveSheet.Shapes(«AutoShape 4»).ScaleWidth 1.1, 0, 0

Range(«A1»).Select

For t = 1 To Tik: Next t

Next k

Следите за номерами объектов (они
скорее всего у вас будут совсем другими) и не
забывайте давать значение переменной Tik.

Здесь в макросе было использовано
масштабирование с коэффициентом 1.1, но можно было
бы задать изменение ширины. В этом случае две
первые строки предыдущей записи могли выглядеть
так:

For w = 30 To 80 Step 3

ActiveSheet.Shapes(«AutoShape 4»).Width = w

Изменение высоты имеет следующий
синтаксис:

ActiveSheet.Shapes(«AutoShape 4»). Height = w

И ширина, и высота отсчитываются от
левого верхнего угла фигуры.

Мяч

Попробуем сочетание двух видов
движения: поступательного и вращательного.
Нарисуем мячик с полоской, сгруппируем и пустим
его по полю с помощью макроса, использующего
цикл:

For i = 1 To 200

ActiveSheet.Shapes(«Group 6»).IncrementRotation 3

ActiveSheet.Shapes(«Group 6»).IncrementLeft 3

Range(«A1»).Select

Next i

Это с использованием относительного
смещения, а теперь немного математики, и в
абсолютных координатах делаем “навесной удар”:

For i = 1 To 200

ActiveSheet.Shapes(«Group 6»).Left = i * 2 + 20

ActiveSheet.Shapes(«Group 6»).Top =

98 + (i — 100) ^ 2 / 50

ActiveSheet.Shapes(«Group 6»).Rotation = i * 3

Range(«A1»).Select

Next i

Мяч, в соответствии с законами
механики, летит по параболе.

Планета

А как обстоят дела с вращением, если
ось проходит не через центр объекта и даже
находится за его пределами?

Один из возможных вариантов
рассмотрим на простом, но достаточно эффектном
примере. Заливкой диапазона изобразим
космическое пространство. В центре поместим
Солнце. Нарисовав планету, создадим ее копию, для
которой выберем: Цвет заливки – Нет заливки, Цвет
линий – Нет линий. Удалив планеты на расстояние,
равное диаметру орбиты, выделим нашу невидимку и
оригинал и сгруппируем. Разместим группу так,
чтобы ее центр пришелся на центр Солнца, и
запустим макрос:

For u = 0 To 360 * 2 Step 5

ActiveSheet.Shapes(«Group 12»).Rotation = u

For t = 1 To Tik: Next t

Range(«A1»).Select

Next u

Если для демонстрации требуется
большее число оборотов, множитель в первой
строке увеличиваем.

Движение тела, брошенного под углом к горизонту

Задача о моделировании движения тела,
брошенного под углом к горизонту, в курсе
информатики стала уже классикой. Тем не менее
попробуем внести в решение этой задачи свою
лепту, используя предлагаемые анимационные
возможности. В результате:

— тело действительно перемещается в
заданной системе координат, причем наглядно
изменяется вектор скорости и его горизонтальная
и вертикальная составляющие;

— длину вектора начальной скорости и
угол его наклона к плоскости горизонта можно
изменять, при этом меняется и траектория полета;

— как в числовой, так и в графической
форме фиксируются координаты максимальной
высоты подъема и дальности полета;

— отражаются текущие параметры
движения тела;

— моменты времени полета можно
изменять вручную как в прямом, так и в обратном
направлении, отслеживая текущие параметры.

При разработке этого проекта пришлось
решать ряд сопутствующих проблем.

Управление движущимся объектом

Пока тело совершает поступательное
или вращательное движение, с описанием этого
процесса особых проблем нет, хотя в первом случае
отсчет координат ведется от левого верхнего угла
прямоугольника, содержащего объект, а поворот
осуществляется относительно центра этого
прямоугольника. Даже изменение размеров
объектов без поворота не создает дополнительных
сложностей. А вот сочетание поворота объекта и
изменения его размеров вносит определенные
трудности в описание его положения, так как при
изменении размеров меняются координаты центра.
Так, пытаясь в макросе увеличить длину
прямоугольника, повернутого на 90^o, вы, к
удивлению, обнаружите, что при этом меняются и
его координаты.

Для того чтобы разобраться с этим,
пришлось провести дополнительные исследования в
проекте, о котором упоминалось в разделе Сетка
Excel.

Массив точек

В векторной графике отсутствует
понятие “точка”, но это не означает, что в точках
нет необходимости. Роль точек с успехом
выполняют квадраты со стороной 0,05 см и меньше или
овалы такого же размера без границ. Если точки
являются действующими “героями” сюжета
(например, показывают траекторию движения
объекта), то методом копирования и последующей
вставкой из буфера обмена необходимо создать
массив точек в необходимом количестве. В этом
случае с ним несложно управляться в цикле, а все
незадействованные точки, чтобы были под рукой,
можно “спрятать” под любой из отображаемых
точек или фигур.

Именование ячеек и запись формул в
естественном виде

Одно из несомненных достоинств MS Excel —
богатство математического аппарата, которым не
обладает Visual Basic. Поэтому во всех случаях, где
можно обойтись без макросов в процессе
вычислений, лучше использовать возможности
этого приложения. Кроме того, электронные
таблицы позволяют ячейкам с данными присваивать
собственные имена. Ничто не мешает нам, создавая
ту или иную модель, давать ячейкам, содержащим
переменные, принятые в физике и математике
привычные обозначения. В этом случае формулы
будут выглядеть вполне естественным и понятным
образом.

Ожившие графики

Управление функцией

Построение графиков функций в Excel с
помощью мастера диаграмм вызывает восторг у
детей при изучении этой темы. Демонстрация
использования макросов для построения
динамических графиков и диаграмм вызывает
восхищение не только у учащихся, но и у
преподавателей. Кто из учителей математики не
мечтал о том, как доходчиво и наглядно объяснить
ребятам получение графиков растяжением (сжатием)
вдоль осей координат или параллельным переносом?
Кто из учителей физики не ломал голову над тем,
как убедительно в графической форме
проиллюстрировать развитие того или иного
процесса во времени или динамику зависимости
изменения одной величины от другой?

Возможности для реализации этих
дидактических задач есть, и их предоставляет MS
Excel.

Попробуем построить график функции

у = a · sin x, где а —
параметр.

В ячейку G3 введите
начальное значение параметра а, равное 3,
примените выравнивание по центру и установите
черные, сплошные тонкие внешние границы. В ячейку
G2 поместите имя параметра а,
используя форматирование: выравнивание по
центру, шрифт полужирный, наклонный.

Заполните ячейки рабочего листа в
соответствии с таблицей.

Выделите диапазон A2:A3 и с
помощью маркера автозаполнения введите значения
аргумента x до 5. Затем таким же способом
растяните формулы в ячейках B2 и С2 для ввода
значений функций y1 и y2.

Выделите заполненный диапазон A1:C22, нажмите на кнопку мастера диаграмм на стандартной
панели, выберите тип диаграммы Точечная, Вид как
на рисунке , и нажмите
кнопку Готово. Появятся графики функций y1
и y2.

Кнопкой на панели Visual Basic включите отображение
Элементов управления, выберите Счетчик и нарисуйте в ячейке G5 изображение кнопок счетчика.
Двойным щелчком по Счетчику перейдите в окно Visual
Basic. На панели свойств в строке LinkedCell укажите G4, в строке Max установите значение 60.
Остальные значения не изменяйте.

Вернитесь в MS Excel и в ячейку G3
введите формулу =(G4–30)/10. Отпустите
кнопку Режим
конструктора на панели Visual Basic и попробуйте
нажимать на кнопки счетчика. Значения параметра а
будут меняться, а вместе с ним динамически
будет меняться и график!!!

Включив Режим конструктора,
передвинем счетчик на ячейку G4,
чтобы скрыть связанные значения, и
откорректируем вид кнопок, после чего Режим
конструктора опять отключим.

Для того чтобы не изменялся вид
координатной плоскости при изменениях
параметра, щелкнем правой кнопкой мыши по оси y
на диаграмме и, выбрав Формат оси, выйдем на
вкладку Шкала, где снимем флажки Авто у
минимального и максимального значений, оставив
их равными соответственно –4 и 4.

Остальное форматирование текста и
диаграммы можно сделать в соответствии с
обстоятельствами и вашим вкусом. Ненужные
элементы можно скрыть, а необходимые допечатать
или дорисовать с помощью панели рисования.

На прилагаемом рисунке использован
вариант этого проекта с тремя параметрами.

Рассмотренный способ с успехом можно
использовать для графического решения
параметрических уравнений и задач оптимизации.

Закон Бойля — Мариотта

Попробуем в таблице, на основании
которой построен график, удалить часть
аргументов. Тотчас в графике в соответствующих
местах мы обнаружим прорехи. Причем MS Excel,
несмотря на оставшиеся нетронутыми формулы для
результатов, никак не отреагирует на наши
безобразия какими-либо замечаниями. А что если в
таблице, в которую внесены формулы для
результатов и на основании которой с помощью
мастера диаграмм создано полотно для построения
графика, попробовать вносить аргументы не
методом протягивания (хотя и этот вариант не
отвергается), а с помощью макроса? Вы совершенно
правы: мы действительно получим долгожданное и
желанное динамичное отображение функциональной
зависимости.

Еще немного фантазии, и вот оно
воплощение в проекте:

— поршень плавно скользит в цилиндре;

— изменяются по величине векторы
усилия и давления, уравновешивая друг друга;

— вращается стрелка манометра,
показывая величину давления под поршнем;

— выделяется величина объема газа под
поршнем;

— даже газ густеет и становится менее
прозрачным;

— в динамическом режиме, в
соответствии с изменениями, строятся графики
зависимости объема и температуры от давления;

— изменяются проекции точек графика и
соответствующие им значения величин.

Возможно как автоматическое, так и
пошаговое изменение давления с фиксацией
промежуточных значений величин. В последнем
случае в любой момент направление движения
поршня можно изменить. Проект с успехом можно
использовать как в демонстрационных целях, так и
для выполнения лабораторных и практических
работ.

Другие варианты

Анимация сменой слайдов в различных
графических форматах

Нетрудно проверить, что в электронных
таблицах анимация в форматах GIF и Flash не
поддерживается. Тем не менее не стоит
отчаиваться. Сейчас вы убедитесь, что MS Excel в
области анимации способен “оживить” даже самые
бесперспективные графические форматы, используя
для этого простейший макрос.

В предлагаемом проекте фотографии
Луны в формате PNG (вряд ли кто слышал об анимации в
этом формате) с именами от “Pictures 1” до “Pictures 28”
сложены в одну стопку.

Включим запись макроса и произведем
следующие действия:

— выделим верхний снимок;

— выберем в контекстном меню Порядок;

— укажем в дополнительном меню На
передний план;

— завершим создание макроса.

Оставим в макросе только строку

ActiveSheet.Shapes(«Pictures 1»).ZOrder msoBringToFront

и преобразуем его к виду:

For n = 1 To 28

ActiveSheet.Shapes(n).ZOrder msoBringToFront

Range(«A1»).Select

For T = 1 To Tik*5: Next T

Next n

Фотографии, невзирая на свое
происхождение, “всплывают” друг за другом,
демонстрируя полный цикл смены фаз Луны.
Дополнительный цикл позволит исполнить эту
процедуру неоднократно.

Несложно догадаться, что такому
макросу подвластны все графические форматы: как
растровые, так и векторные. Необходимо только
следить, чтобы при вставке рисунков вы не
нарушали порядок их чередования.

Последовательный переход с одного листа книги
на другой

Технология создания анимации этим
способом следующая:

1. Удаляем все листы книги, кроме
первого. Ему даем короткое имя, например, “1”,
чтобы как можно больше листов было доступно при
редактировании. Имя листа не имеет значения и не
обязательно должно быть коротким. Обращение к
листу в макросе будет производиться по его
индексу, который с именем не связан.

2. Создаем первый кадр сцены со всеми
необходимыми объектами.

3. Используя Правка –
Переместить/скопировать лист…, выбираем в
диалоговом окне (переместить в конец) и отмечаем
флажок Создавать копию. Копии даем имя “2”.

4. На копии производим необходимые
изменения расположения и других свойств
объектов, соответствующих второму кадру.

5. Повторяем пункты 3 и 4 необходимое
число раз, давая соответствующие имена листам.

6. Создаем макрос, последовательно
переключаясь с одного листа на другой, который в
окончательном варианте после редактирования
должен смотреться примерно так:

For i = 1 To 20

Sheets(i).Select

For t = 1 To Tik: Next t

Next i

Не исключен вариант анимации на основе
смены кадров с помощью клавиш и , что на VBA выглядит как:

ActiveWindow.LargeScroll Down := 1

Недостатком этого варианта является
прежде всего более высокая трудоемкость
расположения объектов на каждой новой сцене, а
также отвлекающее мелькание заголовков строк и
полосы прокрутки при исполнении.

Изменение положения камеры

Возможен вариант анимации на основе
использования полос прокрутки, когда создается
эффект плавного изменения положения камеры, а
объекты могут оставаться на месте. Вот пример
макроса, когда камера скользит вниз на 100 строк.

For i = 1 To 100

ActiveWindow.SmallScroll Down := 1

‘смещение на строку

For t = 1 To Tik: Next t

Next i

Чтобы камера смещалась вправо, первую
строку тела цикла необходимо заменить командой

ActiveWindow.SmallScroll ToRight := 1.

Для изменения направления вверх или
влево следует перед единицей поставить знак
“минус”. Не возбраняется использование и
сочетание смещений.

Камера может приближаться или
удаляться за счет изменения масштаба
рабочего листа. В следующем примере камера
отъезжает от сцены:

For i = 100 To 20 Step -1

ActiveWindow.Zoom = i

For t = 1 To Tik: Next t

Next i

Масштаб может изменяться в пределах от
10 до 400%.

Цветовые модели. Сжатие ячеек

Ячейка электронной таблицы может
выступать в роли пикселя и даже в роли составной
части элемента изображения экрана, соответствуя
одному из компонентов системы основных цветов RGB.
Используя эту возможность, нетрудно создать
динамические модели, которые позволяют наглядно
и убедительно продемонстрировать, как
образуется цветовая гамма на CRT- и LCD-мониторах,
сложение цветов в опыте Юнга и колориметре
Максвелла, вычитание цветов в системе CMYK. Кроме
того, динамичное, наглядное преобразование
двоичного представления изображения в
шестнадцатеричное, десятичное и затем в
соответствующие цвета ячеек, с последующим
сжатием ячеек до размера экранной точки,
позволяют эффективно продемонстрировать, что
такое количество отображаемых цветов, глубина
цвета, размер и объем изображения, и как они
связаны между собой. Изменение ширины и высоты
ячеек также фиксируется в макросах, на чем и
основываются предлагаемые проекты. Правда,
возможности Excel в плане использования заливок
ячеек ограничены 56 индексными цветами, поэтому
для полноты цвета в системе RGB можно
воспользоваться заливками векторных
графических объектов типа:

ActiveSheet.Shapes(«Freeform 3»).Fill.ForeColor.RGB =
RGB(255, 0, 0)

Можно задавать цвет и с помощью
индексов, что удобно в циклах, но вот очередной
парадокс от корпорации Microsoft: несмотря на то что
при закраске ячеек и закраске автофигур вы
нажимаете на одни и те же значки и кнопки, тем не
менее одним и тем же индексам будут
соответствовать разные цвета в первом и во
втором случаях, что необходимо учитывать. Кроме
того, количество индексов для закраски автофигур
равно 80, хотя некоторым цветам соответствуют два
индекса, например, красному цвету соответствуют
индексы 2 и 10.

Вот пример закраски ячейки:

Range(«F5»).Font.ColorIndex = 3

‘ цвет текста

Range(«F5»).Interior.ColorIndex = 3

‘ цвет заливки

Range(«F5»).Borders.ColorIndex = 3

»цвет границ

А это закраска прямоугольника:

»цвет заливки

ActiveSheet.Shapes(«Rectangle 1»).Fill. ForeColor.SchemeColor = 2

ActiveSheet.Shapes(«Rectangle 1»).Line. ForeColor.SchemeColor = 10

»цвет границ

Аналогично закрашиваются и объекты
WordArt.

Во всех примерах цвет красный.

Вставка звуков

Не все знают, что приложения MS Office, в
том числе и Excel, способны внедрять, хранить и
воспроизводить звуки в формате wav. Это позволяет
озвучивать создаваемые проекты. Для вставки
звука необходимо в горизонтальном меню выбрать
Вставка – Объект… и на вкладке Новый выбрать
Звукозапись. С помощью появившегося окна утилиты
звукозаписи можно записать комментарий или,
выбрав в меню Правка – Вставить файл…,
произвести вставку мелодии или сообщения. При
этом на рабочем поле появляется значок динамика , а в строке формул:
=ВНЕДРИТЬ(«SoundRec»;»»).

Если сделать двойной щелчок по
динамику, то звук начнет воспроизводиться. Этим
же способом можно создать и макрос для включения
звука.

ActiveSheet.Shapes(«Object 3»).Select

Selection.Verb Verb := xlPrimary

При необходимости значок динамика
можно уменьшить и спрятать за какой-либо
графический объект или управляющую кнопку.

Подведем итоги

Возможно, найдутся скептики, которые
скажут, что для анимации существуют другие
превосходные возможности, например, в том же
Macromedia Flash. Да и офисное приложение Power Point
достаточно просто в использовании и обладает
обширным набором различных динамических
эффектов. Однако даже несмотря на то, что в Power Point
заложен потенциал внедрения объектов MS Excel,
существует обширный круг задач, решаемых в
электронных таблицах, образная динамическая
интерпретация которых может быть использована
не только в дидактических целях. Что же касается
обучения, приведенные примеры, полагаю,
достаточно убедительны, особенно если вы уже
достигли определенных успехов, проверяя
технологию при прочтении, или воспользовались
предлагаемыми файлами, выложенными на сайте inf.1sept.ru.

Несомненно и то, что использование
элементов этой технологии при изучении темы
“Алгоритмизация и основы визуального
объектно-ориентированного программирования”
расширяет круг задач, которые можно предложить
детям, позволяет повысить их заинтересованность
и результативность учебного процесса в целом.
Откройте школьные учебники, будь то физика,
химия, математика или русский язык. Попробуйте
взглянуть на иллюстрации: рисунки, схемы,
графики, таблицы и диаграммы — по-новому,
динамически. Вам откроется необъятное поле
деятельности. Свой законный и довольно обширный
участок на этом поле займут динамические
иллюстрации в приложении MS Excel.

Как видим, Excel (что означает
“превосходный”) открылся нам с новой,
неожиданной стороны и еще раз подтвердил свое
название.

Литература

1. Касьянов В.А. Физика. 10-й класс:
Учебник для общеобразовательных учреждений. 5-е
изд., дораб. М.: Дрофа, 2003, 416 с.: ил.

2. Угринович Н.Д. Информатика и
информационные технологии. Учебник для 10–11-х
классов. М.: БИНОМ. Лаборатория Знаний, 2003, 512 с.: ил.

¹ А.С. Пушкин “Полтава” (1829).

² Указанное в поле масштаба
максимальное значение в 200% сбивает с толку.
Можете попробовать вписать число до 400%.
Действует.

Источник

Объекты для работы с фигурами

Синтаксис метода AddShape

Параметры метода AddShape

Константы MsoAutoShapeType

Создание объекта ShapeRange

Примеры работы с фигурами

Пример 1

Пример 2

Пример 3

Пример 4

Пример 5

Пример 6

Пример 7

Предлагаю коллегам

Предварительная подготовка

Динамические эффекты на основе форматирования

Графика

Движение графических объектов

Ожившие графики

Другие варианты

Динамические эффекты на основе
форматирования