如何在Excel工作表中新增圖形

向Excel工作表中手動插入圖形物件是十分方便的，如果需要向工作表中插入大量圖形，或是對繪製的圖形物件大小和位置有很準確的要求，用手工繪製的方法就不太方便了。此時可以通過VBA程式來進行圖形物件的繪製。以下是小編為大家搜尋整理的`如何在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)olyline triArray

Worksheets(1)es(1)=RGB(15,100,255)

End Sub

　　圖1　建立模組並輸入程式程式碼

　　提示

在VBA中，使用Shapes物件的AddPolyline方法能夠建立一個不封閉或封閉的多邊形，該方法將能夠返回一個代表新的連續線段或多邊形的Shape物件。該方法的語法格式如下所示：

表示式AddPolyline(SafeArrayOfPoints)

這裡，表示式是一個代表Shapes物件的變數，該方法的SafeArrayOfPoints引數是一個必選引數，其是用於指定多邊形頂點的座標對所組成的陣列，座標對指的是一對數值，該數值表示點的X和Y座標。

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

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