VBA如何設(shè)置對象的邊框?qū)傩?一個(gè)對象完全解決)
No.1
Excel中的對象如何對邊框進(jìn)行設(shè)置,下面做一個(gè)詳細(xì)介紹。
所有具有邊框的對象都會(huì)涉及Border對象,此對象是對應(yīng)邊框的一些屬性設(shè)置。
如下,Border對象屬性表:
XLlineStyle枚舉類型是對邊框的類型進(jìn)行定義。
按照定義的名稱或值進(jìn)行設(shè)置即可。
例如:
設(shè)置一個(gè)Shape對象虛線框:Shapes(1).Border.LineStyle=xlDash
設(shè)置一個(gè)Range對象虛線框:Range("A1:C10").Borders.LineStyle=xlDash
注意:上面兩個(gè)是不同的對象,即Range應(yīng)用了Borders對象,不對使用Border對象。
這主要是因?yàn)镽ange有多個(gè)邊,多個(gè)邊分別對應(yīng)不同的參數(shù)設(shè)置。
XlBorderWeight枚舉
定義邊框的粗細(xì),四個(gè)參數(shù)選擇也很好理解。
No.2
下面舉一個(gè)例子,對定義邊框進(jìn)行一個(gè)應(yīng)用。
應(yīng)用方法:任意選擇一個(gè)區(qū)域,單元格內(nèi)設(shè)置相應(yīng)的屬性值,單擊設(shè)置邊框按鈕,被選區(qū)域就是設(shè)置為相應(yīng)的邊框。
看下具體代碼
Private Sub SetBorder()Dim w As Worksheet, f As RangeSet w = ActiveSheetSet f = w.Range("B3")With Selection.Borders.Item(xlEdgeBottom) .Color = RGB(11, 122, 12)'設(shè)置邊框顏色 .LineStyle = xlDouble 'f.Offset(1, 2).Value'設(shè)置邊框類型 .Weight = xlThick'設(shè)置邊框粗細(xì) .TintAndShade = f.Offset(3, 2).Value'設(shè)置明暗度End WithEnd Sub
No.3
總體來說邊框?qū)ο髴?yīng)用相對簡單,如果合理使用,會(huì)提升表格的美觀度,是一個(gè)很有用的對象操作。
歡迎關(guān)注、收藏
本站部分文章來自網(wǎng)絡(luò)或用戶投稿。涉及到的言論觀點(diǎn)不代表本站立場。閱讀前請查看【免責(zé)聲明】發(fā)布者:方應(yīng),如若本篇文章侵犯了原著者的合法權(quán)益,可聯(lián)系我們進(jìn)行處理。本文鏈接:http://www.gdyuanyu.cn/tougao/59381.html