1

我在我的 powerpoint 演示文稿中插入了一个 gif，我想使用 vba 将它导出到一个文件夹中。我试图使用以下代码来做到这一点：

 For Each s In ActivePresentation.Slides
    shapeAniNum = 0
    shapeNum = s.TimeLine.MainSequence.count
    While shapeNum <> 0
       shapeAniNum = shapeAniNum + 1
       animationNum = animationNum + 1
       If InStr(s.TimeLine.MainSequence(shapeAniNum).Shape.AlternativeText, ".gif") <> 0 Or InStr(s.TimeLine.MainSequence(shapeAniNum).Shape.AlternativeText, ".GIF") <> 0 Then
                s.TimeLine.MainSequence(shapeAniNum).Shape.Export "C:\dink_template\created_files\Animage" & animationNum & ".gif", ppShapeFormatGIF
    .....

这会将文件保存在 created_files 文件夹中，文件扩展名为 gif，但不再是动画。如何进行导出过程并维护 gif 动画？

4

0 回答 0