| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with simple routine to change font size
That works great, thanks very much
Suzie "Dave Peterson" wrote: I think I would have use Double. Option Explicit Sub fontsize(size As Double) ActiveCell.Font.size = size End Sub Sub test() Dim a As Double a = InputBox("please enter fontsize") Call fontsize(a) End Sub But your code worked ok in my simple tests. What did you specify as a font size? What happened when you tried it? What was the error? Suzie wrote: Hi, Could anyone help me. I'm struggling with the following two routines that allow the user to change the font size. Sub fontsize(size As Byte) ActiveCell.Font.size = size End Sub Sub test() a = InputBox("please enter fontsize") Call fontsize(a) End Sub It gives me an error but I think it should work. Is this a bug? Thanks Suzie -- Dave Peterson |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| change font size on screen, but prints in old size | Excel Discussion (Misc queries) | |||
| change scaling % but font size didnt change porportionally, pls he | Excel Discussion (Misc queries) | |||
| Change all text one font size up with various font sizes used. | New Users to Excel | |||
| MsgBox Font Size change | Excel Programming | |||
| Change Font Size | Excel Worksheet Functions | |||
Threaded Mode
