在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
答案 0 :(得分:0)
您不需要使用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
我承认我还没有找到如何播放幻灯片或在播放后倒带的方法。