激活相应的功能区工具选项卡

Question

在PowerPoint幻灯片上以编程方式选择形状不会激活相应的功能区工具选项卡。

所附图像显示，当手动选择“音频形状”时，“音频工具”的功能区选项卡将自动显示。但是当通过VBA代码选择形状时oShp.Select，“音频工具”的功能区标签将不可见。

以编程方式选择形状时，是否有任何特殊技巧可以使相应的功能区工具选项卡可见？

我需要通过SendKeys方法访问一些命令，因为我无法/不知道如何设置音频形状的某些属性（例如，音频淡出时间，音量，开始）。

编辑

进一步测试。 以下代码将使功能区选项卡可见

Sub test()
    Dim pres As Presentation
    Dim sld As Slide
    Dim shp As Shape
    
    Set pres = ActivePresentation
    Set sld = pres.Slides(1)
    Set shp = sld.Shapes(1)
    
    shp.Select
End Sub

但是，如果我在select语句之后添加更多行，则功能区选项卡将不可见，例如

Sub test()
    Dim pres As Presentation
    Dim sld As Slide
    Dim shp As Shape
    
    Set pres = ActivePresentation
    Set sld = pres.Slides(1)
    Set shp = sld.Shapes(1)
    
    shp.Select
    DoEvents
    SendKeys "%jn%v%{DOWN}", True 'Volume=low
    'SendKeys "%jn%u%{UP}", True ' Start:  play across slides
    SendKeys "%jn%o5~", True 'Fade out: 5s
End Sub

Answer 1

您不需要使用SendKeys。

下面的代码将更改某些音频选项。

Sub Test()

    Dim sld As Slide
    Dim shp As Shape

    Set sld = ActivePresentation.Slides(1)
    Set shp = sld.Shapes("Recorded Sound")
    
    With shp.MediaFormat
        .FadeInDuration = 1000
        .FadeOutDuration = 1000
        .StartPoint = 0
        .EndPoint = 4000
        .Volume = 0.8
    End With

End Sub

我承认我还没有找到如何播放幻灯片或在播放后倒带的方法。