批量修改艺术字内容失败，找不出原因

ndt3

麻烦哪位老师帮忙看看，批量修改艺术字内容不能工作。十分感谢！
代码如下：


Sub jrmc() '修改艺术字
    Dim oWK As Worksheet
    Set oWK = Excel.ThisWorkbook.Worksheets("图片")
    Dim oSP As Shape
    With oWK
        For Each oSP In .Shapes
            With oSP
            
                If .Type = 1 Then 'msoTextEffect为艺术字

                 
                  '  .TextFrame2.TextRange.Characters.Text = "321"
           ' .TextEffect.Text = "321"
         
                    '.TextFrame2.TextRange.Font.Size = 16
                End If
            End With
        Next
    End With
    MsgBox "操作完成"
End Sub

找到原因了，改为=1就可以了！谢谢各位老师！

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

ndt3

蓝桥玄霜 发表于 2023-3-29 12:42
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复 ...

老师，附件上传了，谢谢您！