去除形状轮廓

去除形状轮廓 公开 已发布

Crucialm 分享于 16小时24分钟前 | 0 | 3
如何安装动作?

适用于
分类(旧)
关键词



更多信息
分享时间 16小时24分钟前
最后更新 16小时24分钟前
修订版本 0
用户许可 -未设置-
Quicker版本 1.45.0
动作大小 992 B

分享到

【本动作基于或参考如下动作开发:https://getquicker.net/sharedaction?code=1c42d061-c190-419c-57de-08dab1a30ccd
「选中形状,去除形状轮廓」

简介

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分钟前

最近讨论

暂无讨论