Toolbars

E

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
 
N

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
 
N

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top