Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранить созданную панель в MS Project / 2 сообщений из 2, страница 1 из 1
14.11.2006, 14:51:19
    #34127412
minya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранить созданную панель в MS Project
Задача следующая:
Надо сделать проект MS Project, который при его открытии добавляет панель с кнопкой. Кнопка выполняет некоторый макрос.
В файл Project1.mtp записал:

Private Sub Project_Activate(ByVal pj As Project)
Dim customBar As CommandBar
Dim newButton As CommandBarButton
Dim exists As Boolean
Dim bar As CommandBar
Dim i As Integer
Dim num As Integer
Dim aProject As Project

exists = False

i = 1
For Each bar In CommandBars
If bar.Name = "MyBar" Then
exists = True
num = i
End If
i = i + 1
Next bar

If Not exists Then
Set customBar = CommandBars.Add("MyBar")
Set newButton = customBar.Controls.Add
newButton.Caption = "Exchange"
newButton.Style = msoButtonIconAndCaption
newButton.OnAction = "Show"
customBar.Visible = True
End If
End Sub

Теперь если "Show" - локальны макрос (в этом проекте), то при закрытии проекта кнопка на панели исчезает. Если "Show" - глобальный макрос, то все работает : панель с кнопкой остаются "навсегда". Но это плохо, поскольку конечному пользователю недостаточно будет просто передать файл Project1.mtp, у него на машине нужно будет создать глобальный макрос.
Подскажите какое-нибудь приемлемое решение, плиз.
...
Рейтинг: 0 / 0
15.11.2006, 08:14:22
    #34128966
minya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранить созданную панель в MS Project
Уважаемые Гуру, подскажите что-нибудь. Совсем не знаю что делать.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранить созданную панель в MS Project / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]