如何使用VBA在PowerPoint中设置视频的裁切设置？

Sub SetVideoCropSettings()
    Dim slide As Slide
    Dim shape As Shape
    
    ' 设置视频裁切的左、上、宽、高的百分比值
    Dim leftCrop As Double
    Dim topCrop As Double
    Dim widthCrop As Double
    Dim heightCrop As Double
    
    ' 设置要裁切的视频所在的幻灯片编号和形状编号
    Dim slideIndex As Integer
    Dim shapeIndex As Integer
    
    slideIndex = 1 ' 要裁切的视频所在的幻灯片编号
    shapeIndex = 1 ' 要裁切的视频形状编号
    
    ' 设置裁切的百分比值，范围为0到1之间
    leftCrop = 0.1 ' 左裁切的百分比值（例如，10%）
    topCrop = 0.1 ' 上裁切的百分比值
    widthCrop = 0.8 ' 宽度裁切的百分比值
    heightCrop = 0.8 ' 高度裁切的百分比值
    
    ' 获取要裁切的视频形状
    Set slide = ActivePresentation.Slides(slideIndex)
    Set shape = slide.Shapes(shapeIndex)
    
    ' 检查形状是否为视频类型
    If shape.Type = msoMedia Then
        If shape.MediaType = ppMediaTypeMovie Then
            ' 设置视频裁切
            shape.AnimationSettings.PlaySettings.Placement = ppAnimateDoNotDisturb
            shape.AnimationSettings.PlaySettings.AdvanceMode = ppAdvanceOnTime
            shape.AnimationSettings.PlaySettings.LoopUntilStopped = False
            shape.AnimationSettings.PlaySettings.StopAfterSlides = 0
            
            shape.AnimationSettings.PlaySettings.HideWhileNotPlaying = True
            shape.AnimationSettings.PlaySettings.HideWhilePlaying = False
            
            shape.AnimationSettings.PlaySettings.MuteWhileNotPlaying = True
            shape.AnimationSettings.PlaySettings.MuteWhilePlaying = False
            
            shape.AnimationSettings.PlaySettings.RewindMovie = False
            shape.AnimationSettings.PlaySettings.Preroll = False
            
            shape.AnimationSettings.PlaySettings.Animate = True
            shape.AnimationSettings.PlaySettings.AnimateBackground = True
            
            With shape.AnimationSettings.PlaySettings.PlacementRectangle
                .Left = leftCrop
                .Top = topCrop
                .Width = widthCrop
                .Height = heightCrop
            End With
        Else
            MsgBox "该形状不是视频类型。"
        End If
    Else
        MsgBox "该形状不是媒体类型。"
    End If
End Sub