循环中的VBA循环，第二个循环总是从1开始。

Question

下面的代码循环遍历PPT演示文稿中的所有幻灯片。如果幻灯片属于其中一个部分，并且没有隐藏，它将使用适当的名称保存它们。我试图使保存的名称(即TEST#)后面的数字始终在每个部分从1开始。因此，如果IDSS部分中有五张幻灯片，从幻灯片5开始，那么它们将被保存: IDSS1、IDSS2等。下面的方法是将其保存在当前的幻灯片编号中。谢谢你能提供的任何帮助！

编辑提供更多的清澈性

在这个PPT演示文稿中，我有许多不同的幻灯片，所有这些幻灯片都位于特定的命名部分中。对于这个例子，假设总共有6张幻灯片。幻灯片1-3位于名为"TEST“的部分，幻灯片3被隐藏。幻灯片4-6在"IDSS“部分，没有隐藏。我需要代码循环所有的幻灯片，找出哪些是在“测试”部分，并命名为"TEST1“和"TEST2”(第三张幻灯片被跳过，因为它是隐藏的)。然后转到"IDSS“部分，并将幻灯片保存为"IDSS1”、“IDSS2”和"IDSS3“。这是我无法在每个部分重新启动的名称后面的数字。希望这一点更清楚。

Dim sld As Slide

TestSection = SectionIndexOf("Test") 'Name of a section is in the quotes.

IDSSslides = SectionIndexOf("IDSS")

i = 1
For Each sld In ActivePresentation.Slides

    If sld.sectionIndex = TestSection And ActivePresentation.Slides(i).SlideShowTransition.Hidden = msoFalse Then
        ActivePresentation.Slides(i).Export filenamepng & "TEST" & i & ".png", "PNG"
    ElseIf sld.sectionIndex = IDSSslides And ActivePresentation.Slides(i).SlideShowTransition.Hidden = msoFalse Then
        ActivePresentation.Slides(i).Export filenamepng & "IDSS" & i & ".png", "PNG"
    End If
i = i + 1
Next

Answer 1

你的问题不是很清楚，但我认为这是你所需要的，试一试，让我知道

    Dim sld As Slide

TestSection = SectionIndexOf("Test") 'Name of a section is in the quotes.

IDSSslides = SectionIndexOf("IDSS")

dim i as integer 'Counter for TEST 
dim j as integer'Counter for IDSS 

i = 1 
j=1

For Each sld In ActivePresentation.Slides

    If sld.sectionIndex = TestSection And sld.SlideShowTransition.Hidden = msoFalse Then
        sld.Export filenamepng & "TEST" & i & ".png", "PNG"
        i=i+1
    ElseIf sld.sectionIndex = IDSSslides And sld.SlideShowTransition.Hidden = msoFalse Then
        sld.Export filenamepng & "IDSS" & j & ".png", "PNG"
        j=j+1
    End If
Next