VBA：如何让此代码写入 3 位数的文件名？

发布于 2024-12-15 10:36:27 字数 440 浏览 4 评论 0原文

我使用以下代码从活动 PPT 文件导出 PNG 文件。我发现我需要文件名是三位数字。我需要“001.png”、“002.png”等，而不是“01.png”、“02.png”等。

你能帮助我吗？我尝试过

sImageName = Format(oSlide.SlideIndex, "000") & ".png"

，但没有成功。

导出有效的部分代码：

For Each oSlide In ActivePresentation.Slides
sImageName = Format(oSlide.SlideIndex, "00") & ".png"
oSlide.Export sImagePath & sImageName, "PNG"
Next oSlide

提前谢谢您！

原文

I'm using the following code to export PNG file from the active PPT file. I find that I need the file names to be THREE digits. Instead of "01.png", "02.png", etc., I need "001.png", "002.png", etc.

Can you help me? I tried

sImageName = Format(oSlide.SlideIndex, "000") & ".png"

but that didn't work.

Export section code that does work:

For Each oSlide In ActivePresentation.Slides
sImageName = Format(oSlide.SlideIndex, "00") & ".png"
oSlide.Export sImagePath & sImageName, "PNG"
Next oSlide

Thank you in advance!

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

情深如许 2024-12-22 10:36:27

您已经找到了解决方案，格式应设置为“000”而不是“00”

此代码在 Powerpoint 2010 中正确运行

Sub Test()
    sImagePath = "C:\Temp\"
    For Each oSlide In ActivePresentation.Slides
    sImageName = Format(oSlide.SlideIndex, "000") & ".png"
    oSlide.Export sImagePath & sImageName, "PNG"
    Next oSlide
End Sub

并生成类似“001.png”的文件名

You have got the solution, the format should be set to "000" instead of "00"

This code runs correctly in Powerpoint 2010

Sub Test()
    sImagePath = "C:\Temp\"
    For Each oSlide In ActivePresentation.Slides
    sImageName = Format(oSlide.SlideIndex, "000") & ".png"
    oSlide.Export sImagePath & sImageName, "PNG"
    Next oSlide
End Sub

and produces file names like "001.png"

回复收藏 0 原文

~没有更多了~