How do I copy and past slides from one presentation to another without loosing format settings

T

Thomas Kopp

how can I do the following in c#??? or at least is there any documentation
available on the net that describes ppt methods, properties and objects
according to c#?

it perfectly worked with vb6 as you can see....

' prsTemp is the new presentation
' prsPres is the origin presentation
prsTemp.PageSetup.SlideWidth = prsPres.PageSetup.SlideWidth
prsTemp.PageSetup.SlideHeight = prsPres.PageSetup.SlideHeight

' copy Slide-Master
prsTemp.SlideMaster.Shapes.Range.Delete
prsPres.SlideMaster.Shapes.Range.Copy
prsTemp.SlideMaster.Shapes.Paste

'copy Title-Master
prsTemp.AddTitleMaster
prsTemp.TitleMaster.Shapes.Range.Delete
prsPres.TitleMaster.Shapes.Range.Copy
prsTemp.TitleMaster.Shapes.Paste
prsTemp.TitleMaster.HeadersFooters.SlideNumber.Visible = True

' Header and footer visible
prsTemp.SlideMaster.HeadersFooters.Footer.Visible = True
prsTemp.SlideMaster.HeadersFooters.SlideNumber.Visible = True

' mark Slides
prsTemp.TitleMaster.Shapes(6).TextFrame.TextRange.Text =
strTargetGroupName
With prsTemp.SlideMaster
.Shapes(5).TextFrame.TextRange.Text = strTargetGroupName
.Shapes(5).Top = 508
.Shapes(7).TextFrame.TextRange.Text = "ITP/AD Team Vlatten " & vbCr
& _
"Komplettdateistand " & strDate
' .Shapes(7).TextFrame.TextRange.ParagraphFormat.Alignment =
ppAlignCenter
.Shapes(7).Top = 508

.Shapes(9).Top = 511
.Shapes(9).left = 618
End With

Set buildNamedSlideShow = prsTemp

afterwards slides are copied from the original pres to prsTemp
like

For intLoop = 0 To UBound(arrSlidesToShowMain)
If arrSlidesToShowMain(intLoop) <> 0 Then
prsPresMain.Slides.FindBySlideID(arrSlidesToShowMain(intLoop)
).Copy
prsTemp.Slides.Paste
End If
Next
****************************************************
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top