远眺图 远眺图高清图片


远眺图 远眺图高清图片

文章插图
大家好,小龙来为大家解答以上的问题 。远眺图高清图片,远眺图这个很多人还不知道,现在让我们一起来看看吧!
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 。
【远眺图 远眺图高清图片】本文到此分享完毕,希望对大家有所帮助 。

    推荐阅读