Dzwebs.Net

撰写电脑技术杂文十余年

vba控制Excel中的艺术字实例

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

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

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

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

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


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231