向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 在工作表中插入三角形