http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FPowerPoint%2FSlide_Export_Save
VBA/Excel/Access/Word/PowerPoint/Slide Export Save - История изменений
2026-04-06T01:22:37Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Export_Save&diff=1230&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Export_Save&diff=1231&oldid=prev
Admin: 1 версия
2010-05-26T12:46:38Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Default format (set on the Save tab of the Options dialog box) ppSaveAsDefault==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsDefault, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Design Template: ppSaveAsTemplate==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\R.ppt", _<br />
FileFormat:=ppSaveAsTemplate, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Exporting a Presentation or Some Slides to Graphics==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub export()<br />
ActivePresentation.Export Path:="C:\", FilterName:="JPG", ScaleWidth:=800, ScaleHeight:=600<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Exports the sixth slide in the active presentation to the file named Slide6.png in the Z:\Public\Presentations folder, using the PNG format:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub exportPNG()<br />
ActivePresentation.Slides(6).Export _<br />
FileName:="C:\Slide6.png", FilterName:="PNG"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Opening a Presentation==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub openPre()<br />
Presentations.Open FileName:="C:\Time.ppt", ReadOnly:=msoFalse<br />
End Sub<br />
"Saving a Presentation<br />
</source><br />
<br />
<br />
<br />
<br />
==PowerPoint 95: ppSaveAsPowerPoint7==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsPowerPoint7, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==PowerPoint Show: ppSaveAsShow==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsShow , EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Presentation for Review: ppSaveAsPresForReview==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsPresForReview, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Saves the presentation==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsPowerPoint7, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Saving a Presentation under Its Existing Name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.Save<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Single File Web Page: ppSaveAsWebArchive==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsWebArchive, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Web Page: ppSaveAsHTML==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub save()<br />
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _<br />
FileFormat:=ppSaveAsHTML, EmbedTrueTypeFonts:=msoFalse<br />
End Sub<br />
</source></div>
Admin