遠(yuǎn)眺圖有用嗎（遠(yuǎn)眺圖）

關(guān)于遠(yuǎn)眺圖有用嗎，遠(yuǎn)眺圖這個(gè)問題很多朋友還不知道，今天小六來為大家解答以上的問題，現(xiàn)在讓我們一起來看看吧！

1、我有，這個(gè)是用Excel造出來的，你可以根據(jù)自己的需要自己調(diào)整；造好后，截圖另存為高清圖片實(shí)現(xiàn)的。

2、這個(gè)是實(shí)現(xiàn)的VBA代碼。

3、Sub 繪制遠(yuǎn)眺圖()***.screenupdating = False***.clearDim i As Long? ? For i = 0 To 100? ? Range(Range("DZ150").Offset(i * -1, i * -1), Range("DZ150").Offset(i + 1, i + 1)).Select? ? MediumBorders? ? Next? ?***.screenupdating = 1End SubSub MediumBorders()***.borders(xlDiagonalDown).LineStyle = xlNone? ? ***.borders(xlDiagonalUp).LineStyle = xlNone? ? With ***.borders(xlEdgeLeft)? ? ? ? .LineStyle = xlContinuous? ? ? ? ?.ThemeColor = 2? ? ? ? .TintAndShade = 0? ? ? ? .Weight = xlMedium? ? End With? ? With ***.borders(xlEdgeTop)? ? ? ? .LineStyle = xlContinuous? ? ? ? ?.ThemeColor = 2? ? ? ? .TintAndShade = 0? ? ? ? .Weight = xlMedium? ? End With? ? With ***.borders(xlEdgeBottom)? ? ? ? .LineStyle = xlContinuous? ? ? ? ?.ThemeColor = 2? ? ? ? .TintAndShade = 0? ? ? ? .Weight = xlMedium? ? End With? ? With ***.borders(xlEdgeRight)? ? ? ? .LineStyle = xlContinuous? ? ? ? ?.ThemeColor = 2? ? ? ? .TintAndShade = 0? ? ? ? .Weight = xlMedium? ? End WithEnd Sub。

本文分享完畢，希望對(duì)大家有所幫助。

標(biāo)簽：