PPT中能否批量调整不在同一张幻灯片中的照片大小位置

Question

我祥细地说一下，比如我要做一个300页的PPT，在每一页中都要加入一张不同的照片以及不同的说明文字。
照片我已经用PPT的“插入－－相册”这个功能自动解决了，是每张幻灯片中各一页照片，但是问题也就随之而来了，自动插入的照片是默认居中的，那么我要加的文字内容就基本没位置写了，我想把所有插入的照片调整到占一页幻灯片一半的位置，另一半用来写文字说明，有没有办法批量调整这些不在同一页幻灯片中的照片的大小及位置？就是统一调整到每一页幻灯片的固定地方，给我留出写文字说明的地方？

Answer 1

　　1.找到需要修改的图片，在桌面”新建文件夹“，把这些图片都移到此文件夹中。这样，避免打开ppt后四处找图的麻烦。

　　2.打开ppt，点击“插入”，选择“图片”→“来自文件”打开，也可用“Alt+ipf“快捷键。找到刚才建好的文件夹，拖动鼠标全选（或任选一张图片，按”Ctrl+A“键），点击”插入“。

　　3.这时我们看到，所有图片均处于选中状态。若因自己不小心点了图片外的空白处，或者选择了一张图片，只需按下”Ctrl+A“键，所以图片又都处于选中状态。

　　4.把鼠标移到这堆图片中，当出现四个方向的移动箭头时，右击鼠标，选择”设置图片格式“。打开后，选择尺寸。

　　

　　5.去掉”锁定纵横比例“。输入”高度“和”宽度“，预览图片大小。如果觉得合适，就勾选”锁定纵横比例“，点击”确定“。

　　6.鼠标右击每一张图片，保存。至此，批量修改图片大小完成。

‍

Answer 2

'两张图左右并排
ActivePresentation.Slides(i).Shapes(1).Left = 0
ActivePresentation.Slides(i).Shapes(1).Top = (ActivePresentation.SlideMaster.Height -ActivePresentation.Slides(i).Shapes(1).Height)/ 2

ActivePresentation.Slides(i).Shapes(2).Left = ActivePresentation.SlideMaster.Width / 2
ActivePresentation.Slides(i).Shapes(2).Top = (ActivePresentation.SlideMaster.Height -ActivePresentation.Slides(i).Shapes(2).Height)/ 2

'两张图上下排
ActivePresentation.Slides(i).Shapes(1).Left = (ActivePresentation.SlideMaster.Width-ActivePresentation.Slides(i).Shapes(1).Width) / 2
ActivePresentation.Slides(i).Shapes(1).Top = 0
ActivePresentation.Slides(i).Shapes(1).Left = (ActivePresentation.SlideMaster.Width -ActivePresentation.Slides(i).Shapes(2).Width)/ 2
ActivePresentation.Slides(i).Shapes(1).Top = ActivePresentation.SlideMaster.Height / 2

Answer 3

如果自己懂VBA呢，可以用宏代码来批量调整。追问

呃。。。不懂，能否详细说下？

追答

For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
For j = 1 To ActiveWindow.Selection.SlideRange.Shapes.Count
If ActiveWindow.Selection.SlideRange.Shapes(j).Type = 13 Then '如果该对象为图片
ActiveWindow.Selection.SlideRange.Shapes(j).Top = 50 '设置图片的上面的边距
ActiveWindow.Selection.SlideRange.Shapes(j).Left = 50 '设置图片的左边的边距
r = ActiveWindow.Selection.SlideRange.Shapes(j).Height / ActiveWindow.Selection.SlideRange.Shapes(j).Width '保存原始图片的长宽比
ActiveWindow.Selection.SlideRange.Shapes(j).Height = 200 '设置图片的新高度值
ActiveWindow.Selection.SlideRange.Shapes(j).Width = ActiveWindow.Selection.SlideRange.Shapes(j).Height / r '设置图片的新宽度值，等比放大或缩小
End If
Next j
End With
Next

本回答被提问者采纳