| 分享时间 | 16小时24分钟前 |
| 最后更新 | 16小时24分钟前 |
| 修订版本 | 0 |
| 用户许可 | -未设置- |
| Quicker版本 | 1.45.0 |
| 动作大小 | 992 B |
Sub RemoveSelectedShapeOutline()
On Error Resume Next
Dim shp As Shape
For Each shp In ActiveWindow.Selection.ShapeRange
shp.Line.Visible = msoFalse
Next shp
End Sub
| 修订版本 | 更新时间 | 更新说明 |
|---|---|---|
| 0 | 16小时24分钟前 |