topic Re: VBA button in normal.mxt vs project.mxd in ArcObjects SDK Questions

VBA button in normal.mxt vs project.mxd

Anonymous User — Fri, 24 Sep 2010 12:44:43 GMT

Original User: alnesbit

Hi all,

I wanted to put code in the normal.mxt instead of the mxd but it doesn't work. The code just launches a toolbar that I created. Why doesn't this work in the normal.mxt?

Private Sub UIButtonControl9_Click()

    Dim pCmdBars As ICommandBars
    Set pCmdBars = ThisDocument.CommandBars
    Dim pCmdBar As ICommandBar
    Set pCmdBar = pCmdBars.Find("Project.Parcel Split")
    If Not pCmdBar.IsVisible Then
        pCmdBar.Dock esriDockToggle
    Else
        pCmdBar.Dock esriDockToggle
    End If

End Sub

Thanks

Re: VBA button in normal.mxt vs project.mxd

JakubSisak — Fri, 24 Sep 2010 15:05:58 GMT

If you are using ArcGIS 10 then you can no longer save UI controls in the Normal Template. You can still do so in the document-Level. In ArcCatolog UI controls are still available.

Re: VBA button in normal.mxt vs project.mxd

Anonymous User — Mon, 27 Sep 2010 11:38:34 GMT

Original User: alnesbit

Ok, I am using 9.3.1.

but good to know about 10. thanks.

Re: VBA button in normal.mxt vs project.mxd

JakubSisak — Mon, 27 Sep 2010 11:50:22 GMT

mxt is a template file for mxd documents. In VBA, when you place code in the "Normal (Normal.mxt)" Project (see attached) you are actually placing the code in the "Normal.mxt" template from which all documents will "inherit" this custom behavior. This goes for both 9.3 and version 10. With the exception that older versions (8 - 9.x.x) you can also add custom buttons and other controls into your global normal template (Normal.mxt) but in version 10 you cannot.

Re: VBA button in normal.mxt vs project.mxd

Anonymous User — Mon, 27 Sep 2010 11:56:30 GMT

Original User: alnesbit

right, I'm with you.

My question still remains. This simple code won't run when I put the button and the code in the normal.mxt instead of the mxd. Does it run for anyone else on 9.3.1? Maybe it's something with a library. I'm not sure why it won't work.

Thanks,

Re: VBA button in normal.mxt vs project.mxd

JakubSisak — Mon, 27 Sep 2010 12:11:27 GMT

If the toolbar has been created in the Normal template try this:

Set pCmdBar = pCmdBars.Find("Normal.ThisDocument.Parcel Split")

instead of:

Set pCmdBar = pCmdBars.Find("Project.Parcel Split")

Re: VBA button in normal.mxt vs project.mxd

Anonymous User — Tue, 05 Oct 2010 18:06:13 GMT

Original User: alnesbit

ah, good point. I will give that a try.

Thanks!

Re: VBA button in normal.mxt vs project.mxd

Anonymous User — Thu, 07 Oct 2010 17:59:55 GMT

Original User: alnesbit

Hello,

Well, that didn't work either. I get Run time error 91, Object variable or With block variable not set.

It debugs to the line after the '*.

Private Sub LaunchPToolbar_Click()

Dim pCmdBars As ICommandBars
Set pCmdBars = ThisDocument.CommandBars
Dim pCmdBar As ICommandBar
Set pCmdBar = pCmdBars.Find("Normal.ThisDocument.ParcelSplit")
'*
If Not pCmdBar.IsVisible Then
pCmdBar.Dock esriDockToggle
Else
pCmdBar.Dock esriDockToggle
End If

End Sub

Any other thoughts or ideas? (Yes my toolbar is in the normal and it is called "ParcelSplit")

Thanks in advance,

Re: VBA button in normal.mxt vs project.mxd

LledSmith — Tue, 19 Apr 2011 12:33:46 GMT

I was able to save UI controls in the Normal Template by replacing the normal.mxt with a 9.3.1 normal.mxt.