PowerPoint VBA教程:AddComment方法

添加一个批注。返回一个代表新批注的Shape对象。

expression.AddComment(Left, Top, Width, Height)

expression  必选。该表达式返回一个 Shapes对象。

Left,Top  可选。Single 类型。批注边界框左上角相对于文档左上角的位置(以磅为单位)。默认情况下,批注位于文档的左上角。

Width,Height  可选。Single 类型。批注的高度和宽度,以磅为单位。默认情况下,批注的高和宽均为 100 磅。

VBA示例

本示例向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

上页:PowerPoint VBA教程:AddCallout方法 下页:PowerPoint VBA教程:AddConnector方法

PowerPoint VBA教程:AddComment方法

PowerPoint VBA教程:AddConnector方法 PowerPoint VBA教程:AddCurve方法
PowerPoint VBA教程:AddDiagram方法 PowerPoint VBA教程:AddEffect方法
PowerPoint VBA教程:AddLabel方法 PowerPoint VBA教程:AddLine方法
PowerPoint VBA教程:AddMediaObject方法 PowerPoint VBA教程:AddNode方法
PowerPoint VBA教程:AddNodes方法 PowerPoint VBA教程:AddOLEObject方法
PowerPoint VBA教程:AddPeriods方法 PowerPoint VBA教程:AddPicture方法
PowerPoint VBA教程:AddPlaceholder方法 PowerPoint VBA教程:AddPolyline方法
PowerPoint VBA教程:AddShape方法 PowerPoint VBA教程:AddTable方法
PowerPoint VBA教程:AddTextbox方法 PowerPoint VBA教程:AddTextEffect方法
PowerPoint VBA教程:AddTitle方法 PowerPoint VBA教程:AddTitleMaster方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号