远眺图有用吗（远眺图）

关于远眺图有用吗，远眺图这个问题很多朋友还不知道，今天小六来为大家解答以上的问题，现在让我们一起来看看吧！

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。

本文分享完毕，希望对大家有所帮助。

标签：