XL 2021 Modifier texte en gras dans powerpoint depuis excel

[matlatarte]

Bonjour,

j'ai un fichier Excel qui pilote le contenu d'un PowerPoint. J'actualise des valeurs, je fais apparaitre et disparaitre des shape ok.
Je n'arrive pas à mettre en GRAS ou à revenir en arrière pour une Shape:

.Slides(1).Shapes("Mashape").Font.Bold = False ---> fonctionne pas...

Une idée de ce qui cloche ?

Bon dimanche !

 

[job75]

Bonjour,

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

A+

 

[matlatarte]

erreur 438 !

je précise que la shape est une zone de texte, peut être une incidence ?

 

[job75]

Au temps pour moi, j'avais testé sur Excel, sur PowerPoint on trouve :

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

 

[job75]

Dans Excel on pilotera PowerPoint avec ces macros :

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

 

[matlatarte]

COOL MERCI !