Updating code from 6.5 api to latest

Aspose.Slides Product Family
1

Hi,

I need to update some old code using v6.5 to work with your latest version of the api…
Below is part of a loop that splits one pptx into several single slide pptxs.

I’ve got to this point (see below) but not sure what AddNotes() or any of the subsequent methods are supposed to be now… checked the examples on github, no idea.

dstSld = dstSlds.AddClone(srcPres.Slides(i))
'lost from here onward
dstSld.AddNotes()
dstSld.Notes.Paragraphs.Clear()
Dim srcSld As Slide
srcSld = srcPres.GetSlideByPosition(i)
If Not srcSld.Notes Is Nothing Then
For Each srcPara As Paragraph In srcSld.Notes.Paragraphs
'If Not srcPara Is Nothing Then
Dim dstPara As Paragraph
dstPara = New Paragraph(srcPara)
dstSld.Notes.Paragraphs.Add(dstPara)
'End If
Next
End If
Dim emptyslide As Slide = targetPres.GetSlideByPosition(1)
targetPres.Slides.Remove(emptyslide)

2

Hi,


Thank you for your interest in Aspose.Slides.

I have observed your requirements and have worked over them. I would like to request you to please try using following sample code on your end to serve the purpose.

Dim Srcpres As New Presentation(“D:\Split\TestPresentation.pptx”)
Dim target As New Presentation()

Dim n As Integer = Srcpres.Slides.Count()
For i As Integer = 0 To n - 1
target.SlideSize.Type = Srcpres.SlideSize.Type
target.SlideSize.Size = Srcpres.SlideSize.Size
Dim slide As ISlide = Srcpres.Slides(i)
target.Slides.AddClone(slide)
target.Slides.RemoveAt(0)

target.Save(“D:\Split\Page” + i + “.pptx”, Aspose.Slides.Export.SaveFormat.Pptx)
Next

I hope this will be helpful. Please share if I may help you further in this regard.

Best Regards,
3

Hi, are you saying that it copies the notes as well?

4
Hi,

I have observed your comments and like to share that if you want to copy the notes with the slide please try using the following code on your end to serve the purpose.

Dim Srcpres As New Presentation("D:\Split\TestPresentation.pptx")
Dim target As New Presentation()

Dim n As Integer = Srcpres.Slides.Count()
For i As Integer = 0 To n - 1

target.SlideSize.Type = Srcpres.SlideSize.Type
target.SlideSize.Size = Srcpres.SlideSize.Size
Dim slide As ISlide = Srcpres.Slides(i)
Try
If slide.NotesSlide.NotesTextFrame.Text.Length <> 0 Then
target.Slides(i).NotesSlide.NotesTextFrame.Text = Srcpres.Slides(i).NotesSlide.NotesTextFrame.Text
End If
Catch
End Try
target.Slides.AddClone(slide)
target.Slides.RemoveAt(0)
target.Save("D:\Split\PageNumber" + i + ".pptx", Aspose.Slides.Export.SaveFormat.Pptx)
Next

I hope this will be helpful. Please share if I may help you further in this regard.

Best Regards,