OpenOffice.org Forum at OOoForum.orgThe OpenOffice.org Forum
 
 [Home]   [FAQ]   [Search]   [Memberlist]   [Usergroups]   [Register
 [Profile]   [Log in to check your private messages]   [Log in

ppt slides to swf

 
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Impress
View previous topic :: View next topic  
Author Message
soureshcoumar
Newbie
Newbie


Joined: 02 Aug 2004
Posts: 4

PostPosted: Fri Aug 20, 2004 3:45 am    Post subject: ppt slides to swf Reply with quote

Sub Main
odoc=thiscomponent
octl=odoc.getcurrentcontroller()
'xray.xray octl
cNewName = "c:\temp\test"
for i = 0 to odoc.getdrawpages().count -1
slide=odoc.drawpages(i)
octl.setCurrentPage(slide)
' Save it as a JPEG.
oDoc.storeToUrl( ConvertToURL( cNewName + "slide"+str(i)+ ".jpeg" ), _
Array( MakePropertyValue( "FilterName", "impress_jpg_Export" ) ) )
next
End Sub
Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
oPropertyValue = createUnoStruct( "com.sun.star.beans.PropertyValue" )
If Not IsMissing( cName ) Then
oPropertyValue.Name = cName
EndIf
If Not IsMissing( uValue ) Then
oPropertyValue.Value = uValue
EndIf
MakePropertyValue() = oPropertyValue
End Function

this code is not working can u help me on this
Back to top
View user's profile Send private message
DiGro
Super User
Super User


Joined: 02 Jun 2004
Posts: 1415
Location: Hoorn NH, The Netherlands

PostPosted: Fri Aug 20, 2004 4:43 am    Post subject: Reply with quote

Please take a look here:

http://www.oooforum.org/forum/viewtopic.php?t=8715&highlight=graphic+convert


DiGro
Back to top
View user's profile Send private message
soureshcoumar
Newbie
Newbie


Joined: 02 Aug 2004
Posts: 4

PostPosted: Sat Aug 21, 2004 1:40 am    Post subject: Reply with quote

Hi,,

There is optimization issue in the splide split program . The above code snippts is the best i think .

Coz it opens the Openoffice only once and exports each slide in the sparate documents. which i want.

Coz i have 50 slides in each ppt

If i use this code snippt it is better for me but i am not able to set the Current page to export.

Its just exporting the whole ppt which i don't want. i just need each slide to exported as separate documents.

Can u help me on this

Thanking YOu,
Back to top
View user's profile Send private message
DannyB
Moderator
Moderator


Joined: 02 Apr 2003
Posts: 3991
Location: Lawrence, Kansas, USA

PostPosted: Sat Aug 21, 2004 7:10 am    Post subject: Reply with quote

If you want to split an Impress (or Draw) document using Basic, then see this....

Impress: Export slides into separate documents
http://www.oooforum.org/forum/viewtopic.php?t=7796

This should work on PPT just as easily. Just change the variable cImpressDocToSplit to point to the pathname of your PPT file.

also see....
http://www.oooforum.org/forum/viewtopic.php?p=32470#32470
http://www.oooforum.org/forum/viewtopic.php?p=23018#23018
http://www.oooforum.org/forum/viewtopic.php?t=2664
http://www.oooforum.org/forum/viewtopic.php?p=9819#9819
_________________
Want to make OOo Drawings like the colored flower design to the left?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Impress All times are GMT - 8 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group