我有一個帶有幾個宏的 PowerPoint：一個允許您從 Word 加載一些資料，另一個將 PowerPoint 匯出到 Word 所在的同一位置。這是后者：
Sub export()
Dim dlgSaveAs As FileDialog
Dim strMyFile As String
Dim ppPres As Presentation
Set dlgSaveAs = Application.FileDialog(Type:=msoFileDialogSaveAs)
With dlgSaveAs
.InitialFileName = path & "Exported without macros - " & company & " (((insert date)))"
If .Show = -1 Then
strMyFile = .SelectedItems(1)
'MsgBox strMyFile
ActivePresentation.SaveAs strMyFile, 1
'-- save your file to strMyFile here
Else
'MsgBox "No file selected."
'-- The user pressed Cancel.
End If
End With
Set dlgSaveAs = Nothing
End Sub
老實說，這段代碼不是我寫的。我幾個月前找到了它并對其進行了調整，但我不知道它是如何作業的。問題是當“另存為”檔案對話框打開時，檔案擴展名似乎沒問題：
但是在按下“保存”后，檔案將保存為 .ppt：
知道如何解決這個問題嗎？
uj5u.com熱心網友回復：
改變這個：
ActivePresentation.SaveAs strMyFile, 1
對此：
ActivePresentation.SaveAs strMyFile, 24
或者
ActivePresentation.SaveAs strMyFile, ppSaveAsOpenXMLPresentation
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/440557.html
上一篇：突出顯示不符合下拉條件的單元格
下一篇：使用“小計”格式化單元格