大众计算机学习网

专门提供各种电脑教程

vba控制Excel中的艺术字实例

Admin | 2009-11-12 12:41:35 | 被阅次数 | 6927

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

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

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