艺术字，本是word中的一个以文字形式出现的图形对象，但是，在Excel中，我们也可以使用艺术字。
而本文，要给大家讲的就是，如何在Excel中，通过VBA动态的添加艺术字、查询艺术字的属性：
下面是示例代码：
①代码
For Each myShape In Sheets(1).Shapes
If myShape.Type = msoTextEffect Then
s = s & "名称：" & myShape.Name
s = s & "文本：" & myShape.TextEffect.Text
s = s & "字体：" & myShape.TextEffect.FontName
s = s & "字号：" & myShape.TextEffect.FontSize
s = s & "对齐方式：" & myShape.TextEffect.Alignment
MsgBox (s)
End If
Next
上述代码的功能是：搜索Excel工作表一中的所有艺术字对象，返回艺术字的属性名称。
②代码
ActiveSheet.Shapes(1).TextEffect.FontItalic = True
代码功能：让艺术字添加下划线。
③代码
Dim Sh As Worksheet, i%
i = 1
For Each Sh In Sheets
Sh.Shapes.AddTextEffect(msoTextEffect13, "第" & i & "页", "宋体", 36#, msoFalse, msoFalse, 406.5, 309.75).Select
i = i + 1
Next
以上代码的功能是，在每张工作表中的中间，动态添加艺术字。
以上的所有代码均测试成功！如果您想学习这方面的知识，不妨根据上述的代码加以借鉴。希望本文对你有所帮助。