bonjour
voici un exemple pour changer la couleur de fond d'une présentation
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Sub insertionGraphiqueDansPowerPoint()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Cs1 As ColorScheme
Set PPT = CreateObject("Powerpoint.Application")
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("C:\x.ppt")
With PptDoc
Set Cs1 = .ColorSchemes(3)
Cs1.Colors(ppBackground).RGB = RGB(128, 128, 0)
.SlideMaster.ColorScheme = Cs1
End With
End Sub |
modifier la couleur du texte dans le 1er Shape du premier Slide
PptDoc.Slides(1).Shapes(1).TextFrame.TextRange.Font.Color = RGB(255, 100, 255)
bonne soiree
michel
Partager