大家好,小东方来为大家解答以上的问题。远眺图高清图片，远眺图这个很多人还不知道,现在让我们一起来看看吧！
1、我有，这个是用Excel造出来的，你可以根据自己的需要自己调整；造好后，截图另存为高清图片实现的。
2、这个是实现的VBA代码。
3、Sub 绘制远眺图()***.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。
本文到此分享完毕，希望对大家有所帮助。
