No.1
Excel中畫線條是一個很簡單的操作,其中線條分幾種不同的類型,如線條端點形狀也分不同的幾種類型。
下面具體介紹一下,如何利用vba代碼進行設置線條的一些方法。
vba代碼畫線用到一個對象:LineFormat
下圖為LineFormat屬性:
屬性看上去較多,但大多有一定的規則,使用起來還是比較容易理解的。
下面是一些用到的枚舉,有端點樣式枚舉、線條類型枚舉、箭頭長度枚舉。
適當選擇不同的枚舉類型,可以獲得不同的線條樣式,這些都是Excel自定義好的東西,只要用拿來主義進行選擇使用即可,無需我們進行任何思考。
No.2
下面是一個例子,對應不同的值畫一條線段。
有美術基礎的你,可以發揮自己的想像,畫出任意線條。
可以看到上圖的線條是最終結果。
下圖為相應的代碼:
其中
Dim l As LineFormat
Set l = ThisWorkbook.ActiveSheet.Shapes.AddLine(lX, lY, rX, rY).Line
利用兩行代碼畫出線段。lX, lY, rX, rY是四個變量,分別代表線段的左右位置。
畫出線段後要對它進行屬性賦值。
With l.Transparency = 0.5'明暗度.ForeColor.RGB = RGB(211, 32, 21)'前景色.BeginArrowheadLength = msoArrowheadLong '起始長度.BeginArrowheadStyle = r.Offset(0, 7).Value '起始端點形狀.EndArrowheadLength = msoArrowheadLengthMedium '結束長度.EndArrowheadStyle = msoArrowheadStealth'結束端點形狀 無End With
當然還有其它一些屬性沒有設置,如Weight寬度,Pattern填充圖案等。可以自己設置。
總得來說,線條有比較多屬性設置,在學習和使用過程中根據不同的需求進行相應的參數設置。
特別是在做流程圖的時候,用到比較多,一個美觀的流程還是十分必要的。
歡迎關注、收藏