PowerPoint Wrapper

[Eazyrider]

Hi everyone,

I was looking for a way to handle an Active Presentation. I started to write a code, but soon an error occured which I couldn't correct yet...

Global $oAppl = ObjGet("", "PowerPoint.Application")
If @error Or Not IsObj($oAppl) Then Exit MsgBox(0, "Error", "Error creating PPT application. @error = " & @error & ", @extended = " & @extended)
Global $oPresInterface = $oAppl.Presentations ; Get presentation interface
Global $oPresentation = $oPresInterface.ActivePresentation

The error of course is on last line... All I want is to create an object related to the current active presentation.

Any help on this would be much appreciated !

Edited April 9, 2013 by Eazyrider

[BrewManNH]

Wouldn't that line be:

Global $oPresentation = $oAppl.ActivePresentation

[Eazyrider]

... I think you are right indeed ! I can not test that tonight unfortunately, but will let you inform tomorrow morning. But from what I found on the net, it seems that ActivePresentation is a property used on an Application. I'll let you know tomorrow.

Thanks for your help anyway.

[jaja714]

Hey ... where can I find <misc.au3> (InetGetActive, etc...)?

[BrewManNH]

In the includes folder where AutoIt is installed, it's a standard include file with AutoIt.

[jaja714]

ok, i have it now (upgraded) but I'm still getting "ERROR: undefined macro" with the "while @InetGetActive" line...

[BrewManNH]

You do realize that this script was written 6 years ago right? That macro hasn't been in the language in over 3 years, so this script will have to be updated before it will work with the latest version of AutoIt.

[water]

Can you please open a new thread in the General Help and Support forum? Questions about INetGet don't belong in a thread about PowerPoint.

[sivaramanm]

When i try top open the the PPT, instead of creating a new one (which works fine!), I am getting the following error
 
 
 
 
 
 

$objPPT = _PPT_PowerPointApp()
If @error Then 
    MsgBox(0,"","No PowerPoint available") 
    Exit
EndIf
$PresInterface = _PPT_CreatePresentation($objPPT) ;Get presentation 
interface$objPres = _PPT_PresentationOpen($PresInterface,"C:\Users\s.mailappan\Desktop\3G-Reports\MyAutoItPresentation.ppt") ;Add a new presentation

[water]

Which version of AutoIt do you run?

Which version of PowerPoint do you run?

[sivaramanm]

@Water

Using AutoIT V3 and Microsoft Office  2010

[water]

V3 is a bit imprecise.  What does

Msgbox(0, "", @AutoItVersion)

return?

Do you use the 32 or 64 bit version of Office 2010?

[sivaramanm]

Autoit Version(@AutoItVersion) - 3.3.8.1

 and MS Office Version is

[water]

Are you sure this part

interface$objPres

of the following line in your script is correct?

interface$objPres = _PPT_PresentationOpen($PresInterface,"C:\Users\s.mailappan\Desktop\3G-Reports\MyAutoItPresentation.ppt") ;Add a new presentation

[sivaramanm]

Yes... it works after getting rid of that line.

I was following the sample code and i thought thats needed to create a "session" to presentation.

Thanks a lot!!!

[water]

[Starg]

Useful UDF.

Thanks!

[Smitro]

This is a great tool and helped my create some big slide shows. There is one thing I'm stuck on. How do I indent a point?

For example. 

- Dot Point 1

    - Sub Dot Point 1.1

I have tried  @CRLF & @TAB but it just adds a Tab between the dot and the text. It doesn't bring the dot in.

For example

- Dot Point 1

-     Sub Dot Point 1.1

[Smitro]

So I did some searching and found this... http://msdn.microsoft.com/en-us/library/office/aa223684(v=office.11).aspx

As a result I made this. You're welcome to add it to the main file, hope it can be helpful to the community. If there is a better way of doing this please let me know.

;===============================================================================
;
; Function Name:    _PPT_SlideTextFrameSetIndent()
; Description:      Sets the indent of a paragraph
; Parameter(s):     $obj - Slide object
;                   $intTextFrame - Index of TextFrame on slide
;                   $intParagraph - Paragraph number to Indent
;                   $IndentLevel - Indent Level
; Return Value(s):  On Success - Slide's text frame text set
;                   On Failure - @error = 1, Returns 0
; Author(s):        Smitro based on script by Toady (Josh Bolton)
;
;===============================================================================
Func _PPT_SlideTextFrameSetIndent(ByRef $obj, $intTextFrame, $intParagraph, $IndentLevel)
    If IsObj($obj) <> 1 Then
        SetError(1)
        Return 0
    Else
        $obj.Shapes.Item($intTextFrame).TextFrame.TextRange.Paragraphs($intParagraph).IndentLevel = $IndentLevel
    Endif
EndFunc

[prutser]

Hi all,

Thanks for the extreme usefull Powerpoint UDF. I added a one liner to include text into the Notesfield of your sheets.

;===============================================================================
;
; Function Name:    _PPT_SlideNotesText()
; Description:      Sets the text in the Notesfield in a slide
; Parameter(s):     $obj - Slide object
;                   $Text - String text
; Return Value(s):  On Success - Nothing
;                   On Failure - @error = 1, Returns 0
; Author(s):        Prutser based on script by Toady (Josh Bolton)
;
;===============================================================================
Func _PPT_SlideNotesText(ByRef $obj, $Text)
    If IsObj($obj) <> 1 Then
        SetError(1)
        Return 0
    Else
        $obj.NotesPage.Shapes(2).TextFrame.TextRange.Text = $Text
    Endif
EndFunc

Edited November 2, 2013 by prutser