PowerPoint (的 Shape.Export 方法)

發行項
01/17/2024

使用指定的圖形篩選匯出圖形，並將導出的檔案儲存在指定的檔名下。

語法

表達式。匯出 (參數)

expression 一個用於表示 Shape 物件的變數。

參數

名稱	必要/選用	資料類型	描述
PathName	必要	String	要匯出並儲存至磁碟的檔名。您可以包含完整路徑;如果沒有，Microsoft PowerPoint 會在目前資料夾中建立檔案。指定要移動陰影位移的水平距離 (以點為單位)。正值會使陰影向右移動，而負值會使陰影向左移動。
Filter	必要項目	PpShapeFormat	要用於建立匯出圖像檔案的圖形篩選。
ScaleWidth	選用	Long	影像的寬度以點為單位。預設值為投影片寬度。
ScaleHeight	選用	Long	影像的高度以點為單位。預設值為投影片高度。
ExportMode	選用	ppExportMode	縮放方法用於建立導出的圖像檔案。如果未指定，則維度會相對於投影片的大小進行縮放。

列舉

PowerPoint) (PpShapeFormat 列舉

名稱	值	描述
ppShapeFormatBMP	3	點陣圖
ppShapeFormatEMF	5	增強型元檔
ppShapeFormatGIF	0	靜態GIF
ppShapeFormatJPG	1	壓縮的 JPG
ppShapeFormatPNG	2	無損毀 PNG
ppShapeFormatSVG	6	可調整向量圖形
ppShapeFormatWMF	4	Windows 中繼檔

PowerPoint (的 ExportMode 列舉)

名稱	值	描述
ppClipRelativeToSlide	2	保留供日後使用
ppRelativeToSlide	1	縮放相對於投影片尺寸的影像
ppScaleToFit	3	保留供日後使用
ppScaleXY	4	保留供日後使用

註解

PowerPoint 會使用指定的圖形篩選來儲存每個個別圖形。匯出並儲存至磁碟的圖形名稱會決定PathName自變數，其中應包含所選圖形篩選條件的對應擴展名。

ScaleWidth 和 ScaleHeight 參數可用來調整導出的影像大小，相對於投影片的維度。例如，如果在投影片上建立純文本 1 吋方形圖形，則會在物件模型中測量為 72x72 點。匯出但不使用任何縮放比例時，會套用預設小數位數 1：1，而 PowerPoint 會使用 96DPI 來建立 96x96 像素影像。如果使用 2x 的縮放比例，如下列範例 2 所示，導出的影像將會是 192x192 圖元。

如果投影片和/或圖案未完全下載，則此方法會失敗併發生錯誤。如需部分文件的詳細資訊，請參閱使用部分檔。

從 macOS 上的 PowerPoint 匯出時，必須在 Office 沙盒資料夾或 PowerPoint 沙盒資料夾中建立檔案：

/Users/[username]/Library/Group Containers/UBF8T346G9.Office /Users/[username]/Library/Containers/com.microsoft.Powerpoint/Data

如果您嘗試使用這些沙箱位置以外的路徑，則會引發自動化錯誤。

可用性

SVG 篩選器可在 Windows 2302 版和更新版本上使用。

導出方法可在 16.82 版和更新版本的 macOS 上使用。

範例

下列範例會將使用中簡報中的所有 SVG 圖形當作 SVG 檔案匯出至使用者的 [圖片] 資料夾。 ExportMode 參數會使用預設的 PpRelativeToSlide 值，這表示導出的影像將會是


For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
        If oShp.Type = msoGraphic Then
            FileName = oShp.Name & ".svg"
            PathToFolder = Environ("USERPROFILE") & "\Pictures\"
            oShp.Export PathToFolder & FileName, ppShapeFormatSVG
        End If
    Next
Next

下列範例會使用縮放功能，以相對於投影片的大小匯出選取的物件。在此情況下，投影片是標準的16：9大小，也就是960x540點。導出的影像會以其在投影片上大小的兩倍大小建立。


PathToFile = Environ("USERPROFILE") & "\Pictures\export.png"

With ActiveWindow.Selection.ShapeRange(1)
        .Export PathToFile, ppShapeFormatPNG, 1920, 1080, ppRelativeToSlide
End With