将 PowerPoint 中现有的绘图设为圆角吗?

将 PowerPoint 中现有的绘图设为圆角吗?

是否可以将 Microsoft PowerPoint 2016 中现有绘图的角弄圆?

动机

我有两个相关的场景:

  1. 已有的图纸,硬角与当前幻灯片的美感不匹配。在这种情况下,从成本与收益的角度看,重新制作图纸不如直接使用旧图纸。

  2. 使用布尔“组合形状”工具创建复杂形状时,在整个过程中保持边缘圆润意味着需要付出很多额外的努力。先创建没有圆角的形状,然后再将角弄圆会更容易。

    为了产生没有可见轮廓线的单色圆形,可以使用带有圆角的粗轮廓线作为解决方法,但如果需要轮廓线可见或使用渐变填充时则不能使用此方法。

答案1

一点 vba 会有所帮助:

Sub RoundEm()
Dim oSl As Slide
Dim oSh As Shape

For Each oSl In ActivePresentation.Slides
    For Each oSh In oSl.Shapes
        If oSh.AutoShapeType = msoShapeRectangle Then
            oSh.AutoShapeType = msoShapeRoundedRectangle
            ' You'll want to adjust this to a much smaller number
            ' But this is for drama ;-)
            oSh.Adjustments(1) = 0.5
        End If
    Next    ' shape
Next    ' slide

End Sub

相关内容