[R] Powerpoint 2007 - Ajouter son

[jcaspar]

Bonjour à tous

Je poursuis mon investigation de Powerpoint 2007
et souhaiterais pouvoir ajouter du son dans mon diaporama
une piste de code est placée en bas du code ci dessous
faut il créer un nouvel objet son ?

Apparemment cette fonctionnalité n'est pas présente dans l'UDF

Je vous remercie pour vos conseils et idées

► Afficher le texte

Code : Tout sélectionner

; Script Start - Add your code below here
#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

Global const $ppMouseClick = 1
Global const $ppActionNone=1
Global const $ppSoundNone=0



$objPPT = ObjCreate("PowerPoint.Application")
$objPPT.Visible = true

;erreur si powerpoint n'est pas installé
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"
$objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(2, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Second Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(3, 1)
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Troisième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(4, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Quatrième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(5, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Cinquième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(6, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Sixième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(7, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Septième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(8, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Huitième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(9, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Neuvième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(10, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Dixième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select

; 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

; régler défilement
With $objPPT.SlideShowWindows(1).View

    .GotoSlide(0)
    sleep(5000)
    .GotoSlide(1)
    sleep(5000)
    .GotoSlide(2)
    sleep(5000)
    .GotoSlide(3)
    sleep(5000)
    .GotoSlide(4)
    sleep(5000)
    .GotoSlide(5)
    sleep(5000)
    .GotoSlide(6)
    sleep(5000)
    .GotoSlide(7)
    sleep(5000)
    .GotoSlide(8)
    sleep(5000)
    .GotoSlide(9)
    sleep(5000)
    .GotoSlide(10)

EndWith

; Ajouter ligne Powerpoint 2013
;~ With $ppPres.myDocument.Shapes.AddLine(10, 10, 250, 250).Line
;~  .DashStyle = "msoLineDashDotDot"
;~  .ForeColor.RGB(50, 0, 128)
;~ EndWith

; Ouvrir présentation
;~ $objPPT.Presentations.Open(@ScriptDir&"\test.potx")

;~ Enregistrer sous
;~ $ppPres.SaveAs("d:\test.ppt")
; Imprimer le document
;~ $ppPres.printout
;~ quitter application
; Quitter Powerpoint



[b]$son= ObjCreate("PowerPoint.NewSound")
;~ Dim NewSound As Shape

;~     Set NewSound =
$son.Application.ActivePresentation.Slides(1).Shapes.AddMediaObject("D:\Utilisateurs\xxx\Music\547.wav")
    With $objPPT.ActionSettings($ppMouseClick)
        .Action = $ppActionNone
        .SoundEffect.Type = $ppSoundNone
    EndWith[/b]



 

[jcaspar]

Bonjour à tous !

voici une première solution .... mais pour l'instant je n'ai pas trouvé comment faire pour ajouter du son par slide

Jean-Marc

► Afficher le texte

Code : Tout sélectionner

; Script Start - Add your code below here
#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

Global const $ppMouseClick = 1
Global const $ppActionNone=1
Global const $ppSoundNone=0
Global const $ppActionHyperlink=1

$objPPT = ObjCreate("PowerPoint.Application")
$objPPT.Visible = true



;erreur si powerpoint n'est pas installé
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"
$objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select



$ppCurrentSlide = $ppPres.Slides.Add(2, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Second Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select


; Ajout de son
$objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0214098.wav", 348, 258).Select
    With $objPPT.ActivePresentation.SlideShowSettings
        .ShowType = $ppShowTypeSpeaker
        .LoopUntilStopped = $msoTrue
        .ShowWithNarration = $msoTrue
        .ShowWithAnimation = $msoTrue
        .RangeType = $ppShowAll
        .AdvanceMode = $ppSlideShowUseSlideTimings
        .PointerColor.RGB (255,0,0)
        .Run
    EndWith

$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0283209.gif",308, 219, 104, 102).Select
$ppCurrentSlide = $ppPres.Slides.Add(3, 1)
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0214098.wav", 348, 258).Select
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Troisième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(4, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Quatrième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(5, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Cinquième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(6, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Sixième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(7, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Septième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(8, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Huitième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(9, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Neuvième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(10, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Dixième Slide"
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select

; 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

; régler défilement
With $objPPT.SlideShowWindows(1).View

    .GotoSlide(0)
    sleep(5000)
    .GotoSlide(1)
    sleep(5000)
    .GotoSlide(2)
    sleep(5000)
    .GotoSlide(3)
    sleep(5000)
    .GotoSlide(4)
    sleep(5000)
    .GotoSlide(5)
    sleep(5000)
    .GotoSlide(6)
    sleep(5000)
    .GotoSlide(7)
    sleep(5000)
    .GotoSlide(8)
    sleep(5000)
    .GotoSlide(9)
    sleep(5000)
    .GotoSlide(10)

EndWith

[jguinch]

Avec les différents liens que je t'avais donné tu n'as rien trouvé ?
et ça ? https://msdn.microsoft.com/EN-US/librar ... 46331.aspx
J'ai pas testé mais ça devrait le faire...

[jcaspar]

M erci pour cette information

mais comment définir quel son utiliser ?
Sinon ai trouvé la piste suivante ... mais bon sans succès pour l'instant....

► Afficher le texte

Code : Tout sélectionner

With $ppCurrentSlide.ActivePresentation.Slides(2).Shapes(1).AnimationSettings
    .TextLevelEffect = $ppAnimateByAllLevels
    .SoundEffect.ImportFromFile("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0214098.wav")
    EndWith

[jcaspar]

La bonne forme à employer doit être sous la forme suivante

mais comment gérer le chemin ?? ( espace "c:\bass.wav" )

► Afficher le texte

Code : Tout sélectionner

With ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .Animate = True
    .TextLevelEffect = ppAnimateByAllLevels
   [b] .SoundEffect.ImportFromFile "c:\bass.wav"[/b]
End With

[jguinch]

Code : Tout sélectionner

With $objPPT.ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .SoundEffect.ImportFromFile("c:\bass.wav")
EndWith

[jcaspar]

S ous quelle version de Powerpoint as tu testé ?

Moi qui travaille sous la version 2007 ... ne veut rien entendre, enfin aucun son n'est joué en d'autres termes ... lol
bien sur ai modifié le chemin du fichier son en conséquence ... peut être manque il une option de

Code : Tout sélectionner

With $objPPT.ActivePresentation.Slides(1).Shapes(1).AnimationSettings

    .TextLevelEffect = $ppAnimateByAllLevels
    .SoundEffect.ImportFromFile("d:\547.wav")

EndWith

[jcaspar]

Voici du son dans mon diaporama ... avec quelques améliorations complémentaires ...

► Afficher le texte

Code : Tout sélectionner

; Script Start - Add your code below here
#AutoIt3Wrapper_UseX64=N
#AutoIt3Wrapper_Run_Debug_Mode=Y
#AutoIt3Wrapper_Run_Debug=On

;~ constantes Powerpoint 2007
Global const $msoAnimAccumulateAlways=2
Global const $msoAnimAccumulateNone=0
Global const $msoAnimAdditiveAddBase=1
Global const $msoAnimAdditiveAddSum =2
Global const $msoAnimAfterEffectDim =1
Global const $msoAnimAfterEffectHide =2
Global const $msoAnimAfterEffectHideOnNextClick=3
Global const $msoAnimAfterEffectMixed =-1
Global const $msoAnimAfterEffectNone =0
Global const $msoAnimateChartAllAtOnce=7
Global const $msoAnimateChartByCategory=8
Global const $msoAnimateChartByCategoryElements=9
Global const $msoAnimateChartBySeries=10
Global const $msoAnimateChartBySeriesElements=11
Global const $msoAnimateDiagramAllAtOnce=12
Global const $msoAnimateDiagramBreadthByLevel=16
Global const $msoAnimateDiagramBreadthByNode=15
Global const $msoAnimateDiagramClockwise=17
Global const $msoAnimateDiagramClockwiseIn=18
Global const $msoAnimateDiagramClockwiseOut=19
Global const $msoAnimateDiagramCounterClockwise=20
Global const $msoAnimateDiagramCounterClockwiseIn=21
Global const $msoAnimateDiagramCounterClockwiseOut=22
Global const $msoAnimateDiagramDepthByBranch=14
Global const $msoAnimateDiagramDepthByNode=13
Global const $msoAnimateDiagramDown=26
Global const $msoAnimateDiagramInByRing=23
Global const $msoAnimateDiagramOutByRing=24
Global const $msoAnimateDiagramUp=25
Global const $msoAnimateLevelMixed=-1
Global const $msoAnimateLevelNone=0
Global const $msoAnimateTextByAllLevels=1
Global const $msoAnimateTextByFifthLevel=6
Global const $msoAnimateTextByFirstLevel=2
Global const $msoAnimateTextByFourthLevel=5
Global const $msoAnimateTextBySecondLevel=3
Global const $msoAnimateTextByThirdLevel=4
Global const $msoAnimCommandTypeCall=1
Global const $msoAnimCommandTypeEvent=0
Global const $msoAnimCommandTypeVerb=1
Global const $msoAnimDirectionAcross=18
Global const $msoAnimDirectionBottom=11
Global const $msoAnimDirectionBottomLeft=15
Global const $msoAnimDirectionBottomRight=14
Global const $msoAnimDirectionCenter=28
Global const $msoAnimDirectionClockwise=21
Global const $msoAnimDirectionCounterclockwise=22
Global const $msoAnimDirectionCycleClockwise=43
Global const $msoAnimDirectionCycleCounterclockwise=44
Global const $msoAnimDirectionDown=3
Global const $msoAnimDirectionDownLeft=9
Global const $msoAnimDirectionDownRight=8
Global const $msoAnimDirectionFontAllCaps=40
Global const $msoAnimDirectionFontBold=35
Global const $msoAnimDirectionFontItalic=36
Global const $msoAnimDirectionFontShadow=39
Global const $msoAnimDirectionFontStrikethrough=38
Global const $msoAnimDirectionFontUnderline=37
Global const $msoAnimDirectionGradual=42
Global const $msoAnimDirectionHorizontal=16
Global const $msoAnimDirectionHorizontalIn=23
Global const $msoAnimDirectionHorizontalOut=24
Global const $msoAnimDirectionIn=19
Global const $msoAnimDirectionInBottom=31
Global const $msoAnimDirectionInCenter=30
Global const $msoAnimDirectionInSlightly=29
Global const $msoAnimDirectionInstant=41
Global const $msoAnimDirectionLeft=4
Global const $msoAnimDirectionNone=0
Global const $msoAnimDirectionOrdinalMask=5
Global const $msoAnimDirectionOut=20
Global const $msoAnimDirectionOutBottom=34
Global const $msoAnimDirectionOutCenter=33
Global const $msoAnimDirectionOutSlightly=32
Global const $msoAnimDirectionRight=2
Global const $msoAnimDirectionSlightly=27
Global const $msoAnimDirectionTop=10
Global const $msoAnimDirectionTopLeft=12
Global const $msoAnimDirectionTopRight=13
Global const $msoAnimDirectionUp=1
Global const $msoAnimDirectionUpLeft=6
Global const $msoAnimDirectionUpRight=7
Global const $msoAnimDirectionVertical=17
Global const $msoAnimDirectionVerticalIn=25
Global const $msoAnimDirectionVerticalOut=26
Global const $msoAnimEffectAppear=1
Global const $msoAnimEffectArcUp=47
Global const $msoAnimEffectAscend=39
Global const $msoAnimEffectBlast=64
Global const $msoAnimEffectBlinds=3
Global const $msoAnimEffectBoldFlash=63
Global const $msoAnimEffectBoldReveal=65
Global const $msoAnimEffectBoomerang=25
Global const $msoAnimEffectBounce=26
Global const $msoAnimEffectBox=4
Global const $msoAnimEffectBrushOnColor=66
Global const $msoAnimEffectBrushOnUnderline=67
Global const $msoAnimEffectCenterRevolve=40
Global const $msoAnimEffectChangeFillColor=54
Global const $msoAnimEffectChangeFont=55
Global const $msoAnimEffectChangeFontColor=56
Global const $msoAnimEffectChangeFontSize=57
Global const $msoAnimEffectChangeFontStyle=58
Global const $msoAnimEffectChangeLineColor=60
Global const $msoAnimEffectCheckerboard=5
Global const $msoAnimEffectCircle=6
Global const $msoAnimEffectColorBlend=68
Global const $msoAnimEffectColorReveal=27
Global const $msoAnimEffectColorWave=69
Global const $msoAnimEffectComplementaryColor=70
Global const $msoAnimEffectComplementaryColor2=71
Global const $msoAnimEffectContrastingColor=72
Global const $msoAnimEffectCrawl=7
Global const $msoAnimEffectCredits=28
Global const $msoAnimEffectCustom=0
Global const $msoAnimEffectDarken=73
Global const $msoAnimEffectDesaturate=74
Global const $msoAnimEffectDescend=42
Global const $msoAnimEffectDiamond=8
Global const $msoAnimEffectDissolve=9
Global const $msoAnimEffectEaseIn=29
Global const $msoAnimEffectExpand=50
Global const $msoAnimEffectFade=10
Global const $msoAnimEffectFadedSwivel=41
Global const $msoAnimEffectFadedZoom=48
Global const $msoAnimEffectFlashBulb=75
Global const $msoAnimEffectFlashOnce=11
Global const $msoAnimEffectFlicker=76
Global const $msoAnimEffectFlip=51
Global const $msoAnimEffectFloat=30
Global const $msoAnimEffectFly=2
Global const $msoAnimEffectFold=53
Global const $msoAnimEffectGlide=49
Global const $msoAnimEffectGrowAndTurn=31
Global const $msoAnimEffectGrowShrink=59
Global const $msoAnimEffectGrowWithColor=77
Global const $msoAnimEffectLighten=78
Global const $msoAnimEffectLightSpeed=32
Global const $msoAnimEffectMediaPause=84
Global const $msoAnimEffectMediaPlay=83
Global const $msoAnimEffectMediaStop=85
Global const $msoAnimEffectPath4PointStar=101
Global const $msoAnimEffectPath5PointStar=90
Global const $msoAnimEffectPath6PointStar=96
Global const $msoAnimEffectPath8PointStar=102
Global const $msoAnimEffectPathArcDown=122
Global const $msoAnimEffectPathArcLeft=136
Global const $msoAnimEffectPathArcRight=143
Global const $msoAnimEffectPathArcUp=129
Global const $msoAnimEffectPathBean=116
Global const $msoAnimEffectPathBounceLeft=126
Global const $msoAnimEffectPathBounceRight=139
Global const $msoAnimEffectPathBuzzsaw=110
Global const $msoAnimEffectPathCircle=86
Global const $msoAnimEffectPathCrescentMoon=91
Global const $msoAnimEffectPathCurvedSquare =105
Global const $msoAnimEffectPathCurvedX=106
Global const $msoAnimEffectPathCurvyLeft=133
Global const $msoAnimEffectPathCurvyRight=146
Global const $msoAnimEffectPathCurvyStar=108
Global const $msoAnimEffectPathDecayingWave=145
Global const $msoAnimEffectPathDiagonalDownRight=134
Global const $msoAnimEffectPathDiagonalUpRight=141
Global const $msoAnimEffectPathDiamond=88
Global const $msoAnimEffectPathDown=127
Global const $msoAnimEffectPathEqualTriangle=98
Global const $msoAnimEffectPathFigure8Four=113
Global const $msoAnimEffectPathFootball=97
Global const $msoAnimEffectPathFunnel=137
Global const $msoAnimEffectPathHeart=94
Global const $msoAnimEffectPathHeartbeat=130
Global const $msoAnimEffectPathHexagon=89
Global const $msoAnimEffectPathHorizontalFigure8=111
Global const $msoAnimEffectPathInvertedSquare=119
Global const $msoAnimEffectPathInvertedTriangle=118
Global const $msoAnimEffectPathLeft=120
Global const $msoAnimEffectPathLoopdeLoop=109
Global const $msoAnimEffectPathNeutron=114
Global const $msoAnimEffectPathOctagon=95
Global const $msoAnimEffectPathParallelogram=99
Global const $msoAnimEffectPathPeanut=112
Global const $msoAnimEffectPathPentagon=100
Global const $msoAnimEffectPathPlus=117
Global const $msoAnimEffectPathPointyStar=104
Global const $msoAnimEffectPathRight=149
Global const $msoAnimEffectPathRightTriangle=87
Global const $msoAnimEffectPathSCurve1=144
Global const $msoAnimEffectPathSCurve2=124
Global const $msoAnimEffectPathSineWave=125
Global const $msoAnimEffectPathSpiralLeft=140
Global const $msoAnimEffectPathSpiralRight=131
Global const $msoAnimEffectPathSpring=138
Global const $msoAnimEffectPathSquare=92
Global const $msoAnimEffectPathStairsDown=147
Global const $msoAnimEffectPathSwoosh=115
Global const $msoAnimEffectPathTeardrop=103
Global const $msoAnimEffectPathTrapezoid=93
Global const $msoAnimEffectPathTurnDown=135
Global const $msoAnimEffectPathTurnRight=121
Global const $msoAnimEffectPathTurnUp=128
Global const $msoAnimEffectPathTurnUpRight=142
Global const $msoAnimEffectPathUp=148
Global const $msoAnimEffectPathVerticalFigure8=107
Global const $msoAnimEffectPathWave=132
Global const $msoAnimEffectPathZigzag=123
Global const $msoAnimEffectPeek=12
GLobal const $msoAnimEffectPinwheel=33
Global const $msoAnimEffectPlus=13
Global const $msoAnimEffectRandomBars=14
Global const $msoAnimEffectRandomEffects=24
Global const $msoAnimEffectRiseUp=34
Global const $msoAnimEffectShimmer= 52
Global const $msoAnimEffectSling=43
Global const $msoAnimEffectSpin=61
;~ msoAnimEffectSpinner     44
;~ msoAnimEffectSpiral  15
;~ msoAnimEffectSplit   16
;~ msoAnimEffectStretch     17
;~ msoAnimEffectStretchy    45
;~ msoAnimEffectStrips  18
;~ msoAnimEffectStyleEmphasis   79
;~ msoAnimEffectSwish   35
;~ msoAnimEffectSwivel  19
;~ msoAnimEffectTeeter  80
;~ msoAnimEffectThinLine    36
;~ msoAnimEffectTransparency    62
;~ msoAnimEffectUnfold  37
;~ msoAnimEffectVerticalGrow    81
;~ msoAnimEffectWave    82
;~ msoAnimEffectWedge   20
;~ msoAnimEffectWheel   21
;~ msoAnimEffectWhip    38
;~ msoAnimEffectWipe    22
;~ msoAnimEffectZip     46
;~ msoAnimEffectZoom    23
;~ msoAnimEffectAfterFreeze     1
;~ msoAnimEffectAfterHold   3
;~ msoAnimEffectAfterRemove     2
;~ msoAnimEffectAfterTransition     4
;~ msoAnimEffectRestartAlways   1
;~ msoAnimEffectRestartNever    3
;~ msoAnimEffectRestartWhenOff  2
;~ msoAnimFilterEffectSubtypeAcross     9
;~ msoAnimFilterEffectSubtypeDown   25
;~ msoAnimFilterEffectSubtypeDownLeft   14
;~ msoAnimFilterEffectSubtypeDownRight  16
;~ msoAnimFilterEffectSubtypeFromBottom     13
;~ msoAnimFilterEffectSubtypeFromLeft   10
;~ msoAnimFilterEffectSubtypeFromRight  11
;~ msoAnimFilterEffectSubtypeFromTop    12
;~ msoAnimFilterEffectSubtypeHorizontal     5
;~ msoAnimFilterEffectSubtypeIn     7
;~ msoAnimFilterEffectSubtypeInHorizontal   3
;~ msoAnimFilterEffectSubtypeInVertical     1
;~ msoAnimFilterEffectSubtypeLeft   23
;~ msoAnimFilterEffectSubtypeNone   0
;~ msoAnimFilterEffectSubtypeOut    8
;~ msoAnimFilterEffectSubtypeOutHorizontal  4
;~ msoAnimFilterEffectSubtypeOutVertical    2
;~ msoAnimFilterEffectSubtypeRight  24
;~ msoAnimFilterEffectSubtypeSpokes1    18
;~ msoAnimFilterEffectSubtypeSpokes2    19
;~ msoAnimFilterEffectSubtypeSpokes3    20
;~ msoAnimFilterEffectSubtypeSpokes4    21
;~ msoAnimFilterEffectSubtypeSpokes8    22
;~ msoAnimFilterEffectSubtypeUp     26
;~ msoAnimFilterEffectSubtypeUpLeft     15
;~ msoAnimFilterEffectSubtypeUpRight    17
;~ msoAnimFilterEffectSubtypeVertical   6
;~ msoAnimFilterEffectTypeBarn  1
;~ msoAnimFilterEffectTypeBlinds    2
;~ msoAnimFilterEffectTypeBox   3
;~ msoAnimFilterEffectTypeCheckerboard  4
;~ msoAnimFilterEffectTypeCircle    5
;~ msoAnimFilterEffectTypeDiamond   6
;~ msoAnimFilterEffectTypeDissolve  7
;~ msoAnimFilterEffectTypeFade  8
;~ msoAnimFilterEffectTypeImage     9
;~ msoAnimFilterEffectTypeNone  0
;~ msoAnimFilterEffectTypePixelate  10
;~ msoAnimFilterEffectTypePlus  11
;~ msoAnimFilterEffectTypeRandomBar     12
;~ msoAnimFilterEffectTypeSlide     13
;~ msoAnimFilterEffectTypeStretch   14
;~ msoAnimFilterEffectTypeStrips    15
;~ msoAnimFilterEffectTypeWedge     16
;~ msoAnimFilterEffectTypeWheel     17
;~ msoAnimFilterEffectTypeWipe  18
;~ msoAnimColor     7
;~ msoAnimHeight    4
;~ msoAnimHeigth    4
;~ msoAnimNone  0
;~ msoAnimOpacity   5
;~ msoAnimRotation  6
;~ msoAnimShapeFillBackColor    1007
;~ msoAnimShapeFillColor    1005
;~ msoAnimShapeFillOn   1004
;~ msoAnimShapeFillOpacity  1006
;~ msoAnimShapeLineColor    1009
;~ msoAnimShapeLineOn   1008
;~ msoAnimShapePictureBrightness    1001
;~ msoAnimShapePictureContrast  1000
;~ msoAnimShapePictureCropFromBottom    1001
;~ msoAnimShapePictureCropFromLeft  1002
;~ msoAnimShapePictureCropFromRight     1003
;~ msoAnimShapePictureCropFromTop   1000
;~ msoAnimShapePictureGamma     1002
;~ msoAnimShapePictureGrayscale     1003
;~ msoAnimShapeShadowColor  1012
;~ msoAnimShapeShadowOffsetX    1014
;~ msoAnimShapeShadowOffsetY    1015
;~ msoAnimShapeShadowOn     1010
;~ msoAnimShapeShadowOpacity    1013
;~ msoAnimShapeShadowType   1011
;~ msoAnimTextBulletCharacter   111
;~ msoAnimTextBulletColor   114
;~ msoAnimTextBulletFontName    112
;~ msoAnimTextBulletNumber  113
;~ msoAnimTextBulletRelativeSize    115
;~ msoAnimTextBulletStyle   116
;~ msoAnimTextBulletType    117
;~ msoAnimTextFontBold  100
;~ msoAnimTextFontColor     101
;~ msoAnimTextFontEmboss    102
;~ msoAnimTextFontItalic    103
;~ msoAnimTextFontName  104
;~ msoAnimTextFontShadow    105
;~ msoAnimTextFontSize  106
;~ msoAnimTextFontStrikeThrough     110
;~ msoAnimTextFontSubscript     107
;~ msoAnimTextFontSuperscript   108
;~ msoAnimTextFontUnderline     109
;~ msoAnimVisibility    8
;~ msoAnimWidth     3
;~ msoAnimX     1
;~ msoAnimY     2
;~ msoAnimTextUnitEffectByCharacter     1
;~ msoAnimTextUnitEffectByParagraph     0
;~ msoAnimTextUnitEffectByWord  2
;~ msoAnimTextUnitEffectMixed   -1
;~ msoAnimTriggerAfterPrevious  3
;~ msoAnimTriggerMixed  -1
;~ msoAnimTriggerNone   0
;~ msoAnimTriggerOnPageClick    1
;~ msoAnimTriggerOnShapeClick   4
;~ msoAnimTriggerWithPrevious   2
;~ msoAnimTypeColor     2
;~ msoAnimTypeCommand   6
;~ msoAnimTypeFilter    7
;~ msoAnimTypeMixed     -2
;~ msoAnimTypeMotion    1
;~ msoAnimTypeNone  0
;~ msoAnimTypeProperty  5
;~ msoAnimTypeRotation  4
;~ msoAnimTypeScale     3
;~ msoAnimTypeSet   8
;~ ppActionEndShow  6
;~ ppActionFirstSlide   3
;~ ppActionHyperlink    7
;~ ppActionLastSlide    4
;~ ppActionLastSlideViewed  5
;~ ppActionMixed    -2
;~ ppActionNamedSlideShow   10
;~ ppActionNextSlide    1
;~ ppActionNone     0
;~ ppActionOLEVerb  11
;~ ppActionPlay     12
;~ ppActionPreviousSlide    2
;~ ppActionRunMacro     8
;~ ppActionRunProgram   9
;~ ppAdvanceModeMixed   -2
;~ ppAdvanceOnClick     1
;~ ppAdvanceOnTime  2
;~ ppAfterEffectDim     2
;~ ppAfterEffectHide    1
;~ ppAfterEffectHideOnClick     3
;~ ppAfterEffectMixed   -2
;~ ppAfterEffectNothing     0
;~ ppAlertsAll  2
;~ ppAlertsNone     1
;~ ppArrangeCascade     2
;~ ppArrangeTiled   1
;~ ppAutoSizeMixed  -2
;~ ppAutoSizeNone   0
;~ ppAutoSizeShapeToFitText     1
;~ ppBaselineAlignBaseline  1
;~ ppBaselineAlignCenter    3
;~ ppBaselineAlignFarEast50     4
;~ ppBaselineAlignMixed     -2
;~ ppBaselineAlignTop   2
;~ ppBorderBottom   3
;~ ppBorderDiagonalDown     5
;~ ppBorderDiagonalUp   6
;~ ppBorderLeft     2
;~ ppBorderRight    4
;~ ppBorderTop  1

;~ ppBulletMixed    -2
;~ ppBulletNone     0
;~ ppBulletNumbered     2
;~ ppBulletPicture  3
;~ ppBulletUnnumbered   1
;~ ppCaseLower  2
;~ ppCaseSentence   1
;~ ppCaseTitle  4
;~ ppCaseToggle     5
;~ ppCaseUpper  3

;~ ppAnimateByCategory  2
;~ ppAnimateByCategoryElements  4
;~ ppAnimateBySeries    1
;~ ppAnimateBySeriesElements    3
;~ ppAnimateChartAllAtOnce  5
;~ ppAnimateChartMixed  -2

;~ ppAccent1    6
;~ ppAccent2    7
;~ ppAccent3    8
;~ ppBackground     1
;~ ppFill   5
;~ ppForeground     2
;~ ppNotSchemeColor     0
;~ ppSchemeColorMixed   -2
;~ ppShadow     3
;~ ppTitle  4


;~ ppDateTimeddddMMMMddyyyy     2
;~ ppDateTimedMMMMyyyy  3
;~ ppDateTimedMMMyy     5
;~ ppDateTimeFigureOut  14
;~ ppDateTimeFormatMixed    -2
;~ ppDateTimeHmm    10
;~ ppDateTimehmmAMPM    12
;~ ppDateTimeHmmss  11
;~ ppDateTimehmmssAMPM  13
;~ ppDateTimeMdyy   1
;~ ppDateTimeMMddyyHmm  8
;~ ppDateTimeMMddyyhmmAMPM  9
;~ ppDateTimeMMMMdyyyy  4
;~ ppDateTimeMMMMyy     6
;~ ppDateTimeMMyy   7

;~ ppDirectionLeftToRight   1
;~ ppDirectionMixed     -2
;~ ppDirectionRightToLeft   2



;~ ppEffectAppear   3844
;~ ppEffectBlindsHorizontal     769
;~ ppEffectBlindsVertical   770
;~ ppEffectBoxIn    3074
;~ ppEffectBoxOut   3073
;~ ppEffectCheckerboardAcross   1025
;~ ppEffectCheckerboardDown     1026
;~ ppEffectCircleOut    3845
;~ ppEffectCombHorizontal   3847
;~ ppEffectCombVertical     3848
;~ ppEffectCoverDown    1284
;~ ppEffectCoverLeft    1281
;~ ppEffectCoverLeftDown    1287
;~ ppEffectCoverLeftUp  1285
;~ ppEffectCoverRight   1283
;~ ppEffectCoverRightDown   1288
;~ ppEffectCoverRightUp     1286
;~ ppEffectCoverUp  1282
;~ ppEffectCrawlFromDown    3344
;~ ppEffectCrawlFromLeft    3341
;~ ppEffectCrawlFromRight   3343
;~ ppEffectCrawlFromUp  3342
;~ ppEffectCut  257
;~ ppEffectCutThroughBlack  258
;~ ppEffectDiamondOut   3846
;~ ppEffectDissolve     1537
;~ ppEffectFade     1793
;~ ppEffectFadeSmoothly     3849
;~ ppEffectFlashOnceFast    3841
;~ ppEffectFlashOnceMedium  3842
;~ ppEffectFlashOnceSlow    3843
;~ ppEffectFlyFromBottom    3332
;~ ppEffectFlyFromBottomLeft    3335
;~ ppEffectFlyFromBottomRight   3336
;~ ppEffectFlyFromLeft  3329
;~ ppEffectFlyFromRight     3331
;~ ppEffectFlyFromTop   3330
;~ ppEffectFlyFromTopLeft   3333
;~ ppEffectFlyFromTopRight  3334
;~ ppEffectMixed    -2
;~ ppEffectNewsflash    3850
;~ ppEffectNone     0
;~ ppEffectPeekFromDown     3338
;~ ppEffectPeekFromLeft     3337
;~ ppEffectPeekFromRight    3339
;~ ppEffectPeekFromUp   3340
;~ ppEffectPlusOut  3851
;~ ppEffectPushDown     3852
;~ ppEffectPushLeft     3853
;~ ppEffectPushRight    3854
;~ ppEffectPushUp   3855
;~ ppEffectRandom   513
;~ ppEffectRandomBarsHorizontal     2305
;~ ppEffectRandomBarsVertical   2306
;~ ppEffectSpiral   3357
;~ ppEffectSplitHorizontalIn    3586
;~ ppEffectSplitHorizontalOut   3585
;~ ppEffectSplitVerticalIn  3588
;~ ppEffectSplitVerticalOut     3587
;~ ppEffectStretchAcross    3351
;~ ppEffectStretchDown  3355
;~ ppEffectStretchLeft  3352
;~ ppEffectStretchRight     3354
;~ ppEffectStretchUp    3353
;~ ppEffectStripsDownLeft   2563
;~ ppEffectStripsDownRight  2564
;~ ppEffectStripsLeftDown   2567
;~ ppEffectStripsLeftUp     2565
;~ ppEffectStripsRightDown  2568
;~ ppEffectStripsRightUp    2566
;~ ppEffectStripsUpLeft     2561
;~ ppEffectStripsUpRight    2562
;~ ppEffectSwivel   3356
;~ ppEffectUncoverDown  2052
;~ ppEffectUncoverLeft  2049
;~ ppEffectUncoverLeftDown  2055
;~ ppEffectUncoverLeftUp    2053
;~ ppEffectUncoverRight     2051
;~ ppEffectUncoverRightDown     2056
;~ ppEffectUncoverRightUp   2054
;~ ppEffectUncoverUp    2050
;~ ppEffectWedge    3856
;~ ppEffectWheel1Spoke  3857
;~ ppEffectWheel2Spokes     3858
;~ ppEffectWheel3Spokes     3859
;~ ppEffectWheel4Spokes     3860
;~ ppEffectWheel8Spokes     3861
;~ ppEffectWipeDown     2820
;~ ppEffectWipeLeft     2817
;~ ppEffectWipeRight    2819
;~ ppEffectWipeUp   2818
;~ ppEffectZoomBottom   3350
;~ ppEffectZoomCenter   3349
;~ ppEffectZoomIn   3345
;~ ppEffectZoomInSlightly   3346
;~ ppEffectZoomOut  3347
;~ ppEffectZoomOutSlightly  3348
;~ ppFarEastLineBreakLevelCustom    3
;~ ppFarEastLineBreakLevelNormal    1
;~ ppFarEastLineBreakLevelStrict    2
;~ ppFollowColorsMixed  -2
;~ ppFollowColorsNone   0
;~ ppFollowColorsScheme     1
;~ ppFollowColorsTextAndBackground  2
;~ ppFrameColorsBlackTextOnWhite    5
;~ ppFrameColorsBrowserColors   1
;~ ppFrameColorsPresentationSchemeAccentColor   3
;~ ppFrameColorsPresentationSchemeTextColor     2
;~ ppFrameColorsWhiteTextOnBlack    4
;~ ppHTMLAutodetect     4
;~ ppHTMLDual   3
;~ ppHTMLv3     1
;~ ppHTMLv4     2
;~ ppIndentControlMixed     -2
;~ ppIndentKeepAttr     2
;~ ppIndentReplaceAttr  1
;~ ppMediaTypeMixed     -2
;~ ppMediaTypeMovie     3
;~ ppMediaTypeOther     1
;~ ppMediaTypeSound     2
;~ ppMouseClick     1
;~ ppMouseOver  2
;~ ppBulletAlphaLCParenBoth     8
;~ ppBulletAlphaLCParenRight    9
;~ ppBulletAlphaLCPeriod    0
;~ ppBulletAlphaUCParenBoth     10
;~ ppBulletAlphaUCParenRight    11
;~ ppBulletAlphaUCPeriod    1
;~ ppBulletArabicAbjadDash  24
;~ ppBulletArabicAlphaDash  23
;~ ppBulletArabicDBPeriod   29
;~ ppBulletArabicDBPlain    28
;~ ppBulletArabicParenBoth  12
;~ ppBulletArabicParenRight     2
;~ ppBulletArabicPeriod     3
;~ ppBulletArabicPlain  13
;~ ppBulletCircleNumDBPlain     18
;~ ppBulletCircleNumWDBlackPlain    20
;~ ppBulletCircleNumWDWhitePlain    19
;~ ppBulletHebrewAlphaDash  25
;~ ppBulletHindiAlpha1Period    40
;~ ppBulletHindiAlphaPeriod     36
;~ ppBulletHindiNumParenRight   39
;~ ppBulletHindiNumPeriod   37
;~ ppBulletKanjiKoreanPeriod    27
;~ ppBulletKanjiKoreanPlain     26
;~ ppBulletKanjiSimpChinDBPeriod    38
;~ ppBulletRomanLCParenBoth     4
;~ ppBulletRomanLCParenRight    5
;~ ppBulletRomanLCPeriod    6
;~ ppBulletRomanUCParenBoth     14
;~ ppBulletRomanUCParenRight    15
;~ ppBulletRomanUCPeriod    7
;~ ppBulletSimpChinPeriod   17
;~ ppBulletSimpChinPlain    16
;~ ppBulletStyleMixed   -2
;~ ppBulletThaiAlphaParenBoth   32
;~ ppBulletThaiAlphaParenRight  31
;~ ppBulletThaiAlphaPeriod  30
;~ ppBulletThaiNumParenBoth     35
;~ ppBulletThaiNumParenRight    34
;~ ppBulletThaiNumPeriod    33
;~ ppBulletTradChinPeriod   22
;~ ppBulletTradChinPlain    21
;~ ppAlignCenter    2
;~ ppAlignDistribute    5
;~ ppAlignJustify   4
;~ ppAlignJustifyLow    7
;~ ppAlignLeft  1
;~ ppAlignmentMixed     -2
;~ ppAlignRight     3
;~ ppAlignThaiDistribute    6
;~ ppPasteBitmap    1
;~ ppPasteDefault   0
;~ ppPasteEnhancedMetafile  2
;~ ppPasteGIF   4
;~ ppPasteHTML  8
;~ ppPasteJPG   5
;~ ppPasteMetafilePicture   3
;~ ppPasteOLEObject     10
;~ ppPastePNG   6
;~ ppPasteRTF   9
;~ ppPasteShape     11
;~ ppPasteText  7
;~ ppPlaceholderBitmap  9
;~ ppPlaceholderBody    2
;~ ppPlaceholderCenterTitle     3
;~ ppPlaceholderChart   8
;~ ppPlaceholderDate    16
;~ ppPlaceholderFooter  15
;~ ppPlaceholderHeader  14
;~ ppPlaceholderMediaClip   10
;~ ppPlaceholderMixed   -2
;~ ppPlaceholderObject  7
;~ ppPlaceholderOrgChart    11
;~ ppPlaceholderSlideNumber     13
;~ ppPlaceholderSubtitle    4
;~ ppPlaceholderTable   12
;~ ppPlaceholderTitle   1
;~ ppPlaceholderVerticalBody    6
;~ ppPlaceholderVerticalTitle   5
;~ ppPrintBlackAndWhite     2
;~ ppPrintColor     1
;~ ppPrintPureBlackAndWhite     3
;~ ppPrintHandoutHorizontalFirst    2
;~ ppPrintHandoutVerticalFirst  1
;~ ppPrintOutputBuildSlides     7
;~ ppPrintOutputFourSlideHandouts   8
;~ ppPrintOutputNineSlideHandouts   9
;~ ppPrintOutputNotesPages  5
;~ ppPrintOutputOneSlideHandouts    10
;~ ppPrintOutputOutline     6
;~ ppPrintOutputSixSlideHandouts    4
;~ ppPrintOutputSlides  1
;~ ppPrintOutputThreeSlideHandouts  3
;~ ppPrintOutputTwoSlideHandouts    2
;~ ppPrintAll   1
;~ ppPrintCurrent   3
;~ ppPrintNamedSlideShow    5
;~ ppPrintSelection     2
;~ ppPrintSlideRange    4
;~ ppPublishAll     1
;~ ppPublishNamedSlideShow  3
;~ ppPublishSlideRange  2
;~ ppRevisionInfoBaseline   1
;~ ppRevisionInfoMerged     2
;~ ppRevisionInfoNone   0
;~ ppSaveAsAddIn    8
;~ ppSaveAsBMP  19
;~ ppSaveAsDefault  11
;~ ppSaveAsEMF  23
;~ ppSaveAsGIF  16
;~ ppSaveAsHTML     12
;~ ppSaveAsHTMLDual     14
;~ ppSaveAsHTMLv3   13
;~ ppSaveAsJPG  17
;~ ppSaveAsMetaFile     15
;~ ppSaveAsPNG  18
;~ ppSaveAsPowerPoint3  4
;~ ppSaveAsPowerPoint4  3
;~ ppSaveAsPowerPoint4FarEast   10
;~ ppSaveAsPowerPoint7  2
;~ ppSaveAsPresentation     1
;~ ppSaveAsPresForReview    22
;~ ppSaveAsRTF  6
;~ ppSaveAsShow     7
;~ ppSaveAsTemplate     5
;~ ppSaveAsTIF  21
;~ ppSaveAsWebArchive   20
;~ ppSelectionNone  0
;~ ppSelectionShapes    2
;~ ppSelectionSlides    1
;~ ppSelectionText  3
;~ ppLayoutBlank    12
;~ ppLayoutChart    8
;~ ppLayoutChartAndText     6
;~ ppLayoutClipartAndText   10
;~ ppLayoutClipArtAndVerticalText   26
;~ ppLayoutFourObjects  24
;~ ppLayoutLargeObject  15
;~ ppLayoutMediaClipAndText     18
;~ ppLayoutMixed    -2
;~ ppLayoutObject   16
;~ ppLayoutObjectAndText    14
;~ ppLayoutObjectAndTwoObjects  30
;~ ppLayoutObjectOverText   19
;~ ppLayoutOrgchart     7
;~ ppLayoutTable    4
;~ ppLayoutText     2
;~ ppLayoutTextAndChart     5
;~ ppLayoutTextAndClipart   9
;~ ppLayoutTextAndMediaClip     17
;~ ppLayoutTextAndObject    13
;~ ppLayoutTextAndTwoObjects    21
;~ ppLayoutTextOverObject   20
;~ ppLayoutTitle    1
;~ ppLayoutTitleOnly    11
;~ ppLayoutTwoColumnText    3
;~ ppLayoutTwoObjects   29
;~ ppLayoutTwoObjectsAndObject  31
;~ ppLayoutTwoObjectsAndText    22
;~ ppLayoutTwoObjectsOverText   23
;~ ppLayoutVerticalText     25
;~ ppLayoutVerticalTitleAndText     27
;~ ppLayoutVerticalTitleAndTextOverChart    28

;~ ppSlideShowManualAdvance     1
;~ ppSlideShowRehearseNewTimings    3
;~ ppSlideShowUseSlideTimings   2
;~ ppSlideShowPointerAlwaysHidden   3
;~ ppSlideShowPointerArrow  1
;~ ppSlideShowPointerAutoArrow  4
;~ ppSlideShowPointerEraser     5
;~ ppSlideShowPointerNone   0
;~ ppSlideShowPointerPen    2

;~ ppShowAll    1
;~ ppShowNamedSlideShow     3
;~ ppShowSlideRange     2


;~ ppSlideShowBlackScreen   3
;~ ppSlideShowDone  5
;~ ppSlideShowPaused    2
;~ ppSlideShowRunning   1
;~ ppSlideShowWhiteScreen   4


;~ ppShowTypeKiosk  3
;~ ppShowTypeSpeaker    1
;~ ppShowTypeWindow     2


;~ ppSlideSize35MM  4
;~ ppSlideSizeA3Paper   9
;~ ppSlideSizeA4Paper   3
;~ ppSlideSizeB4ISOPaper    10
;~ ppSlideSizeB4JISPaper    12
;~ ppSlideSizeB5ISOPaper    11
;~ ppSlideSizeB5JISPaper    13
;~ ppSlideSizeBanner    6
;~ ppSlideSizeCustom    7
;~ ppSlideSizeHagakiCard    14
;~ ppSlideSizeLedgerPaper   8
;~ ppSlideSizeLetterPaper   2
;~ ppSlideSizeOnScreen  1
;~ ppSlideSizeOverhead  5


;~ ppSoundEffectsMixed  -2
;~ ppSoundFile  2
;~ ppSoundNone  0
;~ ppSoundStopPrevious  1


;~ ppSoundFormatCDAudio     3
;~ ppSoundFormatMIDI    2
;~ ppSoundFormatMixed   -2
;~ ppSoundFormatNone    0
;~ ppSoundFormatWAV     1


;~ ppTabStopCenter  2
;~ ppTabStopDecimal     4
;~ ppTabStopLeft    1
;~ ppTabStopMixed   -2
;~ ppTabStopRight   3

;~ ppAnimateByAllLevels     16
;~ ppAnimateByFifthLevel    5
;~ ppAnimateByFirstLevel    1
;~ ppAnimateByFourthLevel   4
;~ ppAnimateBySecondLevel   2
;~ ppAnimateByThirdLevel    3
;~ ppAnimateLevelMixed  -2
;~ ppAnimateLevelNone   0

;~ ppBodyStyle  3
;~ ppDefaultStyle   1
;~ ppTitleStyle     2

;~ ppAnimateByCharacter     2
;~ ppAnimateByParagraph     0
;~ ppAnimateByWord  1
;~ ppAnimateUnitMixed   -2


;~ ppTransitionSpeedFast    3
;~ ppTransitionSpeedMedium  2
;~ ppTransitionSpeedMixed   -2
;~ ppTransitionSpeedSlow    1


;~ ppUpdateOptionAutomatic  2
;~ ppUpdateOptionManual     1
;~ Global const ppUpdateOptionMixed=-2


Global const $ppViewHandoutMaster=4
Global const  $ppViewMasterThumbnails=12
Global const $ppViewNormal=9
Global const $ppViewNotesMaster=5
Global const $ppViewNotesPage=3
Global const $ppViewOutline=6
Global const $ppViewPrintPreview=10
Global const $ppViewSlide=1
Global const $ppViewSlideMaster=2
Global const $ppViewSlideSorter=7
Global const $ppViewThumbnails=11
Global const $ppViewTitleMaster=8
Global const $ppWindowMaximized=3
Global const $ppWindowMinimized=2
Global const $ppWindowNormal=1
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

Global Const $ppMouseClick = 1
Global Const $ppActionNone=1
Global Const $ppSoundNone=0
Global Const $ppActionHyperlink=1

Global Const $ppAnimateByAllLevels=1

$objPPT = ObjCreate("PowerPoint.Application")
$objPPT.Visible = true


;erreur si powerpoint n'est pas installé
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, 75, 50, 200, 100).TextFrame.TextRange.Text = "La ferme du bonheur"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select

; ajout de son au démarrage de la présentation
With $objPPT.ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .SoundEffect.ImportFromFile("d:\547.wav")
    .Animate = True
   EndWith


$ppCurrentSlide = $ppPres.Slides.Add(2, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Second Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select

; Ajout de son
$objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0214098.wav", 348, 258).Select
    With $objPPT.ActivePresentation.SlideShowSettings
        .ShowType = $ppShowTypeSpeaker
        .LoopUntilStopped = $msoTrue
        .ShowWithNarration = $msoTrue
        .ShowWithAnimation = $msoTrue
        .RangeType = $ppShowAll
        .AdvanceMode = $ppSlideShowUseSlideTimings
        .PointerColor.RGB (255,0,0)
        .Run
    EndWith

$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0283209.gif",308, 219, 104, 102).Select
$ppCurrentSlide = $ppPres.Slides.Add(3, 1)
;~ $objPPT.ActiveWindow.Selection.SlideRange.Shapes(2).AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject("C:\Program Files (x86)\Microsoft Office\MEDIA\CAGCAT10\j0214098.wav", 348, 258).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$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.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$ppCurrentSlide = $ppPres.Slides.Add(5, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Cinquième Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$ppCurrentSlide = $ppPres.Slides.Add(6, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Sixième Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$ppCurrentSlide = $ppPres.Slides.Add(7, 1)
$objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", $msoFalse, $msoTrue, 10, 29.25, 230.38,230.38).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Septième Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide = $ppPres.Slides.Add(8, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Huitième Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$ppCurrentSlide = $ppPres.Slides.Add(9, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Neuvième Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select
$ppCurrentSlide = $ppPres.Slides.Add(10, 1)
$ppCurrentSlide.Shapes.AddTextbox($msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange.Text = "Dixième Slide"
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 35, 98, 48).Select
$ppCurrentSlide.Shapes.AddPicture("D:\Utilisateurs\jcaspar\Desktop\La ferme du bonheur\abricot.jpg", true, true, 60, 350, 198, 148).Select

; 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

; régler défilement
With $objPPT.SlideShowWindows(1).View

    .GotoSlide(0)
    sleep(5000)
    .GotoSlide(1)
    sleep(5000)
    .GotoSlide(2)
    sleep(5000)
    .GotoSlide(3)
    sleep(5000)
    .GotoSlide(4)
    sleep(5000)
    .GotoSlide(5)
    sleep(5000)
    .GotoSlide(6)
    sleep(5000)
    .GotoSlide(7)
    sleep(5000)
    .GotoSlide(8)
    sleep(5000)
    .GotoSlide(9)
    sleep(5000)
    .GotoSlide(10)

EndWith