假設我想將圖表匯出為 .jpeg 檔案。但不是直接使用路徑（例如我的作業簿所在的路徑），如下所示：
Sub ExportChart()
Dim objChrt As ChartObject
Dim myChart As Chart
Set objChrt = Sheets("Graphs").ChartObjects(3)
Set myChart = objChrt.Chart
myFileName = "myChart.jpeg"
myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="jpeg"
End Sub
..我希望用戶提供路徑和名稱，所以基本上我想復制圖表的右鍵單擊和“另存為圖片”選項的行為。我找不到任何方法，實際上我不確定它是否可行。
uj5u.com熱心網友回復：
像這樣的東西？
Sub ExportChart()
Dim objChrt As ChartObject
Dim myChart As Chart
Set objChrt = Sheets("Graphs").ChartObjects(3)
Set myChart = objChrt.Chart
myFileName = "myChart.jpeg"
varResult = Application.GetSaveAsFilename(ThisWorkbook.Path, "jpeg (*.jpeg), ""*.jpeg""")
If varResult <> False Then
myChart.Export Filename:=varResult, Filtername:="jpeg"
Else
MsgBox "Export cancelled by user"
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/518035.html
標籤：擅长vba
上一篇：單元格值超過4位小數時的錯誤訊息