vba - 第二个循环总是从 1 开始的循环内的 VBA 循环
问题描述
我有下面的代码循环遍历 PPT 演示文稿中的所有幻灯片。如果幻灯片属于其中一个部分并且未隐藏,它将以适当的名称保存它们。我试图在保存的名称(即 TEST#)之后获取数字,以便每个部分始终从 1 开始。因此,如果 IDSS 部分中有五张幻灯片,从幻灯片 5 开始,那么它们将被保存:IDSS1、IDSS2 等。我在下面的方式只是将其与当前幻灯片编号一起保存。感谢您的任何帮助,您可以提供!
编辑以提供更多清晰度
我在这个 PPT 演示文稿中有许多不同的幻灯片,所有这些幻灯片都位于一个特定的命名部分中。对于此示例,假设总共有 6 张幻灯片。幻灯片 1-3 在名为“测试”的部分中,幻灯片 3 被隐藏。幻灯片 4-6 在“IDSS”部分,没有一个是隐藏的。我需要代码循环浏览所有幻灯片,找出哪些在“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
解决方案
你的问题不是很清楚,但我认为这是你需要的,试试看,让我知道
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
推荐阅读
- html - 将圆圈分成 3 部分,每个扇区内有垂直文本
- swagger - 如何在像 swagger-github-pages 这样的 github-pages 中发布 AsyncApi?
- python - 使用 Python dict 查询 mongo 集合
- c++ - 使用 Win32 API 在 C++ Builder 中制作多线程计时器
- javascript - JS:查找值具有最新时间戳字段的键
- c - Cmake:导致不存在的错误
- r - R 没有识别我的因子变量的水平以允许重新编码/组合
- c - C中的转换规范和格式说明符有什么区别?
- python - GCP AI 平台 API,拒绝访问
- ios - 为什么SKScene的view属性在呈现场景时没有设置?