VBA/Excel/Access/Word/PowerPoint/Slide Export Save
Содержание
- 1 Default format (set on the Save tab of the Options dialog box) ppSaveAsDefault
- 2 Design Template: ppSaveAsTemplate
- 3 Exporting a Presentation or Some Slides to Graphics
- 4 Exports the sixth slide in the active presentation to the file named Slide6.png in the Z:\Public\Presentations folder, using the PNG format:
- 5 Opening a Presentation
- 6 PowerPoint 95: ppSaveAsPowerPoint7
- 7 PowerPoint Show: ppSaveAsShow
- 8 Presentation for Review: ppSaveAsPresForReview
- 9 Saves the presentation
- 10 Saving a Presentation under Its Existing Name
- 11 Single File Web Page: ppSaveAsWebArchive
- 12 Web Page: ppSaveAsHTML
Default format (set on the Save tab of the Options dialog box) ppSaveAsDefault
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsDefault, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
Design Template: ppSaveAsTemplate
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\R.ppt", _ FileFormat:=ppSaveAsTemplate, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
Exporting a Presentation or Some Slides to Graphics
<source lang="vb">
Sub export()
ActivePresentation.Export Path:="C:\", FilterName:="JPG", ScaleWidth:=800, ScaleHeight:=600
End Sub
</source>
Exports the sixth slide in the active presentation to the file named Slide6.png in the Z:\Public\Presentations folder, using the PNG format:
<source lang="vb">
Sub exportPNG()
ActivePresentation.Slides(6).Export _ FileName:="C:\Slide6.png", FilterName:="PNG"
End Sub
</source>
Opening a Presentation
<source lang="vb">
Sub openPre()
Presentations.Open FileName:="C:\Time.ppt", ReadOnly:=msoFalse
End Sub "Saving a Presentation
</source>
PowerPoint 95: ppSaveAsPowerPoint7
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsPowerPoint7, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
PowerPoint Show: ppSaveAsShow
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsShow , EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
Presentation for Review: ppSaveAsPresForReview
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsPresForReview, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
Saves the presentation
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsPowerPoint7, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
Saving a Presentation under Its Existing Name
<source lang="vb">
Sub save()
ActivePresentation.Save
End Sub
</source>
Single File Web Page: ppSaveAsWebArchive
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsWebArchive, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
Web Page: ppSaveAsHTML
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsHTML, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>