遠眺圖 遠眺圖高清圖片

大家好,小編來為大家解答以上的問題 。遠眺圖高清圖片 , 遠眺圖這個很多人還不知道,現在讓我們一起來看看吧!

遠眺圖 遠眺圖高清圖片

文章插圖
1、我有 , 這個是用Excel造出來的 , 你可以根據自己的需要自己調整;造好后 , 截圖另存為高清圖片實現的 。
2、這個是實現的VBA代碼 。
3、Sub 繪制遠眺圖()***.screenupdating = False***.clearDim i As LongFor i = 0 To 100Range(Range("DZ150").Offset(i * -1, i * -1), Range("DZ150").Offset(i + 1, i + 1)).SelectMediumBordersNext***.screenupdating = 1End SubSub MediumBorders()***.borders(xlDiagonalDown).LineStyle = xlNone***.borders(xlDiagonalUp).LineStyle = xlNoneWith ***.borders(xlEdgeLeft).LineStyle = xlContinuous.ThemeColor = 2.TintAndShade = 0.Weight = xlMediumEnd WithWith ***.borders(xlEdgeTop).LineStyle = xlContinuous.ThemeColor = 2.TintAndShade = 0.Weight = xlMediumEnd WithWith ***.borders(xlEdgeBottom).LineStyle = xlContinuous.ThemeColor = 2.TintAndShade = 0.Weight = xlMediumEnd WithWith ***.borders(xlEdgeRight).LineStyle = xlContinuous.ThemeColor = 2.TintAndShade = 0.Weight = xlMediumEnd WithEnd Sub 。
【遠眺圖 遠眺圖高清圖片】本文到此分享完畢 , 希望對大家有所幫助 。