PowerPoint VBA 如何正确删除选中形状的边框/轮廓线

问题原因说明 #

• 你观测到的shp.Line.Weight = 0残留细线是Office屏幕渲染的优化行为，仅在编辑状态的屏幕预览中显示，打印、导出PDF/图片、幻灯片放映时均不会出现，不属于功能异常。
• 设置shp.Line.Visible = False后属性面板选项未正确高亮是Office 365的已知UI同步缺陷，仅影响编辑状态的面板显示，形状的边框实际已完全隐藏，不影响任何实际使用效果。
• Line.Style和Line.DashStyle返回-2属于设计预期，该值对应Office常量msoUndefined，当线条设置为不可见时这两个属性处于未定义状态，必须先将Line.Visible设为msoTrue才能对这两个属性赋值。

正确实现代码 #

如果需要同时满足边框完全隐藏、属性面板UI同步正常的效果，使用以下代码即可：

Dim shp As Shape
' 捕获选中的形状
Set shp = ActiveWindow.Selection.ShapeRange(1)

With shp.Line
    ' 先临时启用线条，重置属性状态
    .Visible = msoTrue
    .Style = msoLineSingle
    .DashStyle = msoLineSolid
    ' 最终设置为无线条，此时GUI「无线条」选项会正常高亮
    .Visible = msoFalse
End With

补充说明 #

如果不需要纠结属性面板的UI显示状态，仅需功能生效，直接使用shp.Line.Visible = msoFalse即可满足所有使用场景的需求，无需额外设置其他参数。

内容的提问来源于stack exchange，提问作者Ike