艺术字，本是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

　　以上代码的功能是，在每张工作表中的中间，动态添加艺术字。

　　以上的所有代码均测试成功！如果您想学习这方面的知识，不妨根据上述的代码加以借鉴。希望本文对你有所帮助。