Удаление заголовков слайдов PowerPoint

Question

Мне нужен фрагмент кода VB, который удалит все «заголовки» из многочисленных слайдов PowerPoint.Я использую программное обеспечение для вывода данных SPSS, которое имеет неизменную настройку по умолчанию для вывода заголовков заголовков, и мне нужно, чтобы они были удалены на 100 слайдах.Есть идеи?

Answer 1

С указанием Эндрю на правильный метод, это всего лишь на несколько минут дальше (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 в представление Outline, заголовок (как видит PPT) будет рядом с маленькими значками слайдов.Если там ничего нет, то заголовка нет, и приведенный выше код не будет работать.