Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with simple routine to change font size
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with simple routine to change font size
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 |
#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 |
Reply |
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 |