Excel - Font Size Box -Odd Numbers?

[Jason O]

Hi all,

This is my 1st posting so wondered if you could help. I use the 'increase
font size' button in a custom toolbar but am getting annoyed that the font
sizes it jumps to are ONLY those in the usual 'font size' box, (i.e from 8
to 72 in mainly increments of at LEAST 2). My old PC version of Office used
to jump in 1 point increments (So I could go, for example from 10 to
11,12,13,14,15,16,17 etc. for immediate size comparisons).

Does anyone know of anything I can do/download to change the 'increase font
size' button from increases of 2pt to 1pt?

Any help greatly appreciated.


Cheers,

Jason
___
*Replace .invalid with .com for replies*

 

[JE McGimpsey]

Cross-posted to, and followup set to microsoft.public.mac.office.excel

Does anyone know of anything I can do/download to change the 'increase font
size' button from increases of 2pt to 1pt?

One way is to put these macros in your Personal Macro Workbook:

Public Sub IncreaseFontSize()
Const nMAXSIZE As Long = 72
If TypeOf Selection Is Range Then
With Selection
.Font.Size = Application.Min( _
.Item(1).Font.Size + 1, nMAXSIZE)
End With
End If
End Sub

Public Sub DecreaseFontSize()
Const nMINSIZE As Long = 8
If TypeOf Selection Is Range Then
With Selection
.Font.Size = Application.Max( _
nMINSIZE, .Item(1).Font.Size - 1)
End With
End If
End Sub

then attach the macros to the buttons (CTRL-/right-click the button and
choose Attach Macro).

Adjust nMAXSIZE and nMINSIZE to suit.

Note that you posted this in the Entourage group, rather than the Excel
group - further questions should be directed there...