- 相關(guān)推薦
Excel工作表中怎么添加圖形
導(dǎo)語(yǔ)：向Excel工作表中手動(dòng)插入圖形對(duì)象是十分方便的，如果需要向工作表中插入大量圖形，或是對(duì)繪制的圖形對(duì)象大小和位置有很準(zhǔn)確的要求，用手工繪制的方法就不太方便了。此時(shí)可以通過(guò)VBA程序來(lái)進(jìn)行圖形對(duì)象的繪制。百分網(wǎng)小編在工作表中繪制一個(gè)三角形為例來(lái)介紹向Excel工作表中添加圖形的方法。
1、啟動(dòng)Excel并打開(kāi)Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：
Sub DrawTr()
Dim triArray(1 To 4,1 To 2)As Single
triArray(1,1)=25
triArray(1,2)=100
triArray(2,1)=100
triArray(2,2)=150
triArray(3,1)=150
triArray(3,2)=50
triArray(4,1)=25
triArray(4,2)=100
Worksheets(1).Shapes.AddPolyline triArray
Worksheets(1).Shapes(1).Fill.ForeColor.RGB=RGB(15,100,255)
End Sub
圖1 創(chuàng)建模塊并輸入程序代碼
提示
在VBA中，使用Shapes對(duì)象的AddPolyline方法能夠創(chuàng)建一個(gè)不封閉或封閉的多邊形，該方法將能夠返回一個(gè)代表新的連續(xù)線段或多邊形的Shape對(duì)象。該方法的語(yǔ)法格式如下所示：
表達(dá)式AddPolyline(SafeArrayOfPoints)
這里，表達(dá)式是一個(gè)代表Shapes對(duì)象的變量，該方法的SafeArrayOfPoints參數(shù)是一個(gè)必選參數(shù)，其是用于指定多邊形頂點(diǎn)的坐標(biāo)對(duì)所組成的數(shù)組，坐標(biāo)對(duì)指的是一對(duì)數(shù)值，該數(shù)值表示點(diǎn)的X和Y坐標(biāo)。
2、按F5鍵運(yùn)行該段程序代碼，在Excel工作表中將插入一個(gè)藍(lán)色的三角形，如圖2所示。
圖2 在工作表中插入三角形
【Excel工作表中怎么添加圖形】相關(guān)文章：
如何在Excel工作表中添加圖形09-15
Excel表格中怎么添加迷你圖10-11
Excel2013中怎么給工作表分列10-24
excel中怎么制作圖表并添加圖表元素10-13
excel表中怎么查找重復(fù)數(shù)據(jù)08-18
excel表格中怎么制作比賽自動(dòng)評(píng)分表10-05
怎樣在Excel表中求和08-28
excel表中如何求和07-16