如何通过VBA修改PowerPoint艺术字的字体边框颜色与粗细？

要修改艺术字文本的字体边框（字符轮廓），不能依赖旧的.TextFrame.TextRange属性——它不支持字符级的边框样式设置。需要使用Office 2007及以后引入的.TextFrame2对象模型，它提供了更丰富的文本格式控制能力。

核心实现步骤 #

1. 定位目标艺术字对应的Shape对象（PPT中艺术字属于msoTextEffect类型的Shape）
2. 通过.TextFrame2.TextRange.Format.Line属性设置字符边框的颜色、粗细、样式等

完整代码示例 #

Sub SetWordArtTextBorder()
    Dim targetShape As Shape
    
    ' 替换为你的艺术字所在幻灯片编号和形状名称
    Set targetShape = ActivePresentation.Slides(1).Shapes("WordArt1")
    
    ' 验证是否为艺术字类型
    If targetShape.Type = msoTextEffect Then
        ' 设置整个艺术字文本的边框样式
        With targetShape.TextFrame2.TextRange.Format.Line
            .Visible = msoTrue ' 启用边框显示
            .ForeColor.RGB = RGB(255, 0, 0) ' 设置边框为红色
            .Weight = 2 ' 边框粗细设为2磅
            .DashStyle = msoLineSolid ' 设置边框为实线
        End With
        
        ' 可选：设置部分文本的边框样式（示例：第1-5个字符）
        ' With targetShape.TextFrame2.TextRange.Characters(1, 5).Format.Line
        '     .Visible = msoTrue
        '     .ForeColor.RGB = RGB(0, 0, 255)
        '     .Weight = 1.5
        ' End With
    End If
End Sub

代码说明 #

• targetShape.Type = msoTextEffect：确保操作的对象是艺术字，避免误操作其他类型的形状
• .TextFrame2.TextRange.Format.Line：控制字符级的边框（字体边框）属性
  • .Visible：控制边框是否显示，设为msoTrue启用
  • .ForeColor.RGB：通过RGB()函数自定义边框颜色
  • .Weight：设置边框粗细，单位为磅
  • .DashStyle：设置边框线型，可选值包括msoLineSolid（实线）、msoLineDash（虚线）等

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