AutoIt Français

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]



 

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

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

Code : Tout sélectionner

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

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