Copy slide

The following example shows you how to create new presentation and copy the first slide from an existing presentation to the new presentation.

C# example

using System;
using Independentsoft.Office;
using Independentsoft.Office.Presentation;
using Independentsoft.Office.Presentation.Drawing;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            Presentation input = new Presentation("c:\\test\\input.pptx");
            Presentation output = new Presentation();

            Slide slide1 = input.Slides[0];
            SlideMaster master1 = null;

            //find master
            foreach (SlideMaster currentMaster in input.SlideMasters)
            {
                if (currentMaster.Layouts.Contains(slide1.Layout))
                {
                    master1 = currentMaster;
                }
            }

            output.Slides.Add(slide1);
            output.SlideMasters.Add(master1);

            output.SlideSize = new SlideSize(9144000, 6858000, SlideSizeType.Screen4x3);
            output.NotesSlideSize = new NotesSlideSize(6858000, 9144000);

            output.Save("c:\\test\\output.pptx", true);

        }
    }
}

VB example

Imports System
Imports Independentsoft.Office
Imports Independentsoft.Office.Presentation
Imports Independentsoft.Office.Presentation.Drawing

Module Module1
    Sub Main(ByVal args As String())

        Dim input As New Presentation("c:\test\input.pptx")
        Dim output As New Presentation()

        Dim slide1 As Slide = input.Slides(0)
        Dim master1 As SlideMaster = Nothing

        'find master
        For Each currentMaster As SlideMaster In input.SlideMasters
            If currentMaster.Layouts.Contains(slide1.Layout) Then
                master1 = currentMaster
            End If
        Next

        output.Slides.Add(slide1)
        output.SlideMasters.Add(master1)

        output.SlideSize = New SlideSize(9144000, 6858000, SlideSizeType.Screen4x3)
        output.NotesSlideSize = New NotesSlideSize(6858000, 9144000)

        output.Save("c:\test\output.pptx", True)

    End Sub

End Module

Independentsoft - any library, any programming language

Presentation .NET > Tutorial > Copy slide

Need help? Ask our developers: