使用Excel VBA可以將工作表中的圖表復(fù)制為圖片，實(shí)現(xiàn)這種操作使用的是ChartObjects對(duì)象的CopyPicture方法。本文介紹將Excel中圖表復(fù)制為圖片的具體操作方法。

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

　　Sub CopyChart()

　　If ActiveChart Is Nothing Then

　　MsgBox “請(qǐng)先選擇一個(gè)圖表!”

　　Exit Sub

　　End If

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

　　Range(“N8”).Select

　　ActiveSheet.Paste

　　End Sub

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

　　提示

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

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

　　這里，表達(dá)式是一個(gè)代表ChartObject對(duì)象的變量。該方法的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)行程序，如果沒(méi)有選擇工作表中的圖表，則程序給出提示，提示用戶先選擇圖表，如圖2所示;如果已經(jīng)選擇了工作表中的圖表，則選擇圖表被復(fù)制，如圖3所示。

　　圖2　提示選擇圖表

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