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

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

1 голос
/ 07 ноября 2011

Я использую следующий код VBA для экспорта слайдов PPT в изображения. Проблема заключается в том, что для слайдов с 1 по 9 имена файлов имеют только один символ (например, «1.png»). Мне нужно, чтобы в этих первых девяти слайдах в имени файла было ДВА символа (например, «01.png»), чтобы соответствовать последним слайдам (например, «10.png»).

Как я могу это сделать?

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

Sub Save_PowerPoint_Slide_as_Images()

Dim sImagePath As String
Dim sImageName As String
Dim oSlide As Slide '* Slide Object
Dim lScaleWidth As Long '* Scale Width
Dim lScaleHeight As Long '* Scale Height
On Error GoTo Err_ImageSave

For Each oSlide In ActivePresentation.Slides
sImageName = oSlide.SlideNumber & ".png"
oSlide.Export sImagePath & sImageName, "PNG"
Next oSlide

Err_ImageSave:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub

Function sImagePath() As String
sImagePath = ActivePresentaion.Path
End Function

1 Ответ

3 голосов
/ 07 ноября 2011

попробуйте использовать Format т.е. 

sImageName = Format(oSlide.SlideNumber, "00") & ".png"
...