怎樣將Excel中圖表復制為圖片

怎樣將Excel中圖表復制為圖片

使用Excel VBA可以將工作表中的圖表復制為圖片，實現這種操作使用的是ChartObjects對象的CopyPicture方法。本文介紹將Excel中圖表復制為圖片的具體操作方法。

1、啟動Excel并打開包含圖表的工作表，打開Visual Basic編輯器，在工程資源管理器中添加一個模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

Sub CopyChart()

If ActiveChart Is Nothing Then

MsgBox "請先選擇一個圖表!"

Exit Sub

End If

ActiveChart.CopyPicture appearance:=xlScreen,Format:=xlBitmap

Range("N8").Select

ActiveSheet.Paste

End Sub

提示

在VBA中，CopyPicture方法能夠將選中的圖表作為圖片復制到剪貼板中，該方法的語法結構如下所示：

表達式CopyPicture(Appearance,Format)

這里，表達式是一個代表ChartObject對象的變量。該方法的Appearance參數是一個可選參數，用于設置圖片的復制方式，其默認值為xlScreen。該參數可以設置為下面的兩個常量之一。

xlPrinter：圖片按其打印效果進行復制。

xlScreen：圖片盡可能按其屏幕顯示進行復制。

Format參數用于設置圖片復制的格式，其默認值為xlPicture。該參數可以設置為下面的兩個常量之一。

xlBitmap：位圖(.bmp、.jpg、.gif)。

xlPicture：繪制圖片(.png、.wmf、.mix)。

2、按F5鍵運行程序，如果沒有選擇工作表中的圖表，則程序給出提示，提示用戶先選擇圖表，如圖2所示;如果已經選擇了工作表中的圖表，則選擇圖表被復制，如圖3所示。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。