大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

TextEffectFormat设置艺术字,TextFrame代表文本框中的SHAPE对象

Admin | 2013-9-28 17:23:51 | ReadNums | 2342 | 标签 PowerPoint教程 | 打印本页
     

  一、TextEffectFormat对象

  包含应用于艺术字对象的属性和方法。

  使用 TextEffectFormat 对象

  使用 TextEffect 属性返回 TextEffectFormat 对象。以下示例为 myDocument 上的第一个形状设置字体名称及格式。要运行本示例,第一个形状必须是艺术字对象。

  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes(1).TextEffect
      .FontName = "Courier New"
      .FontBold = True
      .FontItalic = True
  End With

  二、TextFrame对象

  代表 Shape 对象中的文字框。包含文本框中的文本,还包含控制文本框对齐方式和缩进方式的属性和方法。

  使用 TextFrame 对象

  使用 TextFrame 属性返回 TextFrame 对象。以下示例向 myDocument 中添加一个矩形,向矩形中添加文本,然后设置文本框的边距。

  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginBottom = 10
    .MarginLeft = 10
    .MarginRight = 10
    .MarginTop = 10
  End With

  使用 HasTextFrame 属性决定形状是否含有文本框,使用 HasText 属性决定文本框是否含有文本,如以下示例所示。

  Set myDocument = ActivePresentation.Slides(1)
  For Each s In myDocument.Shapes
      If s.HasTextFrame Then
          With s.TextFrame
              If .HasText Then MsgBox .TextRange.Text
          End With
      End If
  Next


问题未解决:在线咨询我要在线咨询问题

网友评论

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