找回密码
 立即注册
搜索

VBA之AddComment方法

2
回复
774
查看
[复制链接]

4

主题

10

帖子

108

幻币

一流武者

Rank: 3Rank: 3

积分
279
QQ
2017-10-14 14:54:11 显示全部楼层 |阅读模式
        AddComment 方法
  expression.AddComment(Left, Top, Width, Height)
  expression 必选。该表达式返回一个 Shapes 对象。
  Left,Top 可选。Single 类型。批注边界框左上角相对于文档左上角的位置(以磅为单位)。默认情况下,批注位于文档的左上角。
  Width,Height 可选。Single 类型。批注的高度和宽度,以磅为单位。默认情况下,批注的高和宽均为 100 磅。
  示例
  本示例向 myDocument 中添加包含文本“Test Comment”的批注。
  Set myDocument = ActivePresentation.Slides(1)
  With myDocument.Shapes.AddComment(100, 100, 150, 150)
   .TextFrame.TextRange.Text = .TextFrame _
   .TextRange.Text + "Test Comment"
  End With

PPT学习论坛
回复

使用道具 举报

0

主题

4

帖子

96

幻币

一流武者

Rank: 3Rank: 3

积分
212
QQ
2017-10-15 08:46:01 显示全部楼层
真好。。。。。。。。。  
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

4

帖子

57

幻币

一流武者

Rank: 3Rank: 3

积分
335
QQ
2017-10-20 14:13:39 显示全部楼层
好啊,,不错、、、、  
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册