<ul id="eswko"></ul>

如何在Excel中將圖表導出為圖形？

網(wǎng)友投稿 344 2025-04-03

如何在Excel中將圖表導出為圖形？

在Excel中，有時您可能會根據(jù)數(shù)據(jù)生成一些圖表，以使數(shù)據(jù)看起來更直觀，更直接。如果出于某種目的要將圖表保存或導出到圖形中，該怎么辦？

使用VBA代碼將圖表導出為圖形

將多個圖表/圖片/形狀導出為圖形 Kutools for Excel

使用VBA代碼將圖表導出為圖形

以下VBA代碼可以幫助您將活動工作表中的選定圖表導出為圖片。并且圖片將保存在與您應用的工作簿相同的位置。進行如下操作：

1。選擇要導出的圖表。

2。然后按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

3。點擊插頁 > 模塊，然后將以下代碼粘貼到“模塊窗口”中。

VBA：將圖表導出為圖形

Option Explicit Sub ExportChart() Const sSlash$ = "/" Const sPicType$ = ".gif" Dim sChartName$ Dim sPath$ Dim sBook$ Dim objChart As ChartObject On Error Resume Next Set objChart = ActiveSheet.ChartObjects(1) If objChart Is Nothing Then MsgBox "No charts have been detected on this sheet", 0 Exit Sub End If If ActiveChart Is Nothing Then MsgBox "You must select a single chart for exporting ", 0 Exit Sub End If Start: sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _ "There is no default name available" & vbCr & _ "The chart will be saved in the same folder as this file", "Chart Export", "") If sChartName = Empty Then MsgBox "You have not entered a name for this chart", , "Invalid Entry" Goto Start End If If sChartName = "False" Then Exit Sub End If sBook = ActiveWorkbook.Path sPath = sBook & sSlash & sChartName & sPicType ActiveChart.Export Filename:=sPath, FilterName:="GIF" End Sub

Copy

4。然后按 F5 鍵運行此代碼，然后在提示框中輸入導出圖表的名稱，請參見屏幕截圖：

5。然后點擊 OK，所選圖表已導出到 GIF 格式，并保存在與原始文件相同的位置。看截圖：

使用上面的VBA代碼，一次只能導出一個圖表，如果要導出其他圖表，請先選擇其他圖表，然后使用代碼將其導出。

將多個圖表/圖片/形狀導出為圖形 Kutools for Excel

Kutools for Excel“ 導出圖形 該實用程序可以在Excel中一次導出多個圖表，圖片或形狀。

Kutools for Excel, 與超過 300 方便的功能，使您的工作更加輕松。

免費下載免費全功能 30 天

安裝后 Kutools for Excel, 請按以下步驟:(免費下載 Kutools for Excel 現(xiàn)在?。?/span>

1。點擊 Kutools 加 > 導入/導出 > 導出圖形，請參見屏幕截圖：

2。在 導出圖形 對話框中，所有圖表, 圖片和形狀已在左側列表框中列出，請指定要導出的類型，然后單擊按鈕以指定目錄來保存導出的圖形，同時，您可以根據(jù)需要從“導出”格式中選擇圖片的格式，例如 的GIF, JPEG格式, TIF or PNG.