‘删除所有形状
Sub DeleteArrows()
Dim shp AsShape
For Each shp In ActiveSheet.Shapes
If shp.Connector = msoTrue Then
shp.Delete
End If
Next shp
End Sub
代码的图片版如下：
【怎样使用矩阵数据在工作表中绘制线条？】

猜你喜欢

• 洋甘菊有着怎样的功效
• 使用VBA实现栈结构
• excel图表R1C1样式公式
• 脸脱皮怎么办快速恢复
• 芭兰珂润肤冷霜怎么用
• 蒂佳婷安瓶精华使用顺序
• 怎样快速去痘印
• 怎样算百分比
• MATCH函数的几个使用技巧
• 淘宝支付宝有罚款可以开新店用吗？怎样重新开店？