Создание других органов управления средствами Excel

Примеры типовых органов управления, функционирующих в MS Excel, представлены на Рис. 5.5.

Это "оживленные" рисунки, выполненные в любом пиксельном формате и вставленные на лист Excel. При нажатии мышкой на правую стрелку переключателя пределов измерения (Рис. 5.5, а) белая точка, указывающая предел измерения, перемещается на один шаг по часовой стрелке; при нажатии на левую кнопку точка движется в обратном направлении. При этом в заранее заданной ячейке Excel (например, A3) появляется число, указывающее номер позиции переключателя. Этот номер мож­но использовать, например, для масштабирования данных, принятых от датчика.

Точка, указывающая положение переключателя на Рис. 5.5, а) является овалом, нарисованным средствами Excel. Она не может быть рисунком в пиксельном формате, поскольку VBA, входящий в состав Excel, не позволяет выполнять поворот растровых рисунков.

Важно отметить, что код, управляющий движением рассматриваемых ниже органов управления и контроля, можно не писать, а включить режим записи макроса и в это время произвести нужные операции над создаваемым объектом. В ре­зультате Excel автоматически создаст код, выполняющий то, что вы делали вручную. Это избавляет вас от изучения язы­ка VBA. Конечно, желательно понимать смысл того, что создал вместо вас визард макросов MS Excel, но для этого дос­таточно знать английский язык, который помогает угадать смысл отдельных команд записанного макроса.

Макрос, перемещающий точку на Рис. 5.5, а) по часовой стрелке, выглядит следующим образом:

GaugePisition = Sheets("Gauge").Range("A3") Sheets("Gauge").Shapes("Point").IncrementRotation 22

GaugePisition = GaugePisition + 1

Sheets("Gauge").Range("A3").Value = GaugePisition

Здесь первая строка считывает началь­ную позицию переключателя, которая хранится в ячейке A3 на листе "Gauge". Вторая строка выполняет поворот точ­ки "Point" относительно центра враще­ния на угол 22 градуса. Для создания центра вра -щения в нужном месте сле­дует создать вторую точку симметрич­но относительно центра ручки, сделать ее невидимой и сгруппировать с види­мой точкой. Такая гру- ппа в нашем примере названа "Point". Третья строка представляет собой стандартный счет­чик с приращением 1, четвертая строка записывает значение счетчика в ячейку A3. Переменную GaugePosition можно использовать в дальнейшем для мас­штабирования принятых данных.

Слайдер (Рис. 5.5, в) является стан­дартным элементом Excel, мы добавили к нему лишь шкалу. Позиция указателя записывается в ячейку, которую вы выбираете сами. Кнопки "СТОП" и "ПУСК" (Рис. 5.5, д) являются стандартными кнопками MS Excel, мы только измени­ли их цвет. Оригинальная кнопка (Рис. 5.5, е) является растровым рисунком, а зеленый "светодиод" на ней - векторным рисунком, выполненным средствами Excel. При нажатии кнопки светодиод "гаснет", т.е. его цвет изменяется на серый. При этом в ячейку А6 записывается значение "False", при повторном нажатии светодиод загорается и в ячейку записыва­ется значение "True":

If Worksheets("Gauge").Range("A6").FormulaRlCl = "=TRUE()" Then

Worksheets("Gauge").Range("A6").FormulaRlCl = "=FALSE()"

Worksheets("Gauge").Shapes("Light").Fill. Visible = msoTrue

Else

Worksheets("Gauge").Range("A6") = "=TRUE()"

Worksheets("Gauge").Shapes("Light").Fill. Visible = msoFalse End If

Третья строчка кода делает "светодиод" видимым (Fill. Visible = msoTrue), а шестая - "гасит" его.

MS Excel позволяет "закрепить" каждый элемент на листе, защитить его от случайного удаления и защитить весь рабо­чий лист. Ввод данных можно выполнять непосредственно в ячейки рабочего листа Excel, в текстовые поля или в спе­циальные элементы управления, поставляемые в составе MS Excel.

Отметим некоторые общие особенности создания программ автоматизации эксперимента с помощью MS Excel. После отладки программы ее следует защитить от случайной порчи исходного текста. Для этого используется пункт меню "Сервис/Защита". Перед защитой в свойствах каждого элемента следует указать, должен ли он быть защищен после за­щиты всего листа. Если некоторые элементы должны изменяться программно, сначала нужно снять их защиту, а после модификации элемента вновь защитить его. Однако есть более простой способ: поверх изменяемого элемента можно положить "стекло" - прозрачный растровый рисунок - и защитить его. Тогда пользователю лежащие под "стеклом" объ­екты будут недоступны, а программа может их модифицировать.

При передаче такой программы заказчику ее текст можно скрыть с помощью пункта меню VBA "Tools/VBA Project Properties" и назначить пароль, который не позволит пользоваться исходным текстом программы без санкции поставщи­ка.

Дата добавления: 2013-12-13