保存Ppt文件，常用的扩展名有几种格式？

ning84

Ppt2007的帮助文件，演示文稿扩展名只有三种文件Pptx,Pptm,ppt

PowerPoint 选项（保存）

[url=]全部显示[/url]

[url=]全部隐藏[/url]

保存演示文稿将文件另存为以下格式  要指定默认的文件保存格式，请单击下列各项中的一项：

• PowerPoint 演示文稿  此选项将您的演示文稿另存为 Microsoft Office PowerPoint 2007 演示文稿，这是一种支持[url=]可扩展标记语言 (XML) （可扩展标记语言 (XML)：标准标记语言 (SGML) 的一种浓缩形式，开发人员可用其创建自定义标签，为整理和提供信息提供了灵活性。）[/url] 的文件格式。这种格式的文件带有扩展名 .pptx。
• 启用宏的 PowerPoint 演示文稿  此选项将您的演示文稿另存为包含 Microsoft [url=]Visual Basic for Applications (VBA) （Visual Basic for Applications (VBA)：Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。）[/url] 代码的 Office PowerPoint 2007 演示文稿。这种格式的文件带有扩展名 .pptm。
• PowerPoint 97-2003 演示文稿  此选项将演示文稿另存为可以在早期版本的 PowerPoint（从 PowerPoint 97 到 Office PowerPoint 2003）中打开的演示文稿。这种格式的文件带有扩展名 .ppt。
  

保存自动恢复信息时间间隔 x 分钟  如果希望 PowerPoint 按定时间隔自动保存并恢复您的演示文稿信息，请选中本复选框，然后输入希望进行自动恢复的频率（以分钟为单位）。






--------------------------------------------------------------------------------------------------
PowerPoint 2007 支持的文件格式

[url=]全部显示[/url]

[url=]全部隐藏[/url]

利用 Microsoft Office PowerPoint 2007，可以将演示文稿保存为下列任意一种文件类型：
要点  Microsoft Office PowerPoint 2007 不支持保存为 PowerPoint 95（或更早版本）文件格式。

保存为文件类型	扩展名	用于保存
PowerPoint 演示文稿	.pptx	Office PowerPoint 2007 演示文稿，默认情况下为 XML 文件格式。
PowerPoint 启用宏的演示文稿	.pptm	包含 [url=]Visual Basic for Applications (VBA) （Visual Basic for Applications (VBA)：Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。）[/url] 代码的演示文稿。
PowerPoint 97-2003 演示文稿	.ppt	可以在早期版本的 PowerPoint（从 97 到 2003）中打开的演示文稿。
PDF 文档格式	.pdf	发布为 PDF 或 XPS：由 Adobe Systems 开发的基于 PostScript 的电子文件格式，该格式保留了文档格式并允许共享文件。只有安装了加载项之后，才能在 2007 Microsoft Office System 程序中将文件另存为 PDF 或 XPS 文件。有关详细信息，请参阅启用对其他文件格式（例如 PDF 和 XPS）的支持。
XPS 文档格式	.xps	发布为 PDF 或 XPS：新的 Microsoft 电子纸张格式，用于以文档的最终格式交换文档。 只有安装了加载项之后，才能在 2007 Microsoft Office System 程序中将文件另存为 PDF 或 XPS 文件。有关详细信息，请参阅启用对其他文件格式（例如 PDF 和 XPS）的支持。
PowerPoint 设计模板	.potx	作为模板的演示文稿，可用于对将来的演示文稿进行格式设置。
PowerPoint 启用宏的设计模板	.potm	包含预先批准的宏的模板，这些宏可以添加到模板中以便在演示文稿中使用。
PowerPoint 97-2003 设计模板	.pot	可以在早期版本的 PowerPoint（从 97 到 2003）中打开的模板。
Office 主题	.thmx	包含颜色主题、字体主题和效果主题的定义的样式表。
PowerPoint 放映	.pps；.ppsx	始终在幻灯片放映视图（而不是普通视图）中打开的演示文稿。
PowerPoint 启用宏的放映	.ppsm	包含预先批准的宏的幻灯片放映，可以从幻灯片放映中运行这些宏。
PowerPoint 97-2003 放映	.ppt	可以在早期版本的 PowerPoint（从 97 到 2003）中打开的幻灯片放映。
PowerPoint 加载宏	.ppam	用于存储自定义命令、Visual Basic for Applications (VBA) 代码和特殊功能（例如加载宏）的加载宏。
PowerPoint 97-2003 加载宏	.ppa	可以在早期版本的 PowerPoint（从 97 到 2003）中打开的加载宏。
单个文件网页	.mht；.mhtml	作为单一文件的网页，其中包含一个 .htm 文件和所有支持文件，例如图像、声音文件、级联样式表、脚本和更多内容。适用于通过电子邮件发送演示文稿。
网页	.htm；.html	作为文件夹的网页，其中包含一个 .htm 文件和所有支持文件，例如图像、声音文件、级联样式表、脚本和更多内容。适合发布到网站上或者使用 Microsoft Office FrontPage 或其他 HTML 编辑器进行编辑。
GIF（图形交换格式）	.gif	作为用于网页的图形的幻灯片。GIF 文件格式最多支持 256 色，因此更适合扫描图像（如插图）而不是彩色照片。GIF 也适用于直线图形、黑白图像以及只有几个像素高的小文本。GIF 支持动画和透明背景。
JPEG（联合图像专家组）文件格式	.jpg	作为用于网页的图形的幻灯片。JPEG 文件格式支持 1600 万种颜色，最适于照片和复杂图像。
PNG（可移植网络图形）格式	.png	作为用于网页的图形的幻灯片。[url=]万维网联合会 (W3C) （WWW 联合会 (W3C)：商业与教育方面的一个联合机构，该机构对与万维网相关的所有领域的研究工作进行监督，并促进标准的推出。）[/url] 已批准将 PNG 作为一种替代 GIF 的标准。PNG 不像 GIF 那样支持动画，某些旧版本的浏览器不支持此文件格式。
TIFF（Tag 图像文件格式）	.tif	作为用于网页的图形的幻灯片。TIFF 是用于在个人计算机上存储位映射图像的最佳文件格式。TIFF 图像可以采用任何分辨率，可以是黑白、灰度或彩色。
设备无关位图	.bmp	作为用于网页的图形的幻灯片。位图是一种表示形式，包含由点组成的行和列以及计算机内存中的图形图像。每个点的值（不管它是否填充）存储在一个或多个数据位中。
Windows 图元文件	.wmf	作为 16 位图形的幻灯片（用于 Microsoft Windows 3.x 和更高版本）。
增强型 Windows 元文件	.emf	作为 32 位图形的幻灯片（用于 Microsoft Windows 95 和更高版本）。
大纲/RTF	.rtf	作为仅文本文档的演示文稿大纲，可提供更小的文件大小，并能够与可能与您具有不同版本的 PowerPoint 或操作系统的其他人共享不包含宏的文件。使用这种文件格式，不会保存备注窗格中的任何文本。
PowerPoint 幻灯片	.sldx	独立幻灯片文件。

ning84

Pptx文件反复执行SaveAs 命令，文件会增加很大。
96M文件增加到336M

1. Sub TraverseFolderDeleteRow()
   
2.     Dim Fso As FileSystemObject, oFile As File
   
3.         Set Fso = New FileSystemObject
   
4.     Dim Rng As Range, oRng As Range
   
5.     Dim Sht As Worksheet
   
6.         Set Rng = Selection
   
7.         Set Sht = Rng.Parent
   
8.         Set Rng = Sht.Cells(25, 1).CurrentRegion
   
9.         Debug.Print Rng.Address
   
10.         For ii = 1 To Rng.Rows.Count
    
11.              PathName = ThisWorkbook.Path & "" & Sht.Name & "" & Rng(ii, 2)
    
12.              Debug.Print Rng(ii, 2), Fso.FileExists(PathName)
    
13.              If Fso.FileExists(Path) = False Then
    
14.                  Rng(ii, 1).Resize(, 26).Select
    
15.                  Rng(ii, 1).Resize(, 26).Delete
    
16.              End If
    
17.         Next ii
    
18. End Sub
    
19. 
    

复制代码

程序在优化一次。

1. Sub TraverseFolderDeleteRow()
   
2.     Dim Fso As FileSystemObject, oFile As File
   
3.         Set Fso = New FileSystemObject
   
4.     Dim Rng As Range, oRng As Range, oRng1 As Range
   
5.     Dim Sht As Worksheet
   
6.         Set Rng = Selection
   
7.         Set Sht = Rng.Parent
   
8.         Set Rng = Sht.Cells(25, 1).CurrentRegion
   
9.         'Debug.Print Rng.Address
   
10.         For ii = 1 To Rng.Rows.Count
    
11.              PathName = ThisWorkbook.Path & "" & Sht.Name & "" & Rng(ii, 2)
    
12.              ''
    
13.              'Debug.Print Rng(ii, 2), Fso.FileExists(PathName)
    
14.              'Debug.Print PathName
    
15.              '''
    
16.              If Fso.FileExists(PathName) = False Then
    
17.                  If oRng Is Nothing Then
    
18.                       Set oRng = Rng(ii, 1).Resize(, 26)
    
19.                  Else
    
20.                       Set oRng = Union(oRng, Rng(ii, 1).Resize(, 26))
    
21.                  End If
    
22.                  'Debug.Print oRng.Address
    
23.                  oRng.Select
    
24.                  'Rng(ii, 1).Resize(, 26).Select
    
25.                  
    
26.                  'Rng(ii, 1).Resize(, 26).Delete
    
27.              Else
    
28.                 Set oFile = Fso.GetFile(PathName)
    
29.                 'Debug.Print oFile.Path
    
30.                 'Stop
    
31.              End If
    
32.         Next ii
    
33.         Debug.Print oRng.Address, oRng.Areas.Count
    
34.         Stop
    
35.         oRng.Delete
    
36. End Sub
    
37. 
    
38. 
    

复制代码

ning84

1. Sub ll()
   
2.     Dim Sld As Slide, Shp As Shape
   
3.         For Each Sld In Application.ActivePresentation.Slides
   
4.             With Sld
   
5.                  Debug.Print .Name, .Shapes("Txt3").TextFrame2.TextRange.Text, .Shapes("Txt2").TextFrame2.TextRange.Text
   
6.                  .Name = .NotesPage.Shapes(2).TextFrame2.TextRange.Text
   
7.             End With
   
8.         Next Sld
   
9. End Sub
   

复制代码

1. 
   
2. Sub PptTxtToRng()
   
3.      Dim Str
   
4.      Dim Fso As FileSystemObject, oFile As File
   
5.          Set Fso = New FileSystemObject
   
6.      Dim MenuSht As Worksheet, Sht As Worksheet, oSht As Worksheet
   
7.      Dim Rng As Range, MenuRng As Range
   
8.          Set Rng = Selection.CurrentRegion
   
9.          Set Sht = Rng.Parent
   
10.          Debug.Print Rng.Address
    
11.      Dim Shp2  'As Shape
    
12.      Dim Shp3 ' As Shape
    
13.      Dim PathName
    
14.          PathName = ThisWorkbook.Path & "\Ver" & Sht.Name & ".Pptx"
    
15.      Dim Pres As Presentation
    
16.          Set Pres = OpenPpt(Fso, PathName)
    
17.          
    
18.      Dim Sld As Slide, Slds As Slides
    
19.          Set Slds = Pres.Slides
    
20.      Dim PicShp, Shp ' As Shape
    
21.      Dim ShpRng  'As ShapeRange
    
22.          For ii = 1 To Rng.Rows.Count
    
23.                  Str = Sht.Cells(Rng(ii, 1).Row, "B")
    
24.                  Set Sld = Slds(Str)
    
25.                  Set Shp = Sld.Shapes("Txt3")
    
26.                  ''
    
27.                  Sht.Cells(Rng(ii, 1).Row, "D") = Sld.Shapes("Txt2").TextFrame2.TextRange.Text
    
28.                  Sht.Cells(Rng(ii, 1).Row, "F") = Sld.Shapes("Txt3").TextFrame2.TextRange.Text
    
29.          Next ii
    
30.      
    
31. Beep
    
32. End Sub
    

复制代码