Bonjour a tous,

Dans un précédent post résolu, j'ai créé 2 zones de texte contenant des numéros de page.

Maintenant, j'aimerais savoir si je peux modifier la couleur de ces textes (en blanc) uniquement pour les diapositives du slide master nommé "Titres" (nom du thème) ?
J'espere que c'est clair.

Merci d'avance!

Ci dessous le code pour créer les 2 zones de texte.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub number_me()
 
Dim osld As Slide
Const fontSZ As Long = 12
Dim SW As Long
Dim SH As Long
Dim x As Long
'x = 1
SW = ActivePresentation.PageSetup.SlideWidth
SH = ActivePresentation.PageSetup.SlideHeight
Call Killer ' remove old numbers
For Each osld In ActivePresentation.Slides
With osld.Shapes.AddTextbox(msoTextOrientationHorizontal, 21, SH - 41, 30, 20)
.TextFrame2.TextRange = CStr(osld.SlideIndex + x + 1)
.TextFrame2.TextRange.Font.Size = fontSZ
.ZOrder (msoSendToBack)
.Name = "Mynumber"
End With
With osld.Shapes.AddTextbox(msoTextOrientationHorizontal, SW - 54, SH - 41, 30, 20)
.TextFrame2.TextRange = CStr(osld.SlideIndex + x + 2)
.TextFrame2.TextRange.ParagraphFormat.Alignment = ppAlignRight
.TextFrame2.TextRange.Font.Size = fontSZ
.ZOrder (msoSendToBack)
.Name = "Mynumber"
End With
x = x + 1
Next osld
End Sub
 
Sub Killer()
Dim osld As Slide
Dim l As Long
For Each osld In ActivePresentation.Slides
For l = osld.Shapes.Count To 1 Step -1
If osld.Shapes(l).Name = "Mynumber" Then osld.Shapes(l).Delete
Next l
Next osld
End Sub