VBA 在第二个循环始终从 1 开始的循环中循环

Question

下面的代码循环播放 PPT 演示文稿中的所有幻灯片。如果幻灯片属于其中一个部分且未隐藏，它将使用适当的名称保存它们。我试图让保存的名称（即 TEST#）之后的数字始终从每个部分的 1 开始。因此，如果 IDSS 部分中有五张幻灯片，从第 5 张幻灯片开始，那么它们将被保存：IDSS1、IDSS2 等。我在下面使用的方法只是将其与当前幻灯片编号一起保存。感谢您提供的任何帮助！

编辑以提供更多清晰度

我在这个 PPT 演示文稿中有很多不同的幻灯片，所有这些幻灯片都位于一个特定的命名部分中。对于此示例，假设共有 6 张幻灯片。幻灯片 1-3 在名为 "TEST" 的部分中，幻灯片 3 处于隐藏状态。幻灯片 4-6 在 "IDSS" 部分，none 被隐藏。我需要代码来遍历所有幻灯片，找出哪些在 "TEST" 部分并将它们命名为 "TEST1" 和 "TEST2"（第三张幻灯片被隐藏，因此被跳过）。然后它转到 "IDSS" 部分并将幻灯片另存为 "IDSS1"、IDSS2" 和 "IDSS3"。这是名称后面的数字，我无法在每张幻灯片上以 1 重新开始部分。希望这能让它更清楚。

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

VBA 在第二个循环始终从 1 开始的循环中循环

VBA Loop Within a Loop Where the Second Loop Always Starts at 1

powerpoint

vba