Custom Buttons

[Guest]

I use a lot of subscripts and superscripts in my work and I would like to create a custom button for a toolbar that automatically changes to subscripts and/or superscripts. Does anyone if you can create custom buttons?

 

[Frank Isaacs]

This looks like a tough one. It's easy to do for an entire cell, but I'm
guessing you only sub- and super-script one (or some) of the characters in a
cell, rather than a whole cell. The problem is that if you select characters
in a cell, you cannot then run a macro on them; those options are
unavailable on the menu (as are most buttons on the toolbars).

If you want to do a whole cell, you can attach a macro such as the following
to a custom button:

Sub Super()
ActiveCell.Characters.Font.Superscript = True
End Sub

One improvement that could work is if you always want to superscript exactly
1 character (or some known number) - then you could pre-program it, for
example:

Sub Super()
ActiveCell.Characters(ActiveCell.Characters.Count, 1).Font.Superscript =
True
End Sub
--
HTH -

-Frank Isaacs
Dolphin Technology Corp.
http://vbapro.com

I use a lot of subscripts and superscripts in my work and I would like to

create a custom button for a toolbar that automatically changes to
subscripts and/or superscripts. Does anyone if you can create custom
buttons?

 

[J.E. McGimpsey]

It's not exactly what you're asking for, but I think if you check
out John Walkenbach's SuperSub, you'll find it can be helpful:

http://j-walk.com/ss/excel/files/supersub.htm

 

[Dave Peterson]

How about just using John Walkenbach's addin:

http://j-walk.com/ss/excel/files/supersub.htm