powerpoint中vba移动图片代码

在PowerPoint VBA（Visual Basic for Applications）中，你可以编写宏来自动移动图片。这里是一个简单的例子，说明如何使用VBA移动图片：

Sub MovePicture()
    Dim slide As Slide
    Dim shape As Shape
    Dim oldSlideIndex As Integer
    Dim newSlideIndex As Integer
    
    ' 设置原始幻灯片和图片的位置信息
    oldSlideIndex = 1 ' 这里假设图片在第1张幻灯片
    Set slide = ActivePresentation.Slides(oldSlideIndex)
    Set shape = slide.Shapes("图片名称") ' 替换 "图片名称" 为你需要移动的具体图片名

    ' 新位置，例如从第1张移到第5张
    newSlideIndex = 5

    ' 移动图片到新幻灯片
    slide.Delete
    Set slide = ActivePresentation.Slides.Add(newSlideIndex, PpLayoutType.ppLayoutText) ' 添加新幻灯片并设置布局
    slide.Shapes.PasteSpecial Link:=False ' 将图片复制过去而不是链接
End Sub

在这个示例中，你需要替换`oldSlideIndex`和"图片名称"为你实际的操作需求。执行这个宏后，图片会从原位置移到指定的新幻灯片。