PowerPoint) (Shape.Export 方法

使用指定的圖形篩選器匯出圖形，並將匯出的檔案儲存為指定的檔案名稱。

語法

運算式。匯出 (參數)

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

參數

名稱	必要/選用	資料類型	描述
PathName	必要	字串	要匯出並儲存到磁碟的檔案名稱。您可以包含完整路徑;否則，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 像素的影像。如果使用2倍的縮放因數，如下列範例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