PowerPoint VBA添加SmartArt避免替换内容框的解决方案咨询

问题根源 #

PowerPoint的AddSmartArt方法在带内容容器的版式中，默认会将SmartArt嵌入到内容容器中（即使容器仍存在于Shapes列表，实际已被SmartArt占用）；若内容容器有文本，会触发旧版Diagram对象创建，导致不可控的对象替换。

解决方法 #

核心思路是强制SmartArt作为独立形状插入，不关联默认内容容器，以下两种实现方式：

方法1：指定位置直接插入独立SmartArt

通过AddSmartArt的完整参数，明确设置SmartArt的坐标和尺寸，避免PowerPoint自动附着到内容容器：

Sub AddIndependentSmartArt()
    Dim curSlide As Slide
    Dim myShape As Shape
    Dim oSALayout As SmartArtLayout
    
    ' 替换为目标幻灯片，可改为循环遍历所有幻灯片
    Set curSlide = ActivePresentation.Slides(1)
    Set oSALayout = Application.SmartArtLayouts("urn:microsoft.com/office/officeart/2005/8/layout/hChevron3")
    
    ' 明确位置和尺寸，创建独立SmartArt
    Set myShape = curSlide.Shapes.AddSmartArt( _
        Layout:=oSALayout, _
        Left:=100, Top:=150, Width:=400, Height:=200)
End Sub

方法2：先创建空白形状再应用SmartArt布局

先创建一个空白形状（可设置为无填充无轮廓），再将SmartArt布局应用到该形状，完全控制载体：

Sub AddSmartArtToNewShape()
    Dim curSlide As Slide
    Dim blankShape As Shape
    Dim oSALayout As SmartArtLayout
    
    Set curSlide = ActivePresentation.Slides(1)
    Set oSALayout = Application.SmartArtLayouts("urn:microsoft.com/office/officeart/2005/8/layout/hChevron3")
    
    ' 创建空白矩形作为SmartArt载体，隐藏填充和轮廓
    Set blankShape = curSlide.Shapes.AddShape( _
        Type:=msoShapeRectangle, _
        Left:=100, Top:=150, Width:=400, Height:=200)
    blankShape.Fill.Visible = msoFalse
    blankShape.Line.Visible = msoFalse
    
    ' 应用SmartArt布局到空白形状
    blankShape.ApplySmartArtLayout oSALayout
End Sub

额外注意事项 #

• 若需遍历所有幻灯片，可套入For Each curSlide In ActivePresentation.Slides循环，根据版式类型跳过无需处理的幻灯片（如纯标题页）。
• 若要完全避开内容容器，可先遍历幻灯片Shapes集合，通过PlaceholderFormat.Type = ppPlaceholderContent识别内容容器，然后在其非重叠区域插入SmartArt。

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