【资料图】

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。

本文就为大家分享到这里，希望小伙伴们会喜欢。