VBA: Как мне получить этот код для записи трехзначных имен файлов?

Question

Я использую следующий код для экспорта файла PNG из активного файла PPT. Я считаю, что имена файлов должны состоять из трех цифр. Вместо «01.png», «02.png» и т. Д. Мне нужны «001.png», «002.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

Заранее спасибо!

Answer 1

У вас есть решение, формат должен быть установлен на «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"