回答編集履歴
1
pdfファイル名に変更
answer
CHANGED
|
@@ -21,7 +21,10 @@
|
|
|
21
21
|
prs.PrintOptions.Ranges.ClearAll
|
|
22
22
|
Set prng = prs.PrintOptions.Ranges.Add(1, 3)
|
|
23
23
|
'1～3ページを指定（スライド数が指定よりも少ない場合はエラー）
|
|
24
|
-
prs.ExportAsFixedFormat "C:\test1.
|
|
24
|
+
prs.ExportAsFixedFormat "C:\Users\xxx\Documents\test1.pdf", _
|
|
25
|
-
ppFixedFormatTypePDF, , , , , , prng, ppPrintSlideRange, , , , , , False
|
|
25
|
+
ppFixedFormatTypePDF, , , , , , prng, ppPrintSlideRange, , , , , , False
|
|
26
26
|
End Sub
|
|
27
|
-
```
|
|
27
|
+
```
|
|
28
|
+
|
|
29
|
+
追記：
|
|
30
|
+
ExportAsFixedFormat はpptxじゃなくてpdfファイル名ですね。（jinojiさんご指摘）
|