Stephan
Member
Hello
Since XL doesn't have simple button to CHANGE CASE added this CODE below (see attached file).
Instead OF:
(X) Formula use of UPPER / LOWER / PROPER
(X) FILE OPEN running in the Background...
I have ADDED each MACRO (3) to RIBBON:
(r/c: Customize Ribbon, Main, Home, New Tab (Case), New Grp (Upper... Lower... Caps), Choose Cmd > Macro, Select: Customize Upper > Cmd: Upper > Add > Ok etc..)
Q:However how do I ADD CUSTOM RIBBON within HOME (TAB) > FONT (GRP), with SMALL ICON of my choice??
When added (mixed in) within existing TAB/GRP a massive ICON of GENERIC NETWORK PICTURE appears, almost obscures everthing...
Yer so... As work around Currently added new TAB (CASE) with UPPER/LOWER/PROPER, but surely is there an edit for SMALL ICONS for CUSTOM RIBBON??
Unsure why XL in this day & age doesn't have this as an easy accessible button for UPPER etc
I mean that is what... Excel is about arranging... Letters, Numbers.... and obviously Words!!
Let me know, cheers... Stephan
CROSS POST(s):
https://www.excelforum.com/excel-pr...ude-small-icon-of-own-choice.html#post6026249
Since XL doesn't have simple button to CHANGE CASE added this CODE below (see attached file).
Instead OF:
(X) Formula use of UPPER / LOWER / PROPER
(X) FILE OPEN running in the Background...
I have ADDED each MACRO (3) to RIBBON:
(r/c: Customize Ribbon, Main, Home, New Tab (Case), New Grp (Upper... Lower... Caps), Choose Cmd > Macro, Select: Customize Upper > Cmd: Upper > Add > Ok etc..)
Q:However how do I ADD CUSTOM RIBBON within HOME (TAB) > FONT (GRP), with SMALL ICON of my choice??
When added (mixed in) within existing TAB/GRP a massive ICON of GENERIC NETWORK PICTURE appears, almost obscures everthing...
Yer so... As work around Currently added new TAB (CASE) with UPPER/LOWER/PROPER, but surely is there an edit for SMALL ICONS for CUSTOM RIBBON??
ANY IDEAS, just to ACTIVATE via SMALL ICON/PHOTO/GRAPHIC of my choice within HOME/FONT?Sub Caps()
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = _
Application _
.WorksheetFunction _
.Proper(Cell.Value)
End If
Next Cell
End Sub
Sub Upper()
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = UCase(Cell.Value)
End If
Next Cell
End Sub
Sub Lower()
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = LCase(Cell.Value)
End If
Next Cell
End Sub
Unsure why XL in this day & age doesn't have this as an easy accessible button for UPPER etc
I mean that is what... Excel is about arranging... Letters, Numbers.... and obviously Words!!

Let me know, cheers... Stephan
CROSS POST(s):
https://www.excelforum.com/excel-pr...ude-small-icon-of-own-choice.html#post6026249