如何通过计数将形状添加到各部分之间的幻灯片

Question

我正在尝试在各部分之间的幻灯片中添加形状（将部分编号作为形状中的文本），但到目前为止我只知道如何找到具有该布局名称的形状。我想我应该在某个地方设置一个计数器，但我还没有找到方法。 理想情况下，我会对这些部分进行计数，然后将值传递给要开发的宏的其他部分。

Sub Navigator()

Dim oSlide As Slide
Dim oSlideNavigator As Slide
Dim oShapeNavigator As Shape
Dim Section_N As Integer



    For Each oSlide In ActivePresentation.Slides
        If oSlide.CustomLayout.Name = "Section" Then
        Set oShapeNavigator = oSlide.Shapes.AddTable(2, 2, Left:=10, Top:=10, Width:=200, Height:=2)
            oShapeNavigator.Fill.ForeColor.RGB = RGB(255, 128, 128)

        End If
    Next
End Sub
 

Answer 1

我使用布局名称“Section”为每张幻灯片设置计数器，然后将值发送到表以添加到与找到的值不同的值中。所以一个简单的Else就达到了目的。

Sub NavigatorX()

'Dim SectionXArr() As Long
Dim oSlide As Slide

Dim SectionX As Slide
Dim SectionXArr As SlideRange ' was ReDim
Dim oShapeNavigator As Shape
Dim NavSlide As Slide
Dim nCounter As Long
'Dim NavSlides

Dim iRow As Integer
Dim iColumn As Integer

For Each oSlide In ActivePresentation.Slides

    If oSlide.CustomLayout.Name = "Section" Then
        nCounter = nCounter + 1
        
        ElseIf nCounter > 0 Then
            Set oShapeNavigator = oSlide.Shapes.AddTable(1, 1, Left:=10, Top:=10, Width:=200, Height:=2)
        oShapeNavigator.Fill.ForeColor.RGB = RGB(255, 128, 128)
        With oShapeNavigator.Table

            For iRow = 1 To .Rows.Count
            For iColumn = 1 To .Columns.Count
                    With .Cell(iRow, iColumn).Shape.TextFrame.TextRange
                        .Text = "Section " & nCounter
                    With .Font
                        .Name = "Bahnschrift SemiBold Condensed (Headings)"
                        .Size = "14"
                    End With
                    End With
            Next iColumn
            Next iRow
        End With

        
    End If

Next oSlide

End Sub