我們有時(shí)需要在網(wǎng)頁(yè)中插入一個(gè)圖表，或者在其它非Office程序中用到圖表，有沒(méi)有一種辦法可以將Excel工作簿中的圖表插入到其它程序中呢?其實(shí)可以通過(guò)把工作表存為一個(gè)HTML文件的方式來(lái)實(shí)現(xiàn)，在另存為網(wǎng)頁(yè)時(shí)，Excel會(huì)自動(dòng)將圖表轉(zhuǎn)換為GIF文件。如果你覺(jué)得這樣做麻煩的話，也可以利用Office自帶的VBA編輯器來(lái)編寫(xiě)一個(gè)簡(jiǎn)單的宏來(lái)完成這個(gè)工作。

　　具體操作步驟如下：

　　1.創(chuàng)建練習(xí)用的圖表

　　啟動(dòng)Excel,默認(rèn)的工作簿為Book1,首先我們?cè)诠ぷ鞅鞸heet1中輸入如圖1所示的數(shù)據(jù)。這兒要注意，數(shù)據(jù)的起伏不要太大，以免創(chuàng)建的圖表有失協(xié)調(diào)。

　　圖1

　　選中A1到E5單元格，然后執(zhí)行菜單命令“插入>圖表”，打開(kāi)“圖表向?qū)?rdquo;對(duì)話框，在對(duì)話框中直接單擊“完成”按鈕，則會(huì)創(chuàng)建出如圖2所示的圖表。

　　圖2

　　2.創(chuàng)建宏

　　按快捷鍵Alt+F11鍵，打開(kāi)Visual Basic編輯器。在“工程”窗口中選中圖表所在的工作簿，然后執(zhí)行菜單命令“插入>模塊”，打開(kāi)“模塊1”窗口，在窗口中輸入以下四行代碼，如圖3所示。

　　Sub SaveChartAsGIF ()

　　Fname = ThisWorkbook.Path & "" & ActiveChart.Name & ".gif"

　　ActiveChart.Export FileName:=Fname, FilterName:="GIF"

　　End Sub

　　圖3

　　代碼輸入完成后，不要忘記存盤(pán)。存盤(pán)后關(guān)閉Visual Basic編輯器。

　　3.執(zhí)行宏

　　回到Excel窗口，將工作簿保存到某一文件夾中，選中圖表，然后按快捷鍵Alt+F8鍵，打開(kāi)“宏”對(duì)話框。選中“SaveChartAsGIF”宏，并單擊“執(zhí)行”按鈕，如圖4所示。

　　圖4

　　運(yùn)行宏之后所生成的GIF文件會(huì)以圖表的名稱(chēng)來(lái)命名，并被保存到該工作簿所在的文件夾，打開(kāi)該文件夾，就可以看到生成的GIF文件，使用任一圖象瀏覽軟件即可瀏覽該文件，在其它程序當(dāng)中可以很方便地插入這個(gè)GIF文件。

　　注意：由于這個(gè)簡(jiǎn)單的宏沒(méi)有錯(cuò)誤檢查機(jī)制，所以如果在執(zhí)行宏之前沒(méi)有選中圖表或者工作簿未存盤(pán)，都會(huì)出現(xiàn)錯(cuò)誤提示。