Microsoft Knowledge Base Article
This article contents is Microsoft Copyrighted material.
©2005-©2007 Microsoft Corporation. All rights reserved.
Terms
of Use |
Trademarks
Article ID: 162816 - Last Review: October 11, 2006 - Revision: 2.2
PPT97: Sample VB Code to Save a Presentation in Multiple Formats
This article was previously published under Q162816
On This Page
SUMMARY
This article provides a sample Microsoft Visual Basic for Applications
macro that saves the active presentation in PowerPoint 3.0, 4.0, 7.0, and
97 formats.
MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
Sample Visual Basic Procedure
Sub SaveAsAllFormats()
Dim FileName As String
Dim ThePath As String
' Retrieve the name of the active presentation.
FileName = ActivePresentation.Name
' Retrieve the path to the active presentation.
ThePath = ActivePresentation.Path
With ActivePresentation
' Save the presentation in PowerPoint 3.0 format.
.SaveAs ThePath & FileName & " 3", ppSaveAsPowerPoint3
' Save the presentation as in PowerPoint 4.0 format.
.SaveAs ThePath & FileName & " 4", ppSaveAsPowerPoint4
' Save the presentation in PowerPoint 7.0 format.
.SaveAs ThePath & FileName & " 95", ppSaveAsPowerPoint7
' Save the presentation in PowerPoint 97 format.
.SaveAs ThePath & FileName & " 97", ppSaveAsPresentation
End With
End Sub
REFERENCES
For additional information about getting help with Visual Basic for
Applications, please see the following article in the Microsoft Knowledge
Base:
163435Â
(http://kbalertz.com/Feedback.aspx?kbNumber=163435/EN-US/
)
VBA: Programming Resources for Visual Basic for Applications
APPLIES TO
- Microsoft PowerPoint 97 Standard Edition
| kbcode kbdtacode kbhowto kbmacro kbprogramming KB162816 |
Retired KB Content DisclaimerThis article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.
Community Feedback System
Very often, it takes hours to solve a problem. Very often, you've looked high
and low, and have tried a lot of solutions. When you finally found it, chances
are, it was because someone else helped you. Here's your chance to give back.
Use our community feedback tool to let others know what worked for you and what
didn't.
Please also understand that the community feedback system is not warranted to be
correct, it's simply a system that we've built to let people try and help each
other. If something in a feedback response doesn't make sense to you, or you're
not comfortable making changes that the feedback talks about (like registry
edits), please consult a professional.
Thank you for using kbAlertz.com Feedback System.
-- Scott Cate
Be the first to leave feedback, to help others about this knowledge base
article.
(Optional) Name
(Optional)
Public URL Or Email
Comments
No
HTML -- Text Only Please