您的位置: 首頁(yè) >科技 >

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

2022-06-27 02:55:02 編輯:雷濤羽 來(lái)源:
導(dǎo)讀 近日有關(guān)于Excel工作表中怎么添加圖形的問(wèn)題受到了很多網(wǎng)友們的關(guān)注,大多數(shù)網(wǎng)友都想要知道Excel工作表中怎么添加圖形的具體情況,那么關(guān)于

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

1、啟動(dòng)Excel并打開(kāi)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ì)象。該方法的語(yǔ)法格式如下所示:

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


免責(zé)聲明:本文由用戶上傳,如有侵權(quán)請(qǐng)聯(lián)系刪除!

最新文章

精彩推薦

圖文推薦

點(diǎn)擊排行

2016-2022 All Rights Reserved.平安財(cái)經(jīng)網(wǎng).復(fù)制必究 聯(lián)系QQ280 715 8082   備案號(hào):閩ICP備19027007號(hào)-6

本站除標(biāo)明“本站原創(chuàng)”外所有信息均轉(zhuǎn)載自互聯(lián)網(wǎng) 版權(quán)歸原作者所有。