如何解决下面问题

老师：你好！
    我在运行Sub InsertPic（）
　　Dim i As Integer
　　For i = 1 To ActivePresentation.Slides.Count
　　ActivePresentation.Slides（i）.Select
　　With ActiveWindow.Selection.SlideRange
　　.FollowMasterBackground = msoFalse
　　.Background.Fill.UserPicture "C：\Pictures\" & i & ".jpg"
　　End With
　　Next
　　End Sub
    出现下面问题：
    运行时错误‘－2147467259（80004005）’
   方法'UserPicture'作用于对象‘FillFormat'时 失败。请教老师如何解决？
            学生