|
|
每张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, 下载次数: 69)
|
|
