教大家Excel工作表中怎么添加圖形

近日有關(guān)于Excel工作表中怎么添加圖形的問題受到了很多網(wǎng)友們的關(guān)注，大多數(shù)網(wǎng)友都想要知道Excel工作表中怎么添加圖形的具體情況，那么關(guān)于到Excel工作表中怎么添加圖形的相關(guān)信息，小編也是在網(wǎng)上進行了一系列的信息，那么接下來就由小編來給大家分享下小編所收集到與Excel工作表中怎么添加圖形相關(guān)的信息吧(以下內(nèi)容來自于網(wǎng)絡(luò)非小編所寫，如有侵權(quán)請與站長聯(lián)系刪除)

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ù)，其是用于指定多邊形頂點的坐標對所組成的數(shù)組，坐標對指的是一對數(shù)值，該數(shù)值表示點的X和Y坐標。

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

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