Toady Posted July 27, 2007 Share Posted July 27, 2007 (edited) This is a wrapper for PowerPoint. It allows you to have control of MS PowerPoint. At work I have to create presentations that are somewhat tedious. Therefor, since no one has tackled this, I suppose I would. So far I have the following functions. See them below. I'm in the process of adding tons more in my spare time. I have attached the PowerPoint include and an example that uses the include. Please comment on the progress I have made so far. I still haven't documented the include as of now but I will soon._PPT_PowerPointApp()_PPT_PowerPointQuit()_PPT_CreatePresentation()_PPT_PresentationAdd()_PPT_PresentationOpen()_PPT_PresentationSaved()_PPT_PresentationSaveAs()_PPT_PresentationName()_PPT_PresentationClose()_PPT_SlideCreate()_PPT_SlideTextFrameSetText()_PPT_SlideTextFrameGetText()_PPT_SlideTextFrameSetFont()_PPT_SlideTextFrameSetFontSize()_PPT_SlideCount()_PPT_SlideShapeCount()_PPT_SlideAddPicture()_PPT_SlideAddTable()_PPT_SlideAddTextBox()_PPT_SlideShowStartingSlide()_PPT_SlideShowEndingSlide()_PPT_SlideShowWithAnimation()_PPT_SlideShowWithNarration()_PPT_SlideShowLoopUntilStopped()_PPT_SlideShowAdvanceMode()_PPT_SlideShowShowType()_PPT_SlideShowRangeType()_PPT_SlideShowDisplayScrollbars()_PPT_SlideShowAdvanceOnTime()_PPT_SlideShowAdvanceTime()_PPT_SlideShowRun()_PPT_bAssistant()_PPT_SlideSelect()... more to come.PPT_Example.au3Powerpoint.au3 Edited August 2, 2007 by Toady BabyIT 1 www.itoady.com A* (A-star) Searching Algorithm - A.I. Artificial Intelligence bot path finding Link to comment Share on other sites More sharing options...
ResNullius Posted July 27, 2007 Share Posted July 27, 2007 Haven't tested all the functions, but did run your example. Looks sweet Toady. Thanks. Link to comment Share on other sites More sharing options...
gseller Posted July 27, 2007 Share Posted July 27, 2007 Same here, looks cool.. I guess to add images you can just throw elements at it thru the example code? Nice... Link to comment Share on other sites More sharing options...
Toady Posted July 30, 2007 Author Share Posted July 30, 2007 Added the following, and updated the example script._PPT_SetSlideTextFrameFont()_PPT_SetSlideTextFrameFontSize()_PPT_SlideAddPicture()_PPT_SlideAddTable()_PPT_SlideAddTextBox()_PPT_bAssistant()_PPT_SlideSelect() www.itoady.com A* (A-star) Searching Algorithm - A.I. Artificial Intelligence bot path finding Link to comment Share on other sites More sharing options...
gseller Posted July 30, 2007 Share Posted July 30, 2007 Whoop There it is! LOL You got images.. Good work! Link to comment Share on other sites More sharing options...
Gif Posted July 30, 2007 Share Posted July 30, 2007 good job Link to comment Share on other sites More sharing options...
mikehunt114 Posted August 2, 2007 Share Posted August 2, 2007 Nice work, I'd almost started making some PP UDF's after you posted something in the Support Forum IE Dev ToolbarMSDN: InternetExplorer ObjectMSDN: HTML/DHTML Reference Guide[quote]It is surprising what a man can do when he has to, and how little most men will do when they don't have to. - Walter Linn[/quote]--------------------[font="Franklin Gothic Medium"]Post a reproducer with less than 100 lines of code.[/font] Link to comment Share on other sites More sharing options...
SiteMaze Posted October 22, 2007 Share Posted October 22, 2007 Just to say that this wrapper is very useful to me. I hope are to come. Keep up the good work. Item_Group() FontSize_Change() etc .... Arsenal Football Fan Club in Singapore Link to comment Share on other sites More sharing options...
Smitro Posted July 18, 2008 Share Posted July 18, 2008 Awesome! Is there a way to read a powerpoint file? I want to extract the text into a text file. Link to comment Share on other sites More sharing options...
Andreik Posted July 18, 2008 Share Posted July 18, 2008 Very useful UDF. muttley Link to comment Share on other sites More sharing options...
Innovative Posted July 18, 2008 Share Posted July 18, 2008 (edited) It says 'No powerpoint available' . What does it mean? EDIT : Ok found out that because i dont have powerpoint installed, where can i download instead of buying the CD? Edited July 18, 2008 by xVivoCity Link to comment Share on other sites More sharing options...
calc0000 Posted November 16, 2008 Share Posted November 16, 2008 Is there any way to get rid of the bullets that are automatically created when text is inserted in the text frame? Link to comment Share on other sites More sharing options...
evk Posted November 16, 2008 Share Posted November 16, 2008 awesome idea Link to comment Share on other sites More sharing options...
calc0000 Posted November 19, 2008 Share Posted November 19, 2008 In response to my original question about the bullets (which has not been answered), I have written 3 UDF's that I believe should be added to the collection: expandcollapse popup;=============================================================================== ; ; Function Name: _PPT_SlideTextFrameToggleBullets() ; Description: Toggles bullet visibility in a specified TextFrame in a slide ; Parameter(s): $obj - Slide object ; $intTextFrame - Index of TextFrame on slide to toggle ; Return Value(s): On Success - Bullet visibility toggled ; On Failure - @error = 1, Returns 0 ; Author(s): calc0000 ; ;=============================================================================== Func _PPT_SlideTextFrameToggleBullets(ByRef $obj, $intTextFrame) If IsObj($obj) <> 1 Then SetError(1) Return 0 Else With $obj.Shapes.Item($intTextFrame).TextFrame.TextRange.ParagraphFormat.Bullet .Visible=Not .Visible EndWith EndIf EndFunc ;=============================================================================== ; ; Function Name: _PPT_SlideTextFrameGetBullets() ; Description: Gets whether or not bullets are being displayed on a specified text frame ; Parameter(s): $obj - Slide object ; $intTextFrame - Index of TextFrame on slide ; Return Value(s): On Success - True or False, depending on whether or not bullets are visible ; On Failure - @error = 1, Returns 0 ; Author(s): calc0000 ; ;=============================================================================== Func _PPT_SlideTextFrameGetBullets(ByRef $obj, $intTextFrame) If IsObj($obj) <> 1 Then SetError(1) Return 0 Else Return $obj.Shapes.Item($intTextFrame).TextFrame.TextRange.ParagraphFormat.Bullet.Visible EndIf EndFunc ;=============================================================================== ; ; Function Name: _PPT_SlideTextFrameSetBullets() ; Description: Sets whether or not bullets will be displayed on a specified text frame ; Parameter(s): $obj - Slide object ; $intTextFrame - Index of TextFrame on slide ; $bullets - True or False ; Return Value(s): On Success - Sets bullet visibility ; On Failure - @error = 1, Returns 0 ; Author(s): calc0000 ; ;=============================================================================== Func _PPT_SlideTextFrameSetBullets(ByRef $obj, $intTextFrame, $bullets) If IsObj($obj) <> 1 Then SetError(1) Return 0 Else $obj.Shapes.Item($intTextFrame).TextFrame.TextRange.ParagraphFormat.Bullet.Visible=$bullets EndIf EndFunc Link to comment Share on other sites More sharing options...
Bert Posted December 11, 2008 Share Posted December 11, 2008 I wonder if this will work with a pps file... The Vollatran project  My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
GEOSoft Posted April 16, 2009 Share Posted April 16, 2009 I wonder if this will work with a pps file...Hate to bring up an old topic but did you ever try this? I need to figure out some method of extracting slides to images. George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
BasicOs Posted April 19, 2009 Share Posted April 19, 2009 Hate to bring up an old topic but did you ever try this? I need to figure out some method of extracting slides to images.Hi,did you get such udf for openoffice.I have not ppt and it does not workthank you Autoit.es - Foro Autoit en Español Word visitors Image Clustrmap image: - Football Spanish team - Spanish team: Casillas, Iniesta, Villa, Xavi, Puyol, Campdevilla, etc..Programando en Autoit+Html - Coding Autoit-Html - Arranca programas desde Internet - Preprocesador de Autoit a http Link to comment Share on other sites More sharing options...
testJunkie Posted July 3, 2009 Share Posted July 3, 2009 (edited) Hi, I was looking to open an existing document using the _PPT_PresentationOpen() function. However, the operation fails, giving an error of : " The requested action with this object has failed.: Local $objPres = $obj.Presentations.Open($filepath) Local $objPres = $obj.Presentations.Open($filepath)^ ERROR " The code that I'm using is: " $objPPT = _PPT_PowerPointApp() If @error Then MsgBox(0,"","No PowerPoint available") Exit EndIf $objPres = _PPT_PresentationOpen($objPPT, $filePath) " It would be wonderful if someone could please inform me of my mistake / a solution to the problem. My exposure to AutoIt has been limited, making it difficult for me to debug this on my own. Thanks in advance. Edited July 3, 2009 by testJunkie Link to comment Share on other sites More sharing options...
gingerbytes Posted April 20, 2010 Share Posted April 20, 2010 hi, anyone knows how to hide the powerpoint application while constructing the slides? tnx! Link to comment Share on other sites More sharing options...
gingerbytes Posted April 20, 2010 Share Posted April 20, 2010 hi, anyone knows how to hide the powerpoint application while constructing the slides? tnx!found it, "$obj.Visible.False" Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now