Toolbars

[Edgar Thoemmes]

I am trying to add some Toolbars via my personal.xls as for some reason my
toolbars reset each time I exit Excel. I have tried using the code below to
add the toolbars they are floating toolbars.

Application.CommandBars("WordArt").Visible = True

Does anyone know of a way that I can stick these to the toolbar?

I use Windows NT with Excel 97

Thanks

 

[Nikos Yannacopoulos]

Edgar,

Try this

Application.CommandBars("WordArt").Visible = True
Application.CommandBars("WordArt").Position=msoBarTop
Application.CommandBars("WordArt").RowIndex = 128

The second line will put the toolbar at the top, right under the menubar and
above the already existing toolbars. The third line will put it below the
already existing toolbars. RowIndex can take values 0 - 128, and giving it
an equal value as an existing toolbar will put it next to the latter on the
same row. Experiment with it to see how it works.

HTH,
Nikos

 

[Nikos Yannacopoulos]

Edgar,

Try this

Application.CommandBars("WordArt").Visible = True
Application.CommandBars("WordArt").Position=msoBarTop
Application.CommandBars("WordArt").RowIndex = 128

The second line will put the toolbar at the top, right under the menubar and
above the already existing toolbars. The third line will put it below the
already existing toolbars. RowIndex can take values 0 - 128, and giving it
an equal value as an existing toolbar will put it next to the latter on the
same row. Experiment with it to see how it works.

HTH,
Nikos