XL 2021 Modifier texte en gras dans powerpoint depuis excel

.Slides(1).Shapes("Mashape").TextFrame.Characters.Font.Bold = False

Sub Test()
With ActivePresentation
    .Slides(1).Shapes("Mashape").TextFrame.TextRange.Font.Bold = False
End With
End Sub

Sub Gras()
Dim PPapp As Object
On Error Resume Next
Set PPapp = GetObject(, "PowerPoint.Application")
If Err Then MsgBox "Ouvrez la présentation PowerPoint...": Exit Sub
On Error GoTo 0
With PPapp.ActivePresentation
    .Slides(1).Shapes("Mashape").TextFrame.TextRange.Font.Bold = True
End With
AppActivate PPapp.Caption
End Sub

Sub NonGras()
Dim PPapp As Object
On Error Resume Next
Set PPapp = GetObject(, "PowerPoint.Application")
If Err Then MsgBox "Ouvrez la présentation PowerPoint...": Exit Sub
On Error GoTo 0
With PPapp.ActivePresentation
    .Slides(1).Shapes("Mashape").TextFrame.TextRange.Font.Bold = False
End With
AppActivate PPapp.Caption
End Sub