如何在Powerpoint VBA中编写？‘设置幻灯片上的视频文件以在幻灯片放映模式下自动启动。’

Sub AutoStartVideo()
    Dim slide As Slide
    Dim shape As Shape
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为视频文件
            If shape.Type = msoMedia Then
                ' 检查媒体类型是否为视频
                If shape.MediaType = ppMediaTypeMovie Then
                    ' 设置视频为自动播放
                    shape.AnimationSettings.PlaySettings.PlayOnEntry = True
                End If
            End If
        Next shape
    Next slide
End Sub