位置:首頁 > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

如何將Excel中圖表復(fù)制為圖片?

提問人:周麗平發(fā)布時(shí)間:2021-08-23

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

Sub CopyChart()

If ActiveChart Is Nothing Then

MsgBox "請先選擇一個(gè)圖表!"

Exit Sub

End If

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

Range("N8").Select

ActiveSheet.Paste

End Sub

image.png

圖1 插入模塊并輸入程序代碼

提示

在VBA中,CopyPicture方法能夠?qū)⑦x中的圖表作為圖片復(fù)制到剪貼板中,該方法的語法結(jié)構(gòu)如下所示:

表達(dá)式CopyPicture(Appearance,Format)

這里,表達(dá)式是一個(gè)代表ChartObject對象的變量。該方法的Appearance參數(shù)是一個(gè)可選參數(shù),用于設(shè)置圖片的復(fù)制方式,其默認(rèn)值為xlScreen。該參數(shù)可以設(shè)置為下面的兩個(gè)常量之一。

xlPrinter:圖片按其打印效果進(jìn)行復(fù)制。

xlScreen:圖片盡可能按其屏幕顯示進(jìn)行復(fù)制。

Format參數(shù)用于設(shè)置圖片復(fù)制的格式,其默認(rèn)值為xlPicture。該參數(shù)可以設(shè)置為下面的兩個(gè)常量之一。

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

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

2、按F5鍵運(yùn)行程序,如果沒有選擇工作表中的圖表,則程序給出提示,提示用戶先選擇圖表,如圖2所示;如果已經(jīng)選擇了工作表中的圖表,則選擇圖表被復(fù)制,如圖3所示。

image.png

圖2 提示選擇圖表

image.png

圖3 選擇圖表被復(fù)制為圖片

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部