VBA之AddComment方法

风铃中的刀

　　 　　 　　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

pistol

真好。。。。。。。。。  

songlgh

好啊，，不错、、、、