Trying to change Regular to Superscript and vice versa

jpl · #1 07-01-2016, 11:57 AM

Peut être une solution :

Code:

Sub essai()
    Dim c As Range
    For Each c In Selection.Characters
        With c.Font
            If .Superscript = True Then
                .Superscript = False
            ElseIf .Superscript = False And .Subscript = False Then
                .Superscript = True
            End If
        End With
    Next c
End Sub

jpl · #2 07-01-2016, 12:13 PM

There is a clumsiness in my code: we can delete(eliminate) the condition .Superscript = false

wardw · #3 07-01-2016, 04:40 PM

Thanks so much, JPL; this worked fine for my purposes.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sub/superscript hotkey danish keyboard	Fakecake	OneNote	1	04-05-2015 04:39 AM
excel update superscript by 1	htownpaper	Word	8	12-08-2014 06:38 PM
Insert superscript into a textbox	Deltaj	Word VBA	3	11-30-2014 04:23 PM
Regular (roman) character style doesn't change text to roman	kcbenson	Word	2	10-16-2014 01:31 PM
Sizing cells to pics (or even vice versa?)	Guloluseus	Excel	1	07-27-2014 11:24 AM