Re: Font codes for capitalization and small caps

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Thank you Gord, I appreciate you sharing a temporary work-around. Meanwhile, we hope Microsoft will add this functionality in the future.

Thanks,
Richard

*****************
"Gord Dibben" <gorddibbATshawDOTca> wrote in message news:afj1p4d8ohfm9ebfgs35gr43k8g8nsc8j5@xxxxxxxxxx
To Blue Max

Untill MS gets around to complying with your suggestion you could use this
macro for small caps.

Sub Small_Caps()
Dim o As Object
Dim sCap As Integer, _
lCap As Integer, _
I As Integer
Dim testStr As String
Application.ScreenUpdating = False
For Each o In Selection
With o
If Application.IsText(.Value) Then
lCap = .Characters(1, 1).Font.Size
sCap = Int(lCap * 0.85)
'Small caps for everything.
.Font.Size = sCap
.Value = UCase(.Value)
testStr = .Value
'Large caps for 1st letter of words.
testStr = Application.Proper(testStr)
For I = 1 To Len(testStr)
If Mid(testStr, I, 1) = UCase(Mid(testStr, I, 1)) Then
.Characters(I, 1).Font.Size = lCap
End If
Next I
End If
End With
Next o
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP



On Tue, 10 Feb 2009 09:28:56 +1100, "AltaEgo" <Somewhere@NotHere> wrote:

"Blue Max" <mailrichard@xxxxxxx> wrote in message
news:2C3B57B3-FD2E-4988-A8F3-931B96640A01@xxxxxxxxxxxxxxxx
Why not add options to the font menu for formatting cell fonts to
lowercase, UPPERCASE, or Proper Caps? Currently, the user must use
formula functions to perform this formatting. The current method has many
drawbacks and limitations. Including the font options suggested above
would eliminate current limitations and would allow the user to designate
the cell format regardless of whether the cell contained a formula or
whether the text was manually input into the cell.

Additionally, we have used programs that include font options for SMALL
CAPS. This allows the user to select a font and then designate that ALL
letters be displayed as uppercase, however the first letter of each word
is a larger uppercase letter (i.e., a capitalized capital). It is a very
nice effect. SHADOW and OUTLINE are two other font options provided by
other spreadsheet programs that would be nice to include in Excel.


.

Relevant Pages

  • Re: Change ENTER key behaviour on different cells
    ... outside the target area and make a change to a cell. ... Private Sub Worksheet_Change ... For the problem with enterin Caps or non Caps, you have to control that with ...
    (microsoft.public.excel.programming)
  • Re: HAVING A FORMULA GLICHE???
    ... Using all caps is considered shouting. ... Use Tools | Options; open the Calculation tab; in Calculations area check ... WHEN I COPY A FORMULA TO ANOTHER CELL IT DOES NOT SHOW THE ... SUM FUNCTION IN ANOTHER CELL, THE VALUE OF THE SUM DOES NOT CHANGE UNTIL I ...
    (microsoft.public.excel.misc)
  • Re: Change ENTER key behaviour on different cells
    ... Application.OnKey "", NextCol ... Public Function NextCol() ... For the problem with enterin Caps or non Caps, you have to control that with ... F and H are in cell drop down validation cells. ...
    (microsoft.public.excel.programming)
  • Re: Formating - Date as Month In All Caps
    ... I don't think there's a custom format way to do this. ... One possibility is to use a font in your date cell that only shows CAPS. ... What has this to do with HLOOKUP? ...
    (microsoft.public.excel.worksheet.functions)
  • Re: Font codes for capitalization and small caps
    ... Untill MS gets around to complying with your suggestion you could use this ... Dim o As Object ... 'Small caps for everything. ... we have used programs that include font options for SMALL ...
    (microsoft.public.excel)