六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

vba控制Excel中的艺术字实例

Admin | 2009-11-12 12:41:35 | ReadNums | 6592 | 标签 六合开奖结果现场直播 | 打印本页
     

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

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

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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日