Criar um documento de apresentação fornecendo um nome de arquivo

Este tópico mostra como utilizar as classes no SDK Open XML para criar um documento de apresentação programaticamente.

---

Criar uma Apresentação

Um ficheiro de apresentação, como todos os ficheiros definidos pela norma Open XML, consiste num contentor de ficheiros de pacote. Este é o ficheiro que os utilizadores veem no respetivo explorador de ficheiros; Normalmente, tem uma extensão .pptx. O ficheiro de pacote é representado no SDK Open XML pela PresentationDocument classe . O documento de apresentação contém, entre outras partes, uma peça de apresentação. A parte da apresentação, representada no SDK Open XML pela PresentationPart classe, contém a definição de PresentationML básica para a apresentação de diapositivos. PresentationML é o idioma de marcação utilizado para criar apresentações. Cada pacote pode conter apenas uma parte da apresentação e o respetivo elemento raiz tem de ser <presentation/>.

As chamadas à API utilizadas para criar um novo pacote de documentos de apresentação são relativamente simples. O primeiro passo é chamar o método estático Create da PresentationDocument classe, conforme mostrado aqui no CreatePresentation procedimento, que é a primeira parte do exemplo de código completo apresentado mais à frente no artigo. O CreatePresentation código chama a substituição do Create método que utiliza como argumentos o caminho para o novo documento e o tipo de documento de apresentação a ser criado. Os tipos de documentos de apresentação disponíveis nesse argumento são definidos por um PresentationDocumentType valor enumerado.

Em seguida, o código chama AddPresentationPart, que cria e devolve um PresentationPart. Após a criação da PresentationPart instância de classe, é adicionado um novo elemento raiz para a apresentação ao definir a Presentation propriedade igual à instância da Presentation classe devolvida de uma chamada para o construtor de Presentation classes.

Para criar uma apresentação completa, utilizável e válida, o código também tem de adicionar várias outras partes ao pacote de apresentação. No código de exemplo, trata-se de uma chamada para uma função utilitária chamada CreatePresentationsParts. Em seguida, essa função chama uma série de outras funções utilitárias que, juntas, criam todas as partes de apresentação necessárias para uma apresentação básica, incluindo diapositivos, esquema de diapositivos, master de diapositivos e partes do tema.

C#

static void CreatePresentation(string filepath)
{
    // Create a presentation at a specified file path. The presentation document type is pptx, by default.
    using (PresentationDocument presentationDoc = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation))
    {
        PresentationPart presentationPart = presentationDoc.AddPresentationPart();
        presentationPart.Presentation = new Presentation();

        CreatePresentationParts(presentationPart);
    }
}

Visual Basic

Sub CreatePresentation(filepath As String)
    ' Create a presentation at a specified file path. The presentation document type is pptx, by default.
    Using presentationDoc As PresentationDocument = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation)
        Dim presentationPart As PresentationPart = presentationDoc.AddPresentationPart()
        presentationPart.Presentation = New Presentation()

        CreatePresentationParts(presentationPart)
    End Using
End Sub

Com o SDK Open XML, pode criar conteúdo e estrutura de apresentação com classes com tipos fortes que correspondem a elementos PresentationML. Pode encontrar estas classes no espaço de nomes. A tabela seguinte lista os nomes das classes que correspondem à apresentação, diapositivo, master de diapositivos, esquema de diapositivo e elementos do tema. A classe que corresponde ao elemento de tema faz, na verdade, parte do DocumentFormat.OpenXml.Drawing espaço de nomes. Os temas são comuns a todas as linguagens de markup Open XML.

Elemento PresentationML	Abrir Classe SDK XML
<presentation/>	Presentation
<sld/>	Slide
<sldMaster/>	SlideMaster
<sldLayout/>	SlideLayout
<theme/>	Theme

O código PresentationML que se segue é o XML na parte da apresentação (no ficheiro presentation.xml) para uma apresentação simples que contém dois diapositivos.

    <p:presentation xmlns:p="…" … >
      <p:sldMasterIdLst>
        <p:sldMasterId xmlns:rel="https://…/relationships" rel:id="rId1"/>
      </p:sldMasterIdLst>
      <p:notesMasterIdLst>
        <p:notesMasterId xmlns:rel="https://…/relationships" rel:id="rId4"/>
      </p:notesMasterIdLst>
      <p:handoutMasterIdLst>
        <p:handoutMasterId xmlns:rel="https://…/relationships" rel:id="rId5"/>
      </p:handoutMasterIdLst>
      <p:sldIdLst>
        <p:sldId id="267" xmlns:rel="https://…/relationships" rel:id="rId2"/>
        <p:sldId id="256" xmlns:rel="https://…/relationships" rel:id="rId3"/>
      </p:sldIdLst>
      <p:sldSz cx="9144000" cy="6858000"/>
      <p:notesSz cx="6858000" cy="9144000"/>
    </p:presentation>

---

Código de exemplo

Segue-se o código C# e VB de exemplo completo para criar uma apresentação, dado um caminho de ficheiro.

C#

static void CreatePresentation(string filepath)
{
    // Create a presentation at a specified file path. The presentation document type is pptx, by default.
    using (PresentationDocument presentationDoc = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation))
    {
        PresentationPart presentationPart = presentationDoc.AddPresentationPart();
        presentationPart.Presentation = new Presentation();

        CreatePresentationParts(presentationPart);
    }
}

static void CreatePresentationParts(PresentationPart presentationPart)
{
    SlideMasterIdList slideMasterIdList1 = new SlideMasterIdList(new SlideMasterId() { Id = (UInt32Value)2147483648U, RelationshipId = "rId1" });
    SlideIdList slideIdList1 = new SlideIdList(new SlideId() { Id = (UInt32Value)256U, RelationshipId = "rId2" });
    SlideSize slideSize1 = new SlideSize() { Cx = 9144000, Cy = 6858000, Type = SlideSizeValues.Screen4x3 };
    NotesSize notesSize1 = new NotesSize() { Cx = 6858000, Cy = 9144000 };
    DefaultTextStyle defaultTextStyle1 = new DefaultTextStyle();

    presentationPart.Presentation.Append(slideMasterIdList1, slideIdList1, slideSize1, notesSize1, defaultTextStyle1);

    SlidePart slidePart1;
    SlideLayoutPart slideLayoutPart1;
    SlideMasterPart slideMasterPart1;
    ThemePart themePart1;


    slidePart1 = CreateSlidePart(presentationPart);
    slideLayoutPart1 = CreateSlideLayoutPart(slidePart1);
    slideMasterPart1 = CreateSlideMasterPart(slideLayoutPart1);
    themePart1 = CreateTheme(slideMasterPart1);

    slideMasterPart1.AddPart(slideLayoutPart1, "rId1");
    presentationPart.AddPart(slideMasterPart1, "rId1");
    presentationPart.AddPart(themePart1, "rId5");
}
static SlidePart CreateSlidePart(PresentationPart presentationPart)
{
    SlidePart slidePart1 = presentationPart.AddNewPart<SlidePart>("rId2");
    slidePart1.Slide = new Slide(
            new CommonSlideData(
                new ShapeTree(
                    new P.NonVisualGroupShapeProperties(
                        new P.NonVisualDrawingProperties() { Id = (UInt32Value)1U, Name = "" },
                        new P.NonVisualGroupShapeDrawingProperties(),
                        new ApplicationNonVisualDrawingProperties()),
                    new GroupShapeProperties(new TransformGroup()),
                    new P.Shape(
                        new P.NonVisualShapeProperties(
                            new P.NonVisualDrawingProperties() { Id = (UInt32Value)2U, Name = "Title 1" },
                            new P.NonVisualShapeDrawingProperties(new ShapeLocks() { NoGrouping = true }),
                            new ApplicationNonVisualDrawingProperties(new PlaceholderShape())),
                        new P.ShapeProperties(),
                        new P.TextBody(
                            new BodyProperties(),
                            new ListStyle(),
                            new Paragraph(new EndParagraphRunProperties() { Language = "en-US" }))))),
            new ColorMapOverride(new MasterColorMapping()));
    return slidePart1;
}

static SlideLayoutPart CreateSlideLayoutPart(SlidePart slidePart1)
{
    SlideLayoutPart slideLayoutPart1 = slidePart1.AddNewPart<SlideLayoutPart>("rId1");
    SlideLayout slideLayout = new SlideLayout(
    new CommonSlideData(new ShapeTree(
      new P.NonVisualGroupShapeProperties(
      new P.NonVisualDrawingProperties() { Id = (UInt32Value)1U, Name = "" },
      new P.NonVisualGroupShapeDrawingProperties(),
      new ApplicationNonVisualDrawingProperties()),
      new GroupShapeProperties(new TransformGroup()),
      new P.Shape(
      new P.NonVisualShapeProperties(
        new P.NonVisualDrawingProperties() { Id = (UInt32Value)2U, Name = "" },
        new P.NonVisualShapeDrawingProperties(new ShapeLocks() { NoGrouping = true }),
        new ApplicationNonVisualDrawingProperties(new PlaceholderShape())),
      new P.ShapeProperties(),
      new P.TextBody(
        new BodyProperties(),
        new ListStyle(),
        new Paragraph(new EndParagraphRunProperties()))))),
    new ColorMapOverride(new MasterColorMapping()));
    slideLayoutPart1.SlideLayout = slideLayout;
    return slideLayoutPart1;
}

static SlideMasterPart CreateSlideMasterPart(SlideLayoutPart slideLayoutPart1)
{
    SlideMasterPart slideMasterPart1 = slideLayoutPart1.AddNewPart<SlideMasterPart>("rId1");
    SlideMaster slideMaster = new SlideMaster(
    new CommonSlideData(new ShapeTree(
      new P.NonVisualGroupShapeProperties(
      new P.NonVisualDrawingProperties() { Id = (UInt32Value)1U, Name = "" },
      new P.NonVisualGroupShapeDrawingProperties(),
      new ApplicationNonVisualDrawingProperties()),
      new GroupShapeProperties(new TransformGroup()),
      new P.Shape(
      new P.NonVisualShapeProperties(
        new P.NonVisualDrawingProperties() { Id = (UInt32Value)2U, Name = "Title Placeholder 1" },
        new P.NonVisualShapeDrawingProperties(new ShapeLocks() { NoGrouping = true }),
        new ApplicationNonVisualDrawingProperties(new PlaceholderShape() { Type = PlaceholderValues.Title })),
      new P.ShapeProperties(),
      new P.TextBody(
        new BodyProperties(),
        new ListStyle(),
        new Paragraph())))),
    new P.ColorMap() { Background1 = D.ColorSchemeIndexValues.Light1, Text1 = D.ColorSchemeIndexValues.Dark1, Background2 = D.ColorSchemeIndexValues.Light2, Text2 = D.ColorSchemeIndexValues.Dark2, Accent1 = D.ColorSchemeIndexValues.Accent1, Accent2 = D.ColorSchemeIndexValues.Accent2, Accent3 = D.ColorSchemeIndexValues.Accent3, Accent4 = D.ColorSchemeIndexValues.Accent4, Accent5 = D.ColorSchemeIndexValues.Accent5, Accent6 = D.ColorSchemeIndexValues.Accent6, Hyperlink = D.ColorSchemeIndexValues.Hyperlink, FollowedHyperlink = D.ColorSchemeIndexValues.FollowedHyperlink },
    new SlideLayoutIdList(new SlideLayoutId() { Id = (UInt32Value)2147483649U, RelationshipId = "rId1" }),
    new TextStyles(new TitleStyle(), new BodyStyle(), new OtherStyle()));
    slideMasterPart1.SlideMaster = slideMaster;

    return slideMasterPart1;
}

static ThemePart CreateTheme(SlideMasterPart slideMasterPart1)
{
    ThemePart themePart1 = slideMasterPart1.AddNewPart<ThemePart>("rId5");
    D.Theme theme1 = new D.Theme() { Name = "Office Theme" };

    D.ThemeElements themeElements1 = new D.ThemeElements(
    new D.ColorScheme(
      new D.Dark1Color(new D.SystemColor() { Val = D.SystemColorValues.WindowText, LastColor = "000000" }),
      new D.Light1Color(new D.SystemColor() { Val = D.SystemColorValues.Window, LastColor = "FFFFFF" }),
      new D.Dark2Color(new D.RgbColorModelHex() { Val = "1F497D" }),
      new D.Light2Color(new D.RgbColorModelHex() { Val = "EEECE1" }),
      new D.Accent1Color(new D.RgbColorModelHex() { Val = "4F81BD" }),
      new D.Accent2Color(new D.RgbColorModelHex() { Val = "C0504D" }),
      new D.Accent3Color(new D.RgbColorModelHex() { Val = "9BBB59" }),
      new D.Accent4Color(new D.RgbColorModelHex() { Val = "8064A2" }),
      new D.Accent5Color(new D.RgbColorModelHex() { Val = "4BACC6" }),
      new D.Accent6Color(new D.RgbColorModelHex() { Val = "F79646" }),
      new D.Hyperlink(new D.RgbColorModelHex() { Val = "0000FF" }),
      new D.FollowedHyperlinkColor(new D.RgbColorModelHex() { Val = "800080" }))
    { Name = "Office" },
      new D.FontScheme(
      new D.MajorFont(
      new D.LatinFont() { Typeface = "Calibri" },
      new D.EastAsianFont() { Typeface = "" },
      new D.ComplexScriptFont() { Typeface = "" }),
      new D.MinorFont(
      new D.LatinFont() { Typeface = "Calibri" },
      new D.EastAsianFont() { Typeface = "" },
      new D.ComplexScriptFont() { Typeface = "" }))
      { Name = "Office" },
      new D.FormatScheme(
      new D.FillStyleList(
      new D.SolidFill(new D.SchemeColor() { Val = D.SchemeColorValues.PhColor }),
      new D.GradientFill(
        new D.GradientStopList(
        new D.GradientStop(new D.SchemeColor(new D.Tint() { Val = 50000 },
          new D.SaturationModulation() { Val = 300000 })
        { Val = D.SchemeColorValues.PhColor })
        { Position = 0 },
        new D.GradientStop(new D.SchemeColor(new D.Tint() { Val = 37000 },
         new D.SaturationModulation() { Val = 300000 })
        { Val = D.SchemeColorValues.PhColor })
        { Position = 35000 },
        new D.GradientStop(new D.SchemeColor(new D.Tint() { Val = 15000 },
         new D.SaturationModulation() { Val = 350000 })
        { Val = D.SchemeColorValues.PhColor })
        { Position = 100000 }
        ),
        new D.LinearGradientFill() { Angle = 16200000, Scaled = true }),
      new D.NoFill(),
      new D.PatternFill(),
      new D.GroupFill()),
      new D.LineStyleList(
      new D.Outline(
        new D.SolidFill(
        new D.SchemeColor(
          new D.Shade() { Val = 95000 },
          new D.SaturationModulation() { Val = 105000 })
        { Val = D.SchemeColorValues.PhColor }),
        new D.PresetDash() { Val = D.PresetLineDashValues.Solid })
      {
          Width = 9525,
          CapType = D.LineCapValues.Flat,
          CompoundLineType = D.CompoundLineValues.Single,
          Alignment = D.PenAlignmentValues.Center
      },
      new D.Outline(
        new D.SolidFill(
        new D.SchemeColor(
          new D.Shade() { Val = 95000 },
          new D.SaturationModulation() { Val = 105000 })
        { Val = D.SchemeColorValues.PhColor }),
        new D.PresetDash() { Val = D.PresetLineDashValues.Solid })
      {
          Width = 9525,
          CapType = D.LineCapValues.Flat,
          CompoundLineType = D.CompoundLineValues.Single,
          Alignment = D.PenAlignmentValues.Center
      },
      new D.Outline(
        new D.SolidFill(
        new D.SchemeColor(
          new D.Shade() { Val = 95000 },
          new D.SaturationModulation() { Val = 105000 })
        { Val = D.SchemeColorValues.PhColor }),
        new D.PresetDash() { Val = D.PresetLineDashValues.Solid })
      {
          Width = 9525,
          CapType = D.LineCapValues.Flat,
          CompoundLineType = D.CompoundLineValues.Single,
          Alignment = D.PenAlignmentValues.Center
      }),
      new D.EffectStyleList(
      new D.EffectStyle(
        new D.EffectList(
        new D.OuterShadow(
          new D.RgbColorModelHex(
          new D.Alpha() { Val = 38000 })
          { Val = "000000" })
        { BlurRadius = 40000L, Distance = 20000L, Direction = 5400000, RotateWithShape = false })),
      new D.EffectStyle(
        new D.EffectList(
        new D.OuterShadow(
          new D.RgbColorModelHex(
          new D.Alpha() { Val = 38000 })
          { Val = "000000" })
        { BlurRadius = 40000L, Distance = 20000L, Direction = 5400000, RotateWithShape = false })),
      new D.EffectStyle(
        new D.EffectList(
        new D.OuterShadow(
          new D.RgbColorModelHex(
          new D.Alpha() { Val = 38000 })
          { Val = "000000" })
        { BlurRadius = 40000L, Distance = 20000L, Direction = 5400000, RotateWithShape = false }))),
      new D.BackgroundFillStyleList(
      new D.SolidFill(new D.SchemeColor() { Val = D.SchemeColorValues.PhColor }),
      new D.GradientFill(
        new D.GradientStopList(
        new D.GradientStop(
          new D.SchemeColor(new D.Tint() { Val = 50000 },
            new D.SaturationModulation() { Val = 300000 })
          { Val = D.SchemeColorValues.PhColor })
        { Position = 0 },
        new D.GradientStop(
          new D.SchemeColor(new D.Tint() { Val = 50000 },
            new D.SaturationModulation() { Val = 300000 })
          { Val = D.SchemeColorValues.PhColor })
        { Position = 0 },
        new D.GradientStop(
          new D.SchemeColor(new D.Tint() { Val = 50000 },
            new D.SaturationModulation() { Val = 300000 })
          { Val = D.SchemeColorValues.PhColor })
        { Position = 0 }),
        new D.LinearGradientFill() { Angle = 16200000, Scaled = true }),
      new D.GradientFill(
        new D.GradientStopList(
        new D.GradientStop(
          new D.SchemeColor(new D.Tint() { Val = 50000 },
            new D.SaturationModulation() { Val = 300000 })
          { Val = D.SchemeColorValues.PhColor })
        { Position = 0 },
        new D.GradientStop(
          new D.SchemeColor(new D.Tint() { Val = 50000 },
            new D.SaturationModulation() { Val = 300000 })
          { Val = D.SchemeColorValues.PhColor })
        { Position = 0 }),
        new D.LinearGradientFill() { Angle = 16200000, Scaled = true })))
      { Name = "Office" });

    theme1.Append(themeElements1);
    theme1.Append(new D.ObjectDefaults());
    theme1.Append(new D.ExtraColorSchemeList());

    themePart1.Theme = theme1;
    return themePart1;

}

Visual Basic

Sub CreatePresentation(filepath As String)
    ' Create a presentation at a specified file path. The presentation document type is pptx, by default.
    Using presentationDoc As PresentationDocument = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation)
        Dim presentationPart As PresentationPart = presentationDoc.AddPresentationPart()
        presentationPart.Presentation = New Presentation()

        CreatePresentationParts(presentationPart)
    End Using
End Sub

Sub CreatePresentationParts(presentationPart As PresentationPart)
    Dim slideMasterIdList1 As New SlideMasterIdList(New SlideMasterId() With {.Id = CType(2147483648UI, UInt32Value), .RelationshipId = "rId1"})
    Dim slideIdList1 As New SlideIdList(New SlideId() With {.Id = CType(256UI, UInt32Value), .RelationshipId = "rId2"})
    Dim slideSize1 As New SlideSize() With {.Cx = 9144000, .Cy = 6858000, .Type = SlideSizeValues.Screen4x3}
    Dim notesSize1 As New NotesSize() With {.Cx = 6858000, .Cy = 9144000}
    Dim defaultTextStyle1 As New DefaultTextStyle()

    presentationPart.Presentation.Append(slideMasterIdList1, slideIdList1, slideSize1, notesSize1, defaultTextStyle1)

    Dim slidePart1 As SlidePart
    Dim slideLayoutPart1 As SlideLayoutPart
    Dim slideMasterPart1 As SlideMasterPart
    Dim themePart1 As ThemePart

    slidePart1 = CreateSlidePart(presentationPart)
    slideLayoutPart1 = CreateSlideLayoutPart(slidePart1)
    slideMasterPart1 = CreateSlideMasterPart(slideLayoutPart1)
    themePart1 = CreateTheme(slideMasterPart1)

    slideMasterPart1.AddPart(slideLayoutPart1, "rId1")
    presentationPart.AddPart(slideMasterPart1, "rId1")
    presentationPart.AddPart(themePart1, "rId5")
End Sub
Function CreateSlidePart(presentationPart As PresentationPart) As SlidePart
    Dim slidePart1 As SlidePart = presentationPart.AddNewPart(Of SlidePart)("rId2")
    Dim shape As New P.Shape(
                    New P.NonVisualShapeProperties(
                        New P.NonVisualDrawingProperties() With {.Id = CType(2UI, UInt32Value), .Name = "Title 1"},
                        New P.NonVisualShapeDrawingProperties(New ShapeLocks() With {.NoGrouping = True}),
                        New ApplicationNonVisualDrawingProperties(New PlaceholderShape())),
                    New P.ShapeProperties(),
                    New P.TextBody(
                        New BodyProperties(),
                        New ListStyle(),
                        New Paragraph(New EndParagraphRunProperties() With {.Language = "en-US"})))

    slidePart1.Slide = New Slide(
        New CommonSlideData(
            New ShapeTree(
                New P.NonVisualGroupShapeProperties(
                    New P.NonVisualDrawingProperties() With {.Id = CType(1UI, UInt32Value), .Name = ""},
                    New P.NonVisualGroupShapeDrawingProperties(),
                    New ApplicationNonVisualDrawingProperties()),
                New GroupShapeProperties(New TransformGroup(shape))),
        New ColorMapOverride(New MasterColorMapping())))
    Return slidePart1
End Function

Function CreateSlideLayoutPart(slidePart1 As SlidePart) As SlideLayoutPart
    Dim slideLayoutPart1 As SlideLayoutPart = slidePart1.AddNewPart(Of SlideLayoutPart)("rId1")
    Dim slideLayout As New SlideLayout(
        New CommonSlideData(New ShapeTree(
            New P.NonVisualGroupShapeProperties(
                New P.NonVisualDrawingProperties() With {.Id = CType(1UI, UInt32Value), .Name = ""},
                New P.NonVisualGroupShapeDrawingProperties(),
                New ApplicationNonVisualDrawingProperties()),
            New GroupShapeProperties(New TransformGroup()),
            New P.Shape(
                New P.NonVisualShapeProperties(
                    New P.NonVisualDrawingProperties() With {.Id = CType(2UI, UInt32Value), .Name = ""},
                    New P.NonVisualShapeDrawingProperties(New ShapeLocks() With {.NoGrouping = True}),
                    New ApplicationNonVisualDrawingProperties(New PlaceholderShape())),
                New P.ShapeProperties(),
                New P.TextBody(
                    New BodyProperties(),
                    New ListStyle(),
                    New Paragraph(New EndParagraphRunProperties()))))),
        New ColorMapOverride(New MasterColorMapping()))
    slideLayoutPart1.SlideLayout = slideLayout
    Return slideLayoutPart1
End Function

Function CreateSlideMasterPart(slideLayoutPart1 As SlideLayoutPart) As SlideMasterPart
    Dim slideMasterPart1 As SlideMasterPart = slideLayoutPart1.AddNewPart(Of SlideMasterPart)("rId1")
    Dim slideMaster As New SlideMaster(
        New CommonSlideData(New ShapeTree(
            New P.NonVisualGroupShapeProperties(
                New P.NonVisualDrawingProperties() With {.Id = CType(1UI, UInt32Value), .Name = ""},
                New P.NonVisualGroupShapeDrawingProperties(),
                New ApplicationNonVisualDrawingProperties()),
            New GroupShapeProperties(New TransformGroup()),
            New P.Shape(
                New P.NonVisualShapeProperties(
                    New P.NonVisualDrawingProperties() With {.Id = CType(2UI, UInt32Value), .Name = "Title Placeholder 1"},
                    New P.NonVisualShapeDrawingProperties(New ShapeLocks() With {.NoGrouping = True}),
                    New ApplicationNonVisualDrawingProperties(New PlaceholderShape() With {.Type = PlaceholderValues.Title})),
                New P.ShapeProperties(),
                New P.TextBody(
                    New BodyProperties(),
                    New ListStyle(),
                    New Paragraph())))),
        New P.ColorMap() With {.Background1 = D.ColorSchemeIndexValues.Light1, .Text1 = D.ColorSchemeIndexValues.Dark1, .Background2 = D.ColorSchemeIndexValues.Light2, .Text2 = D.ColorSchemeIndexValues.Dark2, .Accent1 = D.ColorSchemeIndexValues.Accent1, .Accent2 = D.ColorSchemeIndexValues.Accent2, .Accent3 = D.ColorSchemeIndexValues.Accent3, .Accent4 = D.ColorSchemeIndexValues.Accent4, .Accent5 = D.ColorSchemeIndexValues.Accent5, .Accent6 = D.ColorSchemeIndexValues.Accent6, .Hyperlink = D.ColorSchemeIndexValues.Hyperlink, .FollowedHyperlink = D.ColorSchemeIndexValues.FollowedHyperlink},
        New SlideLayoutIdList(New SlideLayoutId() With {.Id = CType(2147483649UI, UInt32Value), .RelationshipId = "rId1"}),
        New TextStyles(New TitleStyle(), New BodyStyle(), New OtherStyle()))
    slideMasterPart1.SlideMaster = slideMaster

    Return slideMasterPart1
End Function

Function CreateTheme(slideMasterPart1 As SlideMasterPart) As ThemePart
    Dim themePart1 As ThemePart = slideMasterPart1.AddNewPart(Of ThemePart)("rId5")
    Dim theme1 As New D.Theme() With {.Name = "Office Theme"}

    Dim themeElements1 As New D.ThemeElements(
        New D.ColorScheme(
            New D.Dark1Color(New D.SystemColor() With {.Val = D.SystemColorValues.WindowText, .LastColor = "000000"}),
            New D.Light1Color(New D.SystemColor() With {.Val = D.SystemColorValues.Window, .LastColor = "FFFFFF"}),
            New D.Dark2Color(New D.RgbColorModelHex() With {.Val = "1F497D"}),
            New D.Light2Color(New D.RgbColorModelHex() With {.Val = "EEECE1"}),
            New D.Accent1Color(New D.RgbColorModelHex() With {.Val = "4F81BD"}),
            New D.Accent2Color(New D.RgbColorModelHex() With {.Val = "C0504D"}),
            New D.Accent3Color(New D.RgbColorModelHex() With {.Val = "9BBB59"}),
            New D.Accent4Color(New D.RgbColorModelHex() With {.Val = "8064A2"}),
            New D.Accent5Color(New D.RgbColorModelHex() With {.Val = "4BACC6"}),
            New D.Accent6Color(New D.RgbColorModelHex() With {.Val = "F79646"}),
            New D.Hyperlink(New D.RgbColorModelHex() With {.Val = "0000FF"}),
            New D.FollowedHyperlinkColor(New D.RgbColorModelHex() With {.Val = "800080"})) With {.Name = "Office"},
        New D.FontScheme(
            New D.MajorFont(
                New D.LatinFont() With {.Typeface = "Calibri"},
                New D.EastAsianFont() With {.Typeface = ""},
                New D.ComplexScriptFont() With {.Typeface = ""}),
            New D.MinorFont(
                New D.LatinFont() With {.Typeface = "Calibri"},
                New D.EastAsianFont() With {.Typeface = ""},
                New D.ComplexScriptFont() With {.Typeface = ""})) With {.Name = "Office"},
        New D.FormatScheme(
            New D.FillStyleList(
                New D.SolidFill(New D.SchemeColor() With {.Val = D.SchemeColorValues.PhColor}),
                New D.GradientFill(
                    New D.GradientStopList(
                        New D.GradientStop(New D.SchemeColor(New D.Tint() With {.Val = 50000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 0},
                        New D.GradientStop(New D.SchemeColor(New D.Tint() With {.Val = 37000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 35000},
                        New D.GradientStop(New D.SchemeColor(New D.Tint() With {.Val = 15000}, New D.SaturationModulation() With {.Val = 350000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 100000}),
                    New D.LinearGradientFill() With {.Angle = 16200000, .Scaled = True}),
                New D.NoFill(),
                New D.PatternFill(),
                New D.GroupFill()),
            New D.LineStyleList(
                New D.Outline(
                    New D.SolidFill(
                        New D.SchemeColor(
                            New D.Shade() With {.Val = 95000},
                            New D.SaturationModulation() With {.Val = 105000}) With {.Val = D.SchemeColorValues.PhColor}),
                    New D.PresetDash() With {.Val = D.PresetLineDashValues.Solid}) With {
                        .Width = 9525,
                        .CapType = D.LineCapValues.Flat,
                        .CompoundLineType = D.CompoundLineValues.Single,
                        .Alignment = D.PenAlignmentValues.Center},
                New D.Outline(
                    New D.SolidFill(
                        New D.SchemeColor(
                            New D.Shade() With {.Val = 95000},
                            New D.SaturationModulation() With {.Val = 105000}) With {.Val = D.SchemeColorValues.PhColor}),
                    New D.PresetDash() With {.Val = D.PresetLineDashValues.Solid}) With {
                        .Width = 9525,
                        .CapType = D.LineCapValues.Flat,
                        .CompoundLineType = D.CompoundLineValues.Single,
                        .Alignment = D.PenAlignmentValues.Center},
                New D.Outline(
                    New D.SolidFill(
                        New D.SchemeColor(
                            New D.Shade() With {.Val = 95000},
                            New D.SaturationModulation() With {.Val = 105000}) With {.Val = D.SchemeColorValues.PhColor}),
                    New D.PresetDash() With {.Val = D.PresetLineDashValues.Solid}) With {
                        .Width = 9525,
                        .CapType = D.LineCapValues.Flat,
                        .CompoundLineType = D.CompoundLineValues.Single,
                        .Alignment = D.PenAlignmentValues.Center}),
            New D.EffectStyleList(
                New D.EffectStyle(
                    New D.EffectList(
                        New D.OuterShadow(
                            New D.RgbColorModelHex(
                                New D.Alpha() With {.Val = 38000}) With {.Val = "000000"}) With {.BlurRadius = 40000L, .Distance = 20000L, .Direction = 5400000, .RotateWithShape = False})),
                New D.EffectStyle(
                    New D.EffectList(
                        New D.OuterShadow(
                            New D.RgbColorModelHex(
                                New D.Alpha() With {.Val = 38000}) With {.Val = "000000"}) With {.BlurRadius = 40000L, .Distance = 20000L, .Direction = 5400000, .RotateWithShape = False})),
                New D.EffectStyle(
                    New D.EffectList(
                        New D.OuterShadow(
                            New D.RgbColorModelHex(
                                New D.Alpha() With {.Val = 38000}) With {.Val = "000000"}) With {.BlurRadius = 40000L, .Distance = 20000L, .Direction = 5400000, .RotateWithShape = False}))),
            New D.BackgroundFillStyleList(
                New D.SolidFill(New D.SchemeColor() With {.Val = D.SchemeColorValues.PhColor}),
                New D.GradientFill(
                    New D.GradientStopList(
                        New D.GradientStop(
                            New D.SchemeColor(New D.Tint() With {.Val = 50000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 0},
                        New D.GradientStop(
                            New D.SchemeColor(New D.Tint() With {.Val = 50000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 0},
                        New D.GradientStop(
                            New D.SchemeColor(New D.Tint() With {.Val = 50000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 0}),
                    New D.LinearGradientFill() With {.Angle = 16200000, .Scaled = True}),
                New D.GradientFill(
                    New D.GradientStopList(
                        New D.GradientStop(
                            New D.SchemeColor(New D.Tint() With {.Val = 50000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 0},
                        New D.GradientStop(
                            New D.SchemeColor(New D.Tint() With {.Val = 50000}, New D.SaturationModulation() With {.Val = 300000}) With {.Val = D.SchemeColorValues.PhColor}) With {.Position = 0}),
                    New D.LinearGradientFill() With {.Angle = 16200000, .Scaled = True}))) With {.Name = "Office"})

    theme1.Append(themeElements1)
    theme1.Append(New D.ObjectDefaults())
    theme1.Append(New D.ExtraColorSchemeList())

    themePart1.Theme = theme1
    Return themePart1
End Function

---

Confira também

Acerca do SDK Open XML para o Office

Estrutura de um Documento PresentationML

Como: Inserir um novo diapositivo numa apresentação

Procedimentos: Eliminar um diapositivo de uma apresentação

Como: Obter o número de diapositivos num documento de apresentação

Como: Aplicar um tema a uma apresentação

• Open XML SDK class library reference (Referência da biblioteca de classes SDK Open XML)