Private/Wissen/X_Technology/X26_PPTX.ps1
|
$app = New-Object -ComObject 'PowerPoint.Application' $app.visible = [Microsoft.Office.Core.MsoTriState]::msoTrue $pptx = $app.Presentations.Add() $slide = $pptx.Slides.Add($pptx.Slides.Count + 1, 1) # title slide $slide = $pptx.Slides.Add($pptx.Slides.Count + 1, 2) # slide title and text $slide = $pptx.Slides.Add($pptx.Slides.Count + 1, 3) $slide = $pptx.Slides.Add($pptx.Slides.Count + 1, 4) # just slide title $slide.Shapes.title.TextFrame.TextRange.Text = "This is the slide title" $slide = $pptx.Slides.Add($pptx.Slides.Count + 1, 12) # blank |