|
|
|
Сохранить созданную панель в MS Project
|
|||
|---|---|---|---|
|
#18+
Задача следующая: Надо сделать проект 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, у него на машине нужно будет создать глобальный макрос. Подскажите какое-нибудь приемлемое решение, плиз. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.11.2006, 14:51:19 |
|
||
|
|

start [/forum/topic.php?fid=61&gotonew=1&tid=2183934]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
42ms |
get topic data: |
6ms |
get first new msg: |
3ms |
get forum data: |
2ms |
get page messages: |
22ms |
get tp. blocked users: |
1ms |
| others: | 210ms |
| total: | 304ms |

| 0 / 0 |
