| View previous topic :: View next topic |
| Author |
Message |
soureshcoumar
Newbie
Joined: 02 Aug 2004
Posts: 4
|
 Posted: Fri Aug 20, 2004 3:45 am Post subject: ppt slides to swf |
 |
|
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 |
|
 |
DiGro
Super User
Joined: 02 Jun 2004
Posts: 1210
Location: Hoorn NH, The Netherlands
|
|
| Back to top |
|
|
soureshcoumar
Newbie
Joined: 02 Aug 2004
Posts: 4
|
| Posted: Sat Aug 21, 2004 1:40 am Post subject: |
|
|
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 |
|
|
DannyB
Moderator
Joined: 02 Apr 2003
Posts: 3991
Location: Lawrence, Kansas, USA
|
|
| Back to top |
|
|
|
