远眺图 远眺图高清图片

大家好,小编来为大家解答以上的问题 。远眺图高清图片 , 远眺图这个很多人还不知道,现在让我们一起来看看吧!

远眺图 远眺图高清图片

文章插图
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 。
【远眺图 远眺图高清图片】本文到此分享完毕 , 希望对大家有所帮助 。