Отправлено: 02.06.07 14:19. Заголовок: Как заставить работать кнопку?

Ув. господа.

Как заставить работать кнопку?

Созданы макросы создания и удаления кнопки, Создан макрос который по идеи должен запускаться, кнопка создается и удаляется, но фактически не работает.

Все макросы находятся у меня в Module1/DocumentProject . И другое расположение неприемлемо т.к. данная программа нужна только для единственной модели.


Текст Макросов:

Public Sub CreateMacroControl()
Dim oCommandMgr As CommandManager
Dim oControlDefs As ControlDefinitions
Dim oMacroDef As MacroControlDefinition
Dim oPartStandardToolbar As CommandBar
Dim oMacroControl As CommandBarControl


Set oCommandMgr = ThisApplication.CommandManager
Set oControlDefs = oCommandMgr.ControlDefinitions ' Set a reference to the collection of ControlDefinitions
On Error Resume Next
Set oMacroDef = oControlDefs.Item("macro:Module1.DisplayMessage") ' Create a macro definition
If oMacroDef Is Nothing Then
Set oMacroDef = oControlDefs.AddMacroControlDefinition("Module1.DisplayMessage")
End If
Set oPartStandardToolbar = ThisApplication.UserInterfaceManager.CommandBars.Item("PMxPartStandardCmdBar") ' Set a reference to the Part Standard toolbar
Set oMacroControl = oPartStandardToolbar.Controls.AddMacro(oMacroDef) ' Add a macro control to the toolbar
oMacroDef.Enabled = True ' Enable the control

End Sub

Public Sub DeleteMacroControl()
Dim oPartStandardToolbar As CommandBar
Dim oMacroControl As CommandBarControl

Set oPartStandardToolbar = ThisApplication.UserInterfaceManager.CommandBars.Item("PMxPartStandardCmdBar")
For Each oMacroControl In oPartStandardToolbar.Controls
If oMacroControl.InternalName = "macro:Module1.DisplayMessage" Then
oMacroControl.Delete
Exit Sub
End If
Next

End Sub

Public Sub DisplayMessage()
UserForm1.Show
End Sub


Заранее благодарю,

Д