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

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

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