Блог

Я пишу скрипт на VBA, чтобы изменить заголовок слайда на заголовок раздела. У меня есть несколько разделов, и я хочу выполнить итерацию через ppt, чтобы изменить все заголовки слайдов, чтобы они имели тот же заголовок раздела, что и его раздел.

Я попытался найти, как захватить заголовок раздела и установить его в заголовок слайда.

 Sub test()

ActivePresentation.Slides.Name = ActivePresentation.SectionProperties(sectionName)


End Sub
  

Мне нужно добавить итерацию, мне нужно, чтобы я считал, что синтаксис испорчен.

Надеюсь, что-то вроде следующего — это то, что вы ищете. Код

1. Перебирает каждый слайд в ActivePresentation , добавляя заголовок, если его еще нет.
2. Изменяет текст заголовка, получая sectionIndex свойство слайда, а затем используя этот индекс в SectionProperties.Name методе для извлечения соответствующего текста.

 Sub ChangeMyTitles()
    Dim sld As Slide
    Dim titleShape As Shape

    If ActivePresentation.SectionProperties.Count = 0 Then Exit Sub

    For Each sld In ActivePresentation.Slides
        With sld
            If Not .Shapes.HasTitle Then
                Set titleShape = .Shapes.AddTitle
            Else
                Set titleShape = .Shapes.Title
            End If

            titleShape.TextFrame2.TextRange.Text = ActivePresentation.SectionProperties.Name(.sectionIndex)
        End With
    Next sld
End Sub
  

Редактировать:

Если вы хотите изменить другой заполнитель, отличный от заголовка, вы могли бы сделать что-то вроде этого. Основываясь на вашем скриншоте, я предполагаю, что заполнитель, который вы хотите изменить, является 3-м (заголовок 1-й, основная часть 2-я, а глава 3-я), но вам, возможно, придется изменить 3 ниже.

 Sub ChangeMyChapters()
    Dim sld As Slide
    Dim chapterShape As Shape

    If ActivePresentation.SectionProperties.Count = 0 Then Exit Sub

    For Each sld In ActivePresentation.Slides
        With sld
            Set chapterShape = .Shapes.Placeholders(3)
            chapterShape.TextFrame2.TextRange.Text = ActivePresentation.SectionProperties.Name(.sectionIndex)
        End With
    Next sld
End Sub