VBA/Excel/Access/Word/PowerPoint/Slide Export Save

Материал из VB Эксперт
Версия от 15:46, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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>