辦公黨和學生黨經(jīng)常會用EXCEL做很多圖，做PPT的時候這些圖需要對齊放置，如果每個圖裁切的大小不一樣，或者繪圖區(qū)矩形大小不一致，坐標軸標題位置不統(tǒng)一，怎么擺都覺得哪里沒有對齊。由于EXCEL強大的數(shù)據(jù)處理能力和普及使用率，小白還是堅持用EXCEL作圖。時間可貴，作為一個外行，我們不需要懂很多，夠用即可，下文是小白用Vba簡單實現(xiàn)以上功能，將上圖修改成下圖。與大家一起學習EXCEL繪圖，高手請多多指點。

Excel2003綠色版 EXCEL2003精簡綠色版 (附excel2003綠色工具)

• 類型：辦公軟件
• 大?。?/span>13.3MB
• 語言：簡體中文
• 時間：2012-06-19

查看詳情

1、建立“個人宏工作簿”：

個人宏工作簿就是一個EXCEL文件，當我們建立了個人宏工作簿以后，每次打開excel文件的時候，它在后臺自動打開并且隱藏（可在“視圖”中隱藏或者顯隱），我們可以把所有的宏都放在“個人宏工作薄”中，這樣我們就不用將EXCEL保存成含有宏的文件了。

如圖點“開發(fā)工具”（沒有的話，可以在自定義功能區(qū)里面找），點擊“錄制宏”，彈出“錄制宏對話框”在“保存在"下拉菜單選擇"個人宏工作簿",點擊”確定"，然后點擊“停止錄制”。第一個宏和個人宏工作簿就完成了。

2、編寫宏文件：

打開一個EXCEL文件，點擊“開發(fā)工具”“VisualBasic"彈出VB界面，在左側(cè)的“工程資源管理器”樹中（如果沒有，請在VB界面點”視圖“查找），我們看到了兩個項目，第一個項目“personal.xlsb"就是自動打開的隱藏的個人宏工作簿，雙擊”模塊1“，剛才錄制的宏就在這里面，覺得沒用可以刪除，在模塊1中，我們寫下以下代碼（注釋見圖片中），會點英語的應(yīng)該都能看懂。這樣我們的宏建好了，以后任意EXCEL都可以用了。

Sub 宏1繪圖區(qū)和坐標軸設(shè)置()      

    Dim HalfHeight, HalfWidth, OffsetTop, OffsetLeft, ChartHeight As Double    

     ActiveChart.ChartArea.Select

     ActiveChart.ChartArea.Width = 455

     ActiveChart.ChartArea.Height = 348

     ChartHeight = ActiveChart.ChartArea.Height

     ActiveChart.PlotArea.Select

     Selection.InsideLeft = 45

     Selection.InsideTop = 10

     Selection.InsideWidth = 400

     Selection.InsideHeight = 300

     OffsetLeft = Selection.InsideLeft

     OffsetTop = Selection.InsideTop

     HalfWidth = Selection.InsideWidth \ 2

     HalfHeight = Selection.InsideHeight \ 2

    ActiveChart.Axes(xlValue).AxisTitle.Select

    Selection.Left = 0        

    Selection.Top = ((HalfHeight + OffsetTop) - (Selection.Height \ 2))

    ActiveChart.Axes(xlCategory).AxisTitle.Select

    Selection.Left = ((HalfWidth + OffsetLeft) - (Selection.Width \ 2))

    Selection.Top = ChartHeight - Selection.Height - 3

End Sub

3、使用宏修改我們的圖表：

打開含有圖表的Excel文件，雙擊選中圖表，在”設(shè)置圖表區(qū)格式“取消鎖定縱橫比，固定比例就不能按自己的數(shù)值設(shè)置了；選中”大小和位置均固定“，否則你插入和刪除單元格，圖表大小也會跟隨者變化，很討厭；將縮放比例固定到100%,在不同縮放比例下的圖表效果是不同的；最后將坐標軸標題顯示出來，因為代碼中沒有這一條，如果坐標軸標題沒顯示出來，運行宏找不到坐標軸標題會報錯。

當然最好在代碼中加上，這里先擱下，當我們用EXCEL修改好了圖表，就可以用”宏“了，雙擊選中要修改的圖表，點擊”開發(fā)工具“-”宏“，在”宏對話框“中選擇”繪圖區(qū)和坐標軸設(shè)置”，點擊執(zhí)行，完成。至此我們設(shè)置了1、圖表大??；2、繪圖區(qū)矩形框大小，3、坐標軸標題的位置。

4、根據(jù)需要修改參數(shù)：

別人的大小參數(shù)可能不適合自己，對宏參數(shù)不滿意，可以點擊“開發(fā)工具”-“宏”-”編輯“彈出“模塊1代碼編輯窗口”，在這里修改大小數(shù)據(jù)。如果運行中遇到什么問題可以點擊“單步執(zhí)行”，按F8一步一步執(zhí)行，看看哪一步有問題。

小白只了解3個東西，1對象：Chart就是一個圖表對象;2屬性：Chart有一個高度屬性Height；PlotArea也是Chart的一個屬性,代表繪圖區(qū)，當然PlotArea也是一個對象，有著自己的屬性,比如它的大小，顏色；3 方法，是一個動作，比如Select，就是選中；如果對代碼中的任何東西看不懂可以在代碼窗口將鼠標放在看不懂的地方，按F1會彈出MSDN幫助網(wǎng)頁（如PlotArea），多看MSDN。

學習Vba除了看MSDN（不搞這個的估計都不怎么看），還有一個好辦法，就是錄制宏，比如我們不知道如何設(shè)置坐標軸標題顏色，我們點擊“錄制宏”，然后用鼠標對坐標軸添加顏色，然后去“模塊”中查看剛才錄制的宏代碼，看不懂？按F1->MSDN看看。錄制宏+MSDN+找一本參考書看看（如果學過C語言等，對編程語言有一點了解的只要花很少的時間看看就行了）

最后就是根據(jù)需要自己寫代碼，比如可以一次對所有圖進行編輯，比如將程序?qū)懙慕∪稽c，還可以添加自己想要的功能。

最后還可將將我們加工過的健全的宏添加一個按鈕到功能區(qū)里（如圖），依次點擊“自定義功能區(qū)”-“宏”-“新建組”-“添加“就將我們的宏加到功能區(qū)了，這樣就可以像其他功能一樣使用了。

5、另存為圖片格式：

excel部分完成就可以做成圖片了，手動截圖大小不好把握，既然我們已經(jīng)設(shè)置好了圖表大小，直接另存為就可以了；EXCEL中并沒有另存為這一項，雙擊圖表將其復(fù)制到PPT中（PPT中也可以像EXCEL一樣對圖表進行修改），然后就可以另存為JPG圖片了，大小就是我們設(shè)置好的圖表大小，避免了手動裁剪的不準確性。

這里經(jīng)過測試有兩點注意：

1、有些圖片TIF格式可能要比JPG清晰一些；

2、如果圖表里面有旋轉(zhuǎn)的文本框（有一定的角度）那么JPG格式顯示不出來文本框里面的文本，不知道什么原因，而TIF格式?jīng)]有這個問題，所以小白會用TIF文件格式，如果必須要用JPG格式，可以用TIF格式轉(zhuǎn)。

6、在PPT中排版：

最后一步就是將做好的圖片復(fù)制到PPT中，進行排版，我們很明顯的可以看到，每個圖片的圖表大小，繪圖區(qū)矩形大小，坐標軸的標題幾乎是對齊的，這時候我們很容易就可以對齊圖片。

注意事項：

1、這個程序是不健全的，不符合編程的標準，只供參考，造成任何不利后果自行承擔。

2、請查看圖片中代碼部分的注意事項。

相關(guān)推薦：

excel坐標軸不等間距刻度該怎么設(shè)置?

Excel折線圖怎么設(shè)置坐標軸起點不為0？

excel柱狀圖怎么將負值柱中的數(shù)據(jù)都移到坐標軸上?

最新評論