Add speaker notes

The following example shows you how to add speaker notes text to the first slide of a presentation.

C# example

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

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

            Slide slide = presentation.Slides[0];

            GroupShape shapeTree = new GroupShape();
            shapeTree.ID = "1";
            shapeTree.Name = "NotesShapeTree";
            shapeTree.ShapeProperties.TransformGroup2D = new Independentsoft.Office.Drawing.TransformGroup2D();

            Independentsoft.Office.Drawing.TextRun run = new Independentsoft.Office.Drawing.TextRun("Remember to mention the Q3 sales numbers.");

            Independentsoft.Office.Drawing.TextParagraph paragraph = new Independentsoft.Office.Drawing.TextParagraph();
            paragraph.Content.Add(run);

            ShapeTextBody textBody = new ShapeTextBody();
            textBody.Paragraphs.Add(paragraph);

            Shape notesBody = new Shape();
            notesBody.ID = "2";
            notesBody.Name = "Notes Placeholder";
            notesBody.Placeholder = new Placeholder(PlaceholderType.Body);
            notesBody.TextBody = textBody;

            shapeTree.Elements.Add(notesBody);

            CommonSlideData commonSlideData = new CommonSlideData();
            commonSlideData.ShapeTree = shapeTree;

            NotesSlide notesSlide = new NotesSlide();
            notesSlide.CommonSlideData = commonSlideData;

            slide.NotesSlide = notesSlide;

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

VB example

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

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

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

        Dim slide As Slide = presentation.Slides(0)

        Dim shapeTree As New GroupShape()
        shapeTree.ID = "1"
        shapeTree.Name = "NotesShapeTree"
        shapeTree.ShapeProperties.TransformGroup2D = New Independentsoft.Office.Drawing.TransformGroup2D()

        Dim run As New Independentsoft.Office.Drawing.TextRun("Remember to mention the Q3 sales numbers.")

        Dim paragraph As New Independentsoft.Office.Drawing.TextParagraph()
        paragraph.Content.Add(run)

        Dim textBody As New ShapeTextBody()
        textBody.Paragraphs.Add(paragraph)

        Dim notesBody As New Shape()
        notesBody.ID = "2"
        notesBody.Name = "Notes Placeholder"
        notesBody.Placeholder = New Placeholder(PlaceholderType.Body)
        notesBody.TextBody = textBody

        shapeTree.Elements.Add(notesBody)

        Dim commonSlideData As New CommonSlideData()
        commonSlideData.ShapeTree = shapeTree

        Dim notesSlide As New NotesSlide()
        notesSlide.CommonSlideData = commonSlideData

        slide.NotesSlide = notesSlide

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

    End Sub
End Module

IndependentsoftProfessional software libraries for developers

Presentation .NET > Tutorial > Add speaker notes

Need help? Ask our developers: