VBA Change Font and Style

[JacquesCHENU]

Hello
I need help

i have a macro change Font and Size

Sub Change_Police_Altà()
' Recorded 21/03/2016
' Changement de Police de la Partie de Texte Sélectionné

ActiveShape.Text.Selection.Font = "Lucida Bright"
ActiveShape.Text.Selection.Size = 7

End Sub

How change Style ... Normal Italic

Many thanks for your help

[shelbym]

Hopefully this helps:

Sub Change_Police_Altà()
    Dim tr As TextRange
    
    Set tr = ActiveShape.Text.Selection

    tr.Font = "Lucida Bright"
    tr.Size = 7
    tr.Italic = True
End Sub

-Shelby