I want to find for example VB6.0 open file PowerPoint

vb6 Viet Nam
  • 10 years ago

    I want to find for example VB6.0 open file PowerPoint (*.ppt) and change content WordArt of PowerPoint. see you soon.

  • 10 years ago
    Hey Thi i can't help you more pls check this code below.
    Open file (*.ppt) and Run all slide show

    Sub RunPpt()
    Const ppAdvanceOnTime = 2
    Const ppShowTypeKiosk = 3
    Const ppSlideShowDone = 5

    Set objPPT = CreateObject("PowerPoint.Application")
    objPPT.Visible = True

    Set objPresentation = objPPT.Presentations.Open("d:\nimol My Music\Hello Every one.ppt")

    objPresentation.Slides.Range.SlideShowTransition.AdvanceTime = 2
    objPresentation.Slides.Range.SlideShowTransition.AdvanceOnTime = True

    objPresentation.SlideShowSettings.AdvanceMode = ppAdvanceOnTime
    objPresentation.SlideShowSettings.ShowType = ppShowTypeKiosk
    objPresentation.SlideShowSettings.StartingSlide = 1
    objPresentation.SlideShowSettings.EndingSlide = _
    objPresentation.Slides.Count

    Set objSlideShow = objPresentation.SlideShowSettings.Run.View

    Do Until objSlideShow.State = ppSlideShowDone
    Loop
    End Sub

    Sorry if something wrong not the same in your mind.

Post a reply

Enter your message below

Sign in or Join us (it's free).

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Nine people can't make a baby in a month.” - Fred Brooks