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