技術(shù)員聯(lián)盟提供win764位系統(tǒng)下載,win10,win7,xp,裝機(jī)純凈版,64位旗艦版,綠色軟件,免費(fèi)軟件下載基地!

當(dāng)前位置:主頁(yè) > 教程 > 軟件教程 > Excel教程 >

excel怎么設(shè)置坐標(biāo)軸標(biāo)題對(duì)齊和繪區(qū)域的大小?

來源:技術(shù)員聯(lián)盟┆發(fā)布時(shí)間:2018-10-18 12:00┆點(diǎn)擊:

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

01.jpg

02.jpg

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

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

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

03.jpg

  2、編寫宏文件:

  打開一個(gè)EXCEL文件,點(diǎn)擊“開發(fā)工具”“VisualBasic"彈出VB界面,在左側(cè)的“工程資源管理器”樹中(如果沒有,請(qǐng)?jiān)赩B界面點(diǎn)”視圖“查找),我們看到了兩個(gè)項(xiàng)目,第一個(gè)項(xiàng)目“personal.xlsb"就是自動(dòng)打開的隱藏的個(gè)人宏工作簿,雙擊”模塊1“,剛才錄制的宏就在這里面,覺得沒用可以刪除,在模塊1中,我們寫下以下代碼(注釋見圖片中),會(huì)點(diǎn)英語的應(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

04.jpg

05.jpg

excel怎么設(shè)置坐標(biāo)軸標(biāo)題對(duì)齊和繪區(qū)域的大小?