Лабораторная работа 6.1 Работа с глобальным корпоративным шаблоном

Работа с глобальным корпоративным шаблоном на Project Server 2003, доступность кода VBA для всех пользователей организации

Ситуация:

Вам необходимо создать программный код VBA в Project Professional, который был бы доступен из всех проектов в Project Professional.

Задание:

1) Создайте в глобальном корпоративном шаблоне программный модуль VBA.

2) Создайте в этом программном модуле макрос CorpProc (процедуру, не принимающие параметры), которая бы выводила диалоговое окно с текстом "Корпоративная процедура  запущена".

3) Создайте в глобальном корпоративном шаблоне панели инструментов "Корпоративные средства", сделайте ее видимой и создайте на ней единственную кнопку, по нажатию на должен запускаться макрос CorpProc.

4) Сохраните глобальный корпоративный шаблон с внесенными изменениями и закройте Project Professional 2003. Создайте новый проект и убедитесь, что в нем можно использовать созданную вами панель инструментов и макрос.

Решение:

1) Откройте Project Professional 2003 и в меню "Сервис" -> "Корпоративные параметры" выберите "Открыть глобальный корпоративный шаблон".

2) Нажмите Alt-F11, чтобы открыть окно редактора Visual Basic.

3) В окне Project Explorer щелкните правой кнопкой мыши по строке "VBA Project (Извлеченный корпоративный глобальный шаблон)" и в контекстном меню выберите Insert -> Module. В глобальном корпоративном шаблоне будет создан новый программный модуль VBA.

4) В окне редактора кода введите следующий код:

Public Sub CorpProc()

MsgBox "Корпоративная процедура запущена"

End Sub

Закройте окно редактора Visual Basic.

5) В окне Project Professional в меню "Сервис" -> "Настройка" выберите "Панели инструментов" и нажмите на кнопку "Создать". Введите название новой панели инструментов "Корпоративные средства" и нажмите OK.

6) Перейдите на вкладку "Команды", в списке "Категории" выберите "Все макросы" и перетащите из списка "Команды" макрос CorpProc (самый верхний) на созданную вами панель инструментов. Щелкните по созданной вами кнопке правой кнопкой мыши и в контекстном меню выберите "Основной стиль", а затем в том же контекстном меню - "Выбрать значок для кнопки" и выберите какой-нибудь значок.

7) Нажмите на кнопку "Закрыть" в окне "Настройка" и перетащите созданную панель к другим панелям в верхней части окна Project Professional. Нажмите на кнопку, чтобы убедиться, что все работает нормально. Сохраните корпоративный шаблон и закройте Project Professional.

8) Запустите Project Professional еще раз и убедитесь, что во всех новых и уже опубликованных ранее проектах созданный вами макрос вызывается по нажатию кнопки на панели инструментов "Корпоративные средства".

Получить учебные материалы по этому курсу