How to Copy a Worksheet within a Workbook

How to Assemble Multiple PowerPoint Decks

Brian Jones: Office Extensibility — Thu, 05 Mar 2009 22:30:09 GMT

I just want to let you guys know we are working on some server issues here, which is why some of the

re: How to Copy a Worksheet within a Workbook

nayan — Wed, 04 Mar 2009 13:05:51 GMT

hey Brian, a very nice blog. I am creating an addin for excel using c# .net. I am done with my extensibility project. now I want to generate an MSI for my addin. Could you kindly guide me how to go about achieving this?

Regards,

nayan

re: How to Copy a Worksheet within a Workbook

Zeyad Rajabi — Fri, 27 Feb 2009 00:40:53 GMT

Tomas,

Stay tuned for my next post, which should be up today once my ftp server is up, that will show you how to merge and clone slides. If you are looking to clone a slide within the same presentation then check out the following post: http://blogs.msdn.com/brian_jones/archive/2008/11/18/creating-a-presentation-report-based-on-data.aspx

Thanks,

Zeyad Rajabi

re: How to Copy a Worksheet within a Workbook

Tomás Corral Bulnes — Thu, 26 Feb 2009 21:01:20 GMT

Thanks. Great explanation.

AddPart and addNewPart dissection was very helpful for Excel but, I'm encountering problems to clone a powerpoint slide.

I'm based on:

Using ppt As Packaging.PresentationDocument = Packaging.PresentationDocument.Open(output, True)

Dim pptPart As Packaging.PresentationPart = ppt.PresentationPart

Dim sourceSlideId As DocumentFormat.OpenXml.Presentation.SlideId = pptPart.Presentation.SlideIdList.ChildElements(0)

Dim sourceSlide As Packaging.SlidePart = pptPart.GetPartById(sourceSlideId.RelationshipId)

Dim tempPPT As Packaging.PresentationDocument = Packaging.PresentationDocument.Create(New MemoryStream(), ppt.DocumentType)

Dim tempPptPart As Packaging.PresentationPart = tempPPT.AddPresentationPart()

Dim tempSlidePart As Packaging.SlidePart = tempPptPart.AddPart(Of Packaging.SlidePart)(sourceSlide)

Dim newSlidePart As Packaging.SlidePart = pptPart.AddPart(tempSlidePart)

Dim slides As Presentation.SlideIdList = ppt.PresentationPart.Presentation.GetFirstChild(Of Presentation.SlideIdList)()

Dim newid As New Presentation.SlideId '= pptPart.Presentation.SlideIdList.InsertAfter(New Presentation.SlideId(), pptPart.Presentation.SlideIdList.ElementAt(0)) 'sldTemppartID) ' prevSlideId)

newid.RelationshipId = pptPart.GetIdOfPart(newSlidePart)

pptPart.Presentation.Save()

End Using

Thanks in advance

Links for 02-24-2009

Stephen Peront — Tue, 24 Feb 2009 23:07:33 GMT

In addition to posting my own content, I will from time to time post links to the great new Open XML