Anleitung: Erstellen eines Präsentationsdokuments durch Bereitstellen eines Dateinamens
Letzte Änderung: Mittwoch, 29. Juni 2011
Gilt für: Excel 2010 | Office 2010 | PowerPoint 2010 | Word 2010
In diesem Thema wird erklärt, wie Sie mithilfe der Klassen im Open XML SDK 2.0 für Microsoft Office programmgesteuert ein Präsentationsdokument erstellen.
Die folgenden Assemblydirektiven sind zum Kompilieren des C#-Codes in diesem Thema erforderlich.
using DocumentFormat.OpenXml;
using DocumentFormat.OpenXml.Drawing;
using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Presentation;
using P = DocumentFormat.OpenXml.Presentation;
using D = DocumentFormat.OpenXml.Drawing;
Die folgenden Assemblydirektiven sind zum Kompilieren des Visual Basic-Codes in diesem Thema erforderlich.
Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXML.Drawing
Imports DocumentFormat.OpenXml.Presentation
Imports P = DocumentFormat.OpenXml.Presentation
Imports D = DocumentFormat.OpenXml.Drawing
Erstellen einer Präsentation
Eine Präsentationsdatei besteht wie alle im Open XML-Standard definierten Dateien aus einem Paketdateicontainer. Dies ist die Datei, die Benutzer im Datei-Explorer sehen. Sie hat in der Regel die Erweiterung PPTX. Die Paketdatei wird im Open XML SDK 2.0 durch die PresentationDocument-Klasse dargestellt. Das Präsentationsdokument enthält neben anderen Teilen einen Präsentationsteil. Der Präsentationsteil, der im Open XML SDK 2.0 durch die PresentationPart-Klasse dargestellt wird, enthält die grundlegende PresentationML-Definition der Folienpräsentation. PresentationML ist die Markupsprache zum Erstellen von Präsentationen. Jedes Paket kann nur einen Präsentationsteil enthalten, und sein Stammelement muss <presentation> sein.
Die API-Aufrufe zum Erstellen eines neuen Präsentationsdokumentpakets sind relativ einfach. Im ersten Schritt wird die statische Create(String, PresentationDocumentType)-Methode der PresentationDocument-Klasse aufgerufen, wie hier in der CreatePresentation-Prozedur gezeigt wird. Diese stellt den ersten Teil des vollständigen Codebeispiels weiter unten in diesem Artikel dar. Im CreatePresentation-Code wird die Überschreibung der Create-Methode aufgerufen, die als Argumente den Pfad zum neuen Dokument und den Typ des zu erstellenden Präsentationsdokuments akzeptiert. Die in dem Argument verfügbaren Präsentationsdokumenttypen werden durch einen PresentationDocumentType-Enumerationswert definiert.
Anschließend wird vom Code AddPresentationPart() aufgerufen, wodurch ein PresentationPart erstellt und zurückgegeben wird. Nach dem Erstellen der PresentationPart-Klasseninstanz wird ein neues Stammelement für die Präsentation hinzugefügt, indem die Presentation-Eigenschaft auf die Instanz der Presentation-Klasse festgelegt wird, die von einem Aufruf des Presentation-Klassenkonstruktors zurückgegeben wird.
Zum Erstellen einer vollständigen, verwendbaren und gültigen Präsentation müssen dem Präsentationspaket vom Code noch einige andere Teile hinzugefügt werden. Im Beispielcode erfolgt dies durch einen Aufruf einer Hilfsfunktion namens CreatePresentationsParts. Diese Funktion ruft eine Reihe anderer Hilfsfunktionen auf, von denen insgesamt alle erforderlichen Teile einer grundlegenden Präsentation erstellt werden, wie Folien-, Folienlayout-, Folienmaster- und Designteile.
public static void CreatePresentation(string filepath)
{
// Create a presentation at a specified file path. The presentation document type is pptx, by default.
PresentationDocument presentationDoc = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation);
PresentationPart presentationPart = presentationDoc.AddPresentationPart();
presentationPart.Presentation = new Presentation();
CreatePresentationParts(presentationPart);
// Close the presentation handle
presentationDoc.Close();
}
Mithilfe des Open XML SDK 2.0 können Sie eine Präsentationsstruktur und Inhalte erstellen, indem Sie stark typisierte Klassen verwenden, die PresentationML-Elementen entsprechen. Diese Klassen sind im DocumentFormat.OpenXml.Presentation-Namespace enthalten. Die folgende Tabelle enthält die Namen der Klassen, die den Präsentations-, Folien-, Folienmaster-, Folienlayout- und Designelementen entsprechen. Die Klasse, die dem Designelement (theme) entspricht, ist Teil des DocumentFormat.OpenXml.Drawing-Namespaces. Designs gelten für alle Open XML-Markupsprachen.
PresentationML-Element |
Open XML SDK 2.0-Klasse |
|---|---|
<presentation> |
|
<sld> |
|
<sldMaster> |
|
<sldLayout> |
|
<theme> |
Der folgende PresentationML-Code stellt die XML im Präsentationsteil (in der Datei presentation.xml) für eine einfache Präsentation mit zwei Folien dar.
<p:presentation xmlns:p="…" … >
<p:sldMasterIdLst>
<p:sldMasterId xmlns:rel="http://…/relationships" rel:id="rId1"/>
</p:sldMasterIdLst>
<p:notesMasterIdLst>
<p:notesMasterId xmlns:rel="http://…/relationships" rel:id="rId4"/>
</p:notesMasterIdLst>
<p:handoutMasterIdLst>
<p:handoutMasterId xmlns:rel="http://…/relationships" rel:id="rId5"/>
</p:handoutMasterIdLst>
<p:sldIdLst>
<p:sldId id="267" xmlns:rel="http://…/relationships" rel:id="rId2"/>
<p:sldId id="256" xmlns:rel="http://…/relationships" rel:id="rId3"/>
</p:sldIdLst>
<p:sldSz cx="9144000" cy="6858000"/>
<p:notesSz cx="6858000" cy="9144000"/>
</p:presentation>
Beispielcode
Nachstehend ist der vollständige C#-Beispielcode zum Erstellen einer Präsentation unter Angabe eines Dateipfads aufgeführt.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using DocumentFormat.OpenXml;
using DocumentFormat.OpenXml.Drawing;
using DocumentFormat.OpenXml.Packaging;
using DocumentFormat.OpenXml.Presentation;
using P = DocumentFormat.OpenXml.Presentation;
using D = DocumentFormat.OpenXml.Drawing;
namespace CreatePresentationDocument
{
class Program
{
static void Main(string[] args)
{
string filepath = @"C:\Users\username\Documents\PresentationFromFilename.pptx";
CreatePresentation(filepath);
}
public static void CreatePresentation(string filepath)
{
// Create a presentation at a specified file path. The presentation document type is pptx, by default.
PresentationDocument presentationDoc = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation);
PresentationPart presentationPart = presentationDoc.AddPresentationPart();
presentationPart.Presentation = new Presentation();
CreatePresentationParts(presentationPart);
//Close the presentation handle
presentationDoc.Close();
}
private 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");
}
private 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;
}
private 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;
}
private 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;
}
private 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;
}
}
}
Nachstehend ist der vollständige VB.Net-Beispielcode zum Erstellen einer Präsentation unter Angabe eines Dateipfads aufgeführt.
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Drawing
Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Presentation
Imports P = DocumentFormat.OpenXml.Presentation
Imports D = DocumentFormat.OpenXml.Drawing
Namespace CreatePresentationDocument
Class Program
Public Shared Sub Main(ByVal args As String())
Dim filepath As String = "C:\Users\username\Documents\PresentationFromFilename.pptx"
CreatePresentation(filepath)
End Sub
Public Shared Sub CreatePresentation(ByVal filepath As String)
' Create a presentation at a specified file path. The presentation document type is pptx, by default.
Dim presentationDoc As PresentationDocument = PresentationDocument.Create(filepath, PresentationDocumentType.Presentation)
Dim presentationPart As PresentationPart = presentationDoc.AddPresentationPart()
presentationPart.Presentation = New Presentation()
CreatePresentationParts(presentationPart)
'Close the presentation handle
presentationDoc.Close()
End Sub
Private Shared Sub CreatePresentationParts(ByVal 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()
Dim slidePart1 As SlidePart
Dim slideLayoutPart1 As SlideLayoutPart
Dim slideMasterPart1 As SlideMasterPart
Dim themePart1 As ThemePart
presentationPart.Presentation.Append(slideMasterIdList1, slideIdList1, slideSize1, notesSize1, defaultTextStyle1)
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
Private Shared Function CreateSlidePart(ByVal presentationPart As PresentationPart) As SlidePart
Dim slidePart1 As SlidePart = presentationPart.AddNewPart(Of SlidePart)("rId2")
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()), 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" _
}))))), New ColorMapOverride(New MasterColorMapping()))
Return slidePart1
End Function
Private Shared Function CreateSlideLayoutPart(ByVal 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
Private Shared Function CreateSlideMasterPart(ByVal 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
Private Shared Function CreateTheme(ByVal 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
End Class
End Namespace
Siehe auch
Referenz
Konzepte
Informationen zum Open XML SDK 2.0 für Microsoft Office
Struktur eines PresentationML-Dokuments
Anleitung: Einfügen einer neuen Folie in eine Präsentation
Anleitung: Löschen einer Folie aus einer Präsentation
Vorgehensweise: Abrufen der Anzahl der Folien in einem Präsentationsdokument