Excel技巧:將圖表另存新檔GIF檔案

來源:互聯網
上載者:User

   我們有時需要在網頁中插入一個圖表,或者在其它非Office程式中用到圖表,有沒有一種辦法可以將Excel活頁簿中的圖表插入到其它程式中呢?其實可以通過把工作表存為一個HTML檔案的方式來實現,在另存新檔網頁時,Excel會自動將圖錶轉換為GIF檔案。如果你覺得這樣做麻煩的話,也可以利用Office內建的VBA編輯器來編寫一個簡單的宏來完成這個工作。

  具體操作步驟如下:

  1.建立練慣用的圖表

  啟動Excel,預設的活頁簿為Book1,首先我們在工作表Sheet1中輸入如圖1所示的資料。這兒要注意,資料的起伏不要太大,以免建立的圖表有失協調。

  圖1

  選中A1到E5儲存格,然後執行功能表命令“插入>圖表”,開啟“圖表嚮導”對話方塊,在對話方塊中直接單擊“完成”按鈕,則會建立出如圖2所示的圖表。

  圖2

  2.建立宏

  按快速鍵Alt+F11鍵,開啟Visual Basic編輯器。在“工程”視窗中選中圖表所在的活頁簿,然後執行功能表命令“插入>模組”,開啟“模組1”視窗,在視窗中輸入以下四行代碼,如圖3所示。

  Sub SaveChartAsGIF ()

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

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

  End Sub

  圖3

  代碼輸入完成後,不要忘記存檔。存檔後關閉Visual Basic編輯器。

  3.執行宏

  回到Excel視窗,將活頁簿儲存到某一檔案夾中,選中圖表,然後按快速鍵Alt+F8鍵,開啟“宏”對話方塊。選中“SaveChartAsGIF”宏,並單擊“執行”按鈕,如圖4所示。

  圖4

  運行宏之後所產生的GIF檔案會以圖表的名稱來命名,並被儲存到該活頁簿所在的檔案夾,開啟該檔案夾,就可以看到產生的GIF檔案,使用任一圖象瀏覽軟體即可瀏覽該檔案,在其它程式當中可以很方便地插入這個GIF檔案。

  注意:由於這個簡單的宏沒有錯誤檢查機制,所以如果在執行宏之前沒有選中圖表或者活頁簿未存檔,都會出現錯誤提示。

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。