Créer un document de présentation en fournissant un nom de fichier

Cette rubrique montre comment utiliser les classes du Kit de développement logiciel (SDK) Open XML pour créer un document de présentation par programmation.

---

Créer une présentation

Un fichier de présentation, comme tous les fichiers définis par la norme Open XML, est constitué d’un conteneur de fichiers empaquetés. Ce fichier qui apparaît dans l’explorateur de fichiers de l’utilisateur porte normalement l’extension .pptx. Le fichier de package est représenté dans le Kit de développement logiciel (SDK) Open XML par la PresentationDocument classe . Le document de présentation contient, entre autres composants, un composant présentation. La partie de présentation, représentée dans le Kit de développement logiciel (SDK) Open XML par la PresentationPart classe , contient la définition PresentationML de base pour la présentation des diapositives. PresentationML est le langage de balisage utilisé pour créer des présentations. Chaque package ne peut contenir qu’une seule partie de présentation, et son élément racine doit être <presentation/>.

Les appels à l’API utilisés pour créer un nouveau package de document de présentation sont relativement simples. La première étape consiste à appeler la méthode statique Create de la PresentationDocument classe, comme indiqué ici dans la CreatePresentation procédure, qui est la première partie de l’exemple de code complet présenté plus loin dans l’article. Le CreatePresentation code appelle la substitution de la Create méthode qui prend comme arguments le chemin d’accès au nouveau document et le type de document de présentation à créer. Les types de documents de présentation disponibles dans cet argument sont définis par une PresentationDocumentType valeur énumérée.

Ensuite, le code appelle AddPresentationPart, qui crée et retourne un PresentationPart. Une fois la PresentationPart classe instance créée, un nouvel élément racine pour la présentation est ajouté en définissant la Presentation propriété comme étant égale à la instance de la Presentation classe retournée par un appel au constructeur de classePresentation.

Pour créer une présentation complète, utilisable et valide, le code doit également ajouter d’autres composants au package de présentation. Dans l’exemple de code, cela est pris en charge par un appel à une fonction utilitaire nommée CreatePresentationsParts. Cette fonction appelle d’autres fonctions utilitaires qui conjointement créent tous les composants nécessaires pour une présentation de base, notamment les composants diapositive, mise en page de diapositive, masque de diapositive et thème.

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

À l’aide du Kit de développement logiciel (SDK) Open XML, vous pouvez créer une structure et du contenu de présentation à l’aide de classes fortement typées qui correspondent aux éléments PresentationML. Vous trouverez ces classes dans l’espace de noms . Le tableau suivant répertorie les noms des classes qui correspondent aux éléments présentation, diapositive, mise en page de diapositive, masque de diapositive et thème. La classe qui correspond à l’élément de thème fait en fait partie de l’espace DocumentFormat.OpenXml.Drawing de noms . En effet, les thèmes sont communs à tous les langages de balisage Open XML.

Élément de PresentationML	Classe du Kit de développement logiciel (SDK) Open XML
<presentation/>	Presentation
<sld/>	Slide
<sldMaster/>	SlideMaster
<sldLayout/>	SlideLayout
<theme/>	Theme

Le code PresentationML suivant est le code XML du composant présentation (dans le fichier presentation.xml) pour une présentation simple contenant deux diapositives.

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

---

Exemple de code

Voici l’exemple complet de code C# et VB pour créer une présentation, en fonction d’un chemin d’accès de fichier.

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

---

Voir aussi

À propos du Kit de développement logiciel (SDK) Open XML pour Office

Structure d’un document PresentationML

Guide pratique pour insérer une nouvelle diapositive dans une présentation

Guide pratique pour supprimer une diapositive d’une présentation

Guide pratique pour récupérer le nombre de diapositives dans un document de présentation

Guide pratique pour appliquer un thème à une présentation

• Informations de référence sur la bibliothèque de classes du Kit de développement logiciel (SDK) Open XML