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
****************************************************
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
****************************************************