亚洲精品中文字幕无乱码_久久亚洲精品无码AV大片_最新国产免费Av网址_国产精品3级片

辦公自動(dòng)化

Excel工作表中怎么添加圖形

時(shí)間:2024-09-17 05:21:39 辦公自動(dòng)化 我要投稿
  • 相關(guān)推薦

Excel工作表中怎么添加圖形

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

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

  表達(dá)式AddPolyline(SafeArrayOfPoints)

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

  2、按F5鍵運(yùn)行該段程序代碼,在Excel工作表中將插入一個(gè)藍(lán)色的三角形,如圖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表格中怎么徹底隱藏?cái)?shù)據(jù)09-27

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

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

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

excel怎么排序07-26