Crear un documento de presentación proporcionando un nombre de archivo

En este tema se muestra cómo usar las clases del SDK de Open XML para crear un documento de presentación mediante programación.

---

Creación de una presentación

Un archivo de presentación, al igual que todos los archivos definidos por el estándar Open XML, está formado por un contenedor de archivos de paquete. Se trata del archivo que los usuarios ven en el Explorador de archivos, normalmente con una extensión .pptx. La clase representa el archivo de paquete en el SDK PresentationDocument de Open XML. El documento de presentación contiene, entre otras, una parte de presentación. La parte de presentación, representada en el SDK de Open XML por la PresentationPart clase , contiene la definición básica de PresentationML para la presentación de diapositivas. PresentationML es el lenguaje de marcado que se usa para crear presentaciones. Cada paquete puede contener solo una parte de presentación y su elemento raíz debe ser <presentation/>.

Las llamadas de la API que se usan para crear un nuevo paquete de documentos de presentación son relativamente sencillas. El primer paso consiste en llamar al método estático Create de la PresentationDocument clase , como se muestra aquí en el CreatePresentation procedimiento, que es la primera parte del ejemplo de código completo que se presenta más adelante en el artículo. El CreatePresentation código llama a la invalidación del Create método que toma como argumentos la ruta de acceso al nuevo documento y el tipo de documento de presentación que se va a crear. Los tipos de documentos de presentación disponibles en ese argumento se definen mediante un PresentationDocumentType valor enumerado.

A continuación, el código llama a AddPresentationPart, que crea y devuelve .PresentationPart Una vez creada la PresentationPart instancia de clase, se agrega un nuevo elemento raíz para la presentación estableciendo la Presentation propiedad igual a la instancia de la Presentation clase devuelta desde una llamada al constructor de clase Presentation .

Para crear una presentación completa, que se pueda usar y sea válida, el código también debe agregar algunas otras partes al paquete de presentación. En el código de ejemplo, se encarga de esto una llamada a una función de utilidad denominada CreatePresentationsParts. A continuación, esa función llama a otras funciones de utilidad que, juntas, crean todas las partes de presentación necesarias para una presentación básica, incluidas las partes de diapositivas, diseño de la diapositiva, patrón de diapositivas y 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

Con el SDK de Open XML, puede crear contenido y estructura de presentación mediante clases fuertemente tipadas que corresponden a elementos PresentationML. Puede encontrar estas clases en el espacio de nombres. En la tabla siguiente se enumeran los nombres de las clases que corresponden a los elementos de presentación, diapositivas, patrón de diapositivas, diseño de la diapositiva y tema. La clase que corresponde al elemento theme forma parte realmente del DocumentFormat.OpenXml.Drawing espacio de nombres. Los temas son comunes a todos los lenguajes de marcado Open XML.

Elemento PresentationML	Open XML SDK (clase)
<presentation/>	Presentation
<sld/>	Slide
<sldMaster/>	SlideMaster
<sldLayout/>	SlideLayout
<theme/>	Theme

El código de PresentationML que se proporciona a continuación es el XML de la parte de presentación (en el archivo presentation.xml) para una presentación sencilla, que consta de dos diapositivas.

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

A continuación se muestra el código completo de muestra de C# y VB para crear una presentación, a partir de una ruta de acceso de archivo.

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

---

Recursos adicionales

Acerca del SDK de Open XML para Office

Estructura de un documento PresentationML

Procedimiento para insertar una nueva diapositiva en una presentación

Procedimiento para eliminar una diapositiva de una presentación

Procedimiento para recuperar el número de diapositivas de un documento de presentación

Procedimiento para aplicar un tema a una presentación

• Referencia de la biblioteca de clases del SDK de Open XML