删除PowerPoint幻灯片标题

Question

我需要一段VB代码，该代码将从众多PowerPoint幻灯片中删除所有“标题”。我正在使用一种软件来输出SPSS数据，该数据具有不可更改的默认设置以输出标题，因此需要在100张幻灯片中将其删除。有什么想法吗？

Answer 1

有了安德鲁（Andrew）指向正确方法的指针，它仅需几分钟（VBA，而不是VB.NET，但应该可以翻译）：

Sub DeleteTitles()

Dim oSl As Slide

For Each oSl In ActivePresentation.Slides
    ' Run this once with the IMMEDIATE window visible
    ' Verify that what YOU see as titles are actually what PPT sees as titles
    Debug.Print oSl.SlideIndex & vbTab & oSl.Shapes.Title.TextFrame.TextRange.Text

    ' If all's well, comment out the Debug.Print line and uncomment this:
    'oSl.Shapes.Title.Delete

Next

End Sub

请注意，就PPT而言，看起来像我们的标题并不总是标题。如果将PPT放在“大纲”视图中，则标题（如PPT所见）将在小幻灯片图标旁边。如果那里什么也没有，那么就没有标题，上面的代码将无法工作。