XL 2021 Modifier texte en gras dans powerpoint depuis excel

matlatarte · 10 Mars 2024

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 · 10 Mars 2024

Bonjour,

VB:

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

A+

matlatarte · 10 Mars 2024

erreur 438 !

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

job75 · 10 Mars 2024

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

VB:

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

job75 · 10 Mars 2024

Dans Excel on pilotera PowerPoint avec ces macros :

VB:

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 · 10 Mars 2024

COOL MERCI !

XL 2021 Modifier texte en gras dans powerpoint depuis excel

matlatarte

XLDnaute Junior

job75

XLDnaute Barbatruc

matlatarte

XLDnaute Junior

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

matlatarte

XLDnaute Junior

Discussions similaires