Excel工作表中怎么添加圖形

　　導(dǎo)語：向Excel工作表中手動插入圖形對象是十分方便的，如果需要向工作表中插入大量圖形，或是對繪制的圖形對象大小和位置有很準(zhǔn)確的要求，用手工繪制的方法就不太方便了。此時可以通過VBA程序來進行圖形對象的繪制。百分網(wǎng)小編在工作表中繪制一個三角形為例來介紹向Excel工作表中添加圖形的方法。

　　1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中插入一個模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖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對象的AddPolyline方法能夠創(chuàng)建一個不封閉或封閉的多邊形，該方法將能夠返回一個代表新的連續(xù)線段或多邊形的Shape對象。該方法的語法格式如下所示：

　　表達式AddPolyline(SafeArrayOfPoints)

　　這里，表達式是一個代表Shapes對象的變量，該方法的SafeArrayOfPoints參數(shù)是一個必選參數(shù)，其是用于指定多邊形頂點的坐標(biāo)對所組成的數(shù)組，坐標(biāo)對指的是一對數(shù)值，該數(shù)值表示點的X和Y坐標(biāo)。

　　2、按F5鍵運行該段程序代碼，在Excel工作表中將插入一個藍色的三角形，如圖2所示。

　　圖2　在工作表中插入三角形

【Excel工作表中怎么添加圖形】相關(guān)文章：

Excel2013中怎么給工作表分列10-24

Excel2013中給工作表分列的方法10-12

Excel2010怎么使用數(shù)據(jù)透視表09-18

怎么制作excel2013數(shù)據(jù)透視表10-27

excel2007怎么插入數(shù)據(jù)透視表09-14

Excel表格中怎么徹底隱藏數(shù)據(jù)09-27

excel 2013中的篩選功能怎么用05-14

excel柱形圖表怎么添加平均值參考線07-29

Excel添加超鏈接返回主界面10-23

excel怎么排序07-26