PowerPoint VBA教程:DoVerb方法

请求 OLE对象执行其中一个动词。使用ObjectVerbs属性确定 OLE对象的有效动词。

expression.DoVerb(Index)

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

Index  可选。Integer 类型。要执行的动词。如果省略该参数,则执行默认动词。

VBA示例

本示例对活动演示文稿中第一张幻灯片的第三个形状执行默认动词,其中第三个形状是链接或嵌人的 OLE对象。


With ActivePresentation.Slides(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        .OLEFormat.DoVerb
    End If
End With

本示例对活动演示文稿中第一张幻灯片的第三个形状执行默认动词“Open”,其中第三个形状是支持动词“Open”的 OLE对象。


With ActivePresentation.Slides(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        For Each sVerb In .OLEFormat.ObjectVerbs
            nCount = nCount + 1
            If sVerb = "Open" Then
                .OLEFormat.DoVerb nCount
                Exit For
            End If
        Next
    End If
End With

上页:PowerPoint VBA教程:Distribute方法 下页:PowerPoint VBA教程:DrawLine方法

PowerPoint VBA教程:DoVerb方法

PowerPoint VBA教程:DrawLine方法 PowerPoint VBA教程:Duplicate方法
PowerPoint VBA教程:EndConnect方法 PowerPoint VBA教程:EndDisconnect方法
PowerPoint VBA教程:EndNamedShow方法 PowerPoint VBA教程:EndReview方法
PowerPoint VBA教程:EraseDrawing方法 PowerPoint VBA教程:Exit方法
PowerPoint VBA教程:Export方法 PowerPoint VBA教程:Find方法
PowerPoint VBA教程:FindBySlideID方法 PowerPoint VBA教程:FindFirstAnimationFor方法
PowerPoint VBA教程:FindFirstAnimationForClick方法 PowerPoint VBA教程:First方法
PowerPoint VBA教程:FitToPage方法 PowerPoint VBA教程:Flip方法
PowerPoint VBA教程:Follow方法 PowerPoint VBA教程:FollowHyperlink方法
PowerPoint VBA教程:GotoNamedShow方法 PowerPoint VBA教程:GotoSlide方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号