[R] Powerpoint 2007 - Faire défiler diaporama
Posté : mar. 26 mai 2015 13:00
par jcaspar
Bonjour à tous !
Je cherche à faire avancer mon diaporama ...automatiquement
je ne dois pas être loin ... peut être avez vous une idée ?
Merci pour vos suggestions et conseils
Jean-Marc
Je cherche à faire avancer mon diaporama ...automatiquement
je ne dois pas être loin ... peut être avez vous une idée ?
Merci pour vos suggestions et conseils
Jean-Marc
► Afficher le texte
Code : Tout sélectionner
#AutoIt3Wrapper_UseX64=N
#AutoIt3Wrapper_Run_Debug_Mode=Y
#AutoIt3Wrapper_Run_Debug=On
Global Const $PPLAYOUTTITLE = 1
Global Const $PPLAYOUTTEXT = 2
Global Const $PPLAYOUTBLANK = 12
Global Const $PPLAYOUTCHART = 8
Global Const $PPLAYOUTCHARTANDTEXT = 6
Global Const $PPLAYOUTCLIPARTANDTEXT = 10
Global Const $PPLAYOUTCLIPARTANDVERTICALTEXT = 26
Global Const $PPLAYOUTTITLEONLY = 11
Global Const $PPTLAYOUT = 1
; _PPT_SlideShowAdvanceMode() modes
Global Const $PPMANUALADVANCE = 1
Global Const $PPUSETIMINGS = 2
Global Const $PPREHEARSENEWTIMINGS = 3
; _PPT_SlideShowShowType() types
Global Const $PPSHOWSPEAKER = 1 ;Only use speaker
Global Const $PPRSHOWWINDOW = 2 ;Display window around slides
Global Const $PPSHOWKIOSK = 3 ;Display full screen
global const $ppShowTypeSpeaker = 1
global const $msoFalse = 0
global const $msoTrue = 1
global const $ppShowAll = 1
global const $ppSlideShowUseSlideTimings = 1
; _PPT_SlideShowRangeType() types
Global Const $PPRANGETYPESHOWALL = 1 ; Show all slides
Global Const $PPRANGETYPESHOWBYRANGE = 2 ;Show by using start and ending range
Global Const $PPRANGETYPESHOWNAMEDSLIDESHOW = 3 ;Show named slides
Global Const $msoTextOrientationHorizontal = 1
Global const $ppAlignCenter = 1
$objPPT = ObjCreate("PowerPoint.Application")
$objPPT.Visible = true
;~ $objPPT.Documents.add
If @error Then
MsgBox(0, "", "Powerpoint n'est pas installé")
Exit
EndIf
;~ ajouter slides
$ppPres = $objPPT.Presentations.Add(True)
$ppCurrentSlide = $ppPres.Slides.Add(1, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Premier Slide"
$ppCurrentSlide = $ppPres.Slides.Add(2, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Second Slide"
$ppPres.SlideShowWindows(2).View.Next
$ppCurrentSlide = $ppPres.Slides.Add(3, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Troisième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(4, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Quatrième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(5, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Cinquième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(6, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Sixième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(7, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Septième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(8, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Huitième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(9, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Neuvième Slide"
$ppCurrentSlide = $ppPres.Slides.Add(10, 1)
;~ $ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Dixième Slide"
; ajouter images
$objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
; mettre en route animation
With $objPPT.ActivePresentation.SlideShowSettings
.ShowType = "ppShowTypeSpeaker"
.LoopUntilStopped = true
.ShowWithNarration = true
.ShowWithAnimation = true
.RangeType = "ppShowAll"
.AdvanceMode = "ppSlideShowUseSlideTimings"
.PointerColor.RGB(255, 0, 0)
.Run
EndWith
; animation en pause
;~ $objPPT.ActivePresentation.SlideShowWindow.View.State = "ppSlideShowPaused"
;~ sleep(1000)
$objPPT.SlideShowWindows(1).View.Next
sleep(5000)
;animation en fontionnement
;~ $objPPT.ActivePresentation.SlideShowWindow.View.State = "ppSlideShowRunning"
; déplacement vers slide suivant
$ppCurrentSlide.SlideShowWindows(2).View.Next
sleep(2000)
$ppCurrentSlide.SlideShowWindows(3).View.Next
sleep(2000)
$ppCurrentSlide.SlideShowWindows(4).View.Next
sleep(2000)
$ppCurrentSlide.SlideShowWindows(5).View.Next
sleep(2000)
$ppCurrentSlide.SlideShowWindows(6).View.Next
sleep(2000)
;~ $objPPT.SlideShowWindows(1).View.GotoSlide=7
; ajouter une ligne Powerpoint 2013
;~ $objPPT.Slides(1)
;~ With $ppPres.myDocument.Shapes.AddLine(10, 10, 250, 250).Line
;~ .DashStyle = "msoLineDashDotDot"
;~ .ForeColor.RGB(50, 0, 128)
;~ EndWith
;~ $objPPT.SlideShowWindow.View.GoToSlide(1)
;~ $objPPT.Presentations.Open(@ScriptDir&"\test.potx")
;~ Enregistrer sous
;~ $ppPres.SaveAs("d:\test.ppt")
;~ imprimer
;~ $ppPres.printout
;~ quitter application
;~ $objPPT.SlideShowWindows(1).View.Exit
;~ $objPPT.Quit
;~ $test = ObjCreate("PowerPoint.Application")
;~ $sld = $test.ActivePresentation.Slides(1)
;~ $text = "toto"
;~ $sld.Shapes.AddTextbox(true, 50, 50, 300, 50)
;~ $sld.Shapes.Item(1).TextFrame.TextRange.Text = $Text
;~ With $ppPres.TextFrame.TextRange
;~ .Text = "Bonjour et bienvenue sur DVP"
;~ .Font.Name = "Comic sans MS"
;~ .Font.Bold = true
;~ .Font.Italic = true
;~ EndWith
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal,100, 100,200, 50).TextFrame.TextRange.Text = "Test Box"