1

我正在尝试在 VBA for PowerPoint 中编写一个自动议程/目录生成器，它根据 PowerPoint 演示文稿中各部分的标题生成议程项目符号。由于我还希望议程出现在每个部分的开头，因此我正在努力解决该方法

.AddSlide(Index (I am inserting the ID of a section´s first slide here), pCustomLayout )

在该部分之前添加幻灯片（实际上是在上一部分的末尾），因为它只是基于 ID 并且没有说“在部分的开头插入幻灯片”。

是否有一个简单的解决方案（例如不删除和重新创建该部分）来实现仅在一个部分的开头而不是在上一节的末尾创建幻灯片？

解决方案

 Sub moveSlidesToSectionStart(pSectionIndex, pFirst, pLast)
  Dim objPresentation As Presentation
  Set objPresentation = Application.ActivePresentation

  totalSlides = pLast - pFirst + 1
  Dim arr()
  ReDim arr(totalSlides - 1)

  For i = 0 To totalSlides - 1 'fill array with all slides (slide numbers) that need to be moved
    arr(i) = pFirst + i
  Next i

  objPresentation.Slides.Range(arr).MoveToSectionStart(pSectionIndex)

 End Sub
4

1 回答 1

1

您可以使用幻灯片上可用的 MoveToSectionStart 方法。传入节索引作为参数，它将把幻灯片放在该节的开头。

Function MoveSlideToSectionStart(Sld As Slide, SectionIndex As Long) As Boolean

If Sld.Parent.SectionProperties.Count < SectionIndex Then
    MoveToSection = False
    Exit Function
End If

Call Sld.MoveToSectionStart(SectionIndex)
MoveToSection = True
End Function

Sub Test()
Debug.Print MoveToSection(ActivePresentation.Slides(6), 1)
End Sub
于 2018-03-30T16:36:39.867 回答