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 :
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
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
Pouvez vous m'aider ?
Merci de vos retours.
Partager