vb.net - 删除 PowerPoint 幻灯片标题

Question

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

标签： vb.netpowerpoint

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 所见）将在小幻灯片图标旁边。如果那里什么都没有，那么就没有标题，上面的代码也不起作用。