M
MichaelA
Hello All,
Has anyone implemented a custom toolbar in MS Project Server (I'm
using 2003) using VBA? Everything works terrific for me in MS Project
standalone and when I install the toolbar in MS Project Server, the
macro doesn't run. The code executes ok from the Editor or from the
Tools/Macro menu. I changed nothing from the standalone version.
I have tried using 'public' to declare the module in case that was an
issue. I have also tried referencing Global.MPT!<procedure name>. It
just won't run from the toolbar.
Any ideas from anyone who has managed to install a toolbar in MS
Project Server?
The relevant toolbar code is:
Set MyButton = MyBar.Controls("Resource %")
If MyButton Is Nothing Then
Set MyButton = MyBar.Controls.Add(Type:=msoControlButton)
With MyButton
.Style = msoButtonIconAndCaption
.FaceId = 183
.Caption = "Resource %"
.TooltipText = "Extracts utilisation of Resources to Excel"
.OnAction = "extractResourceInfo"
'.OnAction="Global.MPT!extractResourceInfo" <= doesn't work
either
End With
End If
The procedure is declared as:
Sub extractResourceInfo ()
<all code here>
End Sub
Thanks and regards
Michael A.
Has anyone implemented a custom toolbar in MS Project Server (I'm
using 2003) using VBA? Everything works terrific for me in MS Project
standalone and when I install the toolbar in MS Project Server, the
macro doesn't run. The code executes ok from the Editor or from the
Tools/Macro menu. I changed nothing from the standalone version.
I have tried using 'public' to declare the module in case that was an
issue. I have also tried referencing Global.MPT!<procedure name>. It
just won't run from the toolbar.
Any ideas from anyone who has managed to install a toolbar in MS
Project Server?
The relevant toolbar code is:
Set MyButton = MyBar.Controls("Resource %")
If MyButton Is Nothing Then
Set MyButton = MyBar.Controls.Add(Type:=msoControlButton)
With MyButton
.Style = msoButtonIconAndCaption
.FaceId = 183
.Caption = "Resource %"
.TooltipText = "Extracts utilisation of Resources to Excel"
.OnAction = "extractResourceInfo"
'.OnAction="Global.MPT!extractResourceInfo" <= doesn't work
either
End With
End If
The procedure is declared as:
Sub extractResourceInfo ()
<all code here>
End Sub
Thanks and regards
Michael A.