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

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

• 類(lèi)型：辦公軟件
• 大?。?/span>13.3MB
• 語(yǔ)言：簡(jiǎn)體中文
• 時(shí)間：2012-06-19

查看詳情

1、建立“個(gè)人宏工作簿”：

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

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

2、編寫(xiě)宏文件：

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

Sub 宏1繪圖區(qū)和坐標(biāo)軸設(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、使用宏修改我們的圖表：

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

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

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

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

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

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

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

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

5、另存為圖片格式：

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

這里經(jīng)過(guò)測(cè)試有兩點(diǎn)注意：

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

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

6、在PPT中排版：

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

注意事項(xiàng)：

1、這個(gè)程序是不健全的，不符合編程的標(biāo)準(zhǔn)，只供參考，造成任何不利后果自行承擔(dān)。

2、請(qǐng)查看圖片中代碼部分的注意事項(xiàng)。

相關(guān)推薦：

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

Excel折線(xiàn)圖怎么設(shè)置坐標(biāo)軸起點(diǎn)不為0？

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

最新評(píng)論