PPT VBA 固定2个图片的位置

hai0625

每张PPT上有2张图片
希望实现的功能：
宏一：第一张图片的位置是（1.91cm，6.77cm），第二张图片的位置是（13.53cm，6.77cm），每张PPT上的2张图片都是这个位置。
宏二：交换两个图片的位置
这两个宏可以分别运行
Sub SlideLoop()
    Dim osld As Slide
    Dim oSh As Shape
    For Each osld In ActivePresentation.Slides
        ' check each shape on the slide
        ' is it an image or whatever you're looking for?
        For Each oSh In osld.Shapes
            With oSh
                If .Type = msoLinkedPicture _
                Or .Type = msoPicture Then
                .Height = cm2Points(7.98)
                .Width = cm2Points(10.8)
                .Left = cm2Points(1.91)
                .Top = cm2Points(6.77)
                End If
            End With
        Next    ' Shape
    Next osld   ' Slide

End Sub

Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function

这个宏会把两个图片重叠到一块，怎么才能把两个图片的位置分别固定呢？谢谢了！
2_Pictures.7z (1.88 MB, 下载次数: 13)

2015-9-25 12:21 上传

点击文件名下载附件