将幻灯片从开头移动到节末

Question

我有一个宏可以在我的 PowerPoint 演示文稿的某个部分的开头创建一张新幻灯片。

有没有一种方法可以替换 .MoveToSectionStart 将幻灯片移动到末尾？

该方法位于名为 Sub AddCustomSlide() 的末尾的 Sub 中。

Private Function GetSectionNumber( _
        ByVal sectionName As String, _
        Optional ParentPresentation As Presentation = Nothing) As Long

    If ParentPresentation Is Nothing Then
        Set ParentPresentation = ActivePresentation
    End If

    GetSectionNumber = -1
    With ParentPresentation.SectionProperties
        Dim i As Long
        For i = 1 To .Count
            If .Name(i) = sectionName Then
                GetSectionNumber = i
                Exit Function
            End If
        Next i
    End With
End Function

Public Function GetLayout( _
    LayoutName As String, _
    Optional ParentPresentation As Presentation = Nothing) As CustomLayout

    If ParentPresentation Is Nothing Then
        Set ParentPresentation = ActivePresentation
    End If

    Dim oLayout As CustomLayout
    For Each oLayout In ParentPresentation.SlideMaster.CustomLayouts
        If oLayout.Name = LayoutName Then
            Set GetLayout = oLayout
            Exit For
        End If
    Next
End Function

Sub AddCustomSlide()

    Dim oSlides As Slides, oSlide As Slide
    Dim Shp As Shape
    Dim Sld As Slide

    Set oSlides = ActivePresentation.Slides
    Set oSlide = oSlides.AddSlide(oSlides.Count - 2, GetLayout("Processwindow"))
    oSlide.MoveToSectionStart GetSectionNumber("Main Process")

End Sub

Answer 1

抱歉，没有这样的方法。下面是如何在最后插入一个：

Sub AddCustomSlide()
    Dim oSlides As Slides, oSlide As Slide
    Dim Shp As Shape
    Dim Sld As Slide
    Dim SecNum As Integer, SlideCount As Integer, FirstSecSlide As Integer

    Set oSlides = ActivePresentation.Slides
    Set oSlide = oSlides.AddSlide(oSlides.Count - 2, GetLayout("Processwindow"))
    SecNum = GetSectionNumber("Main Process")
    With ActivePresentation.SectionProperties
        SlideCount = .SlidesCount(SecNum)
        FirstSecSlide = .FirstSlide(SecNum)
    End With
    oSlide.MoveTo toPos:=FirstSecSlide + SlideCount - 1
End Sub

将幻灯片从开头移动到节末

Moving slide from beginning to section end

powerpoint

vba