Bonjour,

Je suis nouvel inscrit ici, cependant cela fait au moins 10 quand je lis des tutos présents ici...
Bref, je me creuse actuellement la tête pour trouver une solution à un problème, ayant fait quelques recherches, je n'ai rien trouvé qui apporte un début de réponse à mon soucis.
Il se trouve que j'ai des mots en blanc dans une présentation, au milieux d'autres mots qui sont en noir (sur la même forme de texte, je précise).
Du coup quand j'utilise la macro qui me permet de changer le texte blanc en noir il ne le change pas, car je pense que la forme est définie en couleur noire contrairement à ce ou ces mot(s) qui sont blancs. La voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub use()
 
Dim s As Slide
Dim shp As Shape
Dim R As Integer
Dim G As Integer
Dim B As Integer
 
 
For Each s In ActivePresentation.Slides
 
    For Each shp In s.Shapes
        If shp.HasTextFrame Then
            If shp.TextFrame.HasText Then
                If shp.TextFrame.TextRange.Font.Color = RGB(255, 255, 255) Then
                    shp.TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
                    shp.TextFrame.TextRange.Font.Size = 18
 
                End If
            End If
        End If
    Next shp
 
Next s
End Sub
Je cherche à faire une macro qui chercherai un ou plusieurs mots dans une certaine couleur (blanc pour le coup) pour les mettre en noir. Je ne vois pas du tout comment lui faire sélectionner le texte pour changer la couleur de celui-ci

Pouvez vous m'aider ?

Merci de vos retours.