是否可以将 Microsoft PowerPoint 2016 中现有绘图的角弄圆?
动机
我有两个相关的场景:
已有的图纸,硬角与当前幻灯片的美感不匹配。在这种情况下,从成本与收益的角度看,重新制作图纸不如直接使用旧图纸。
使用布尔“组合形状”工具创建复杂形状时,在整个过程中保持边缘圆润意味着需要付出很多额外的努力。先创建没有圆角的形状,然后再将角弄圆会更容易。
为了产生没有可见轮廓线的单色圆形,可以使用带有圆角的粗轮廓线作为解决方法,但如果需要轮廓线可见或使用渐变填充时则不能使用此方法。
答案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