PPT中能否批量调整不在同一张幻灯片中的照片大小位置
发布网友
发布时间：2022-04-23 04:37
共3个回答
热心网友
时间：2023-08-20 18:50
1.找到需要修改的图片，在桌面”新建文件夹“，把这些图片都移到此文件夹中。这样，避免打开ppt后四处找图的麻烦。
2.打开ppt，点击“插入”，选择“图片”→“来自文件”打开，也可用“Alt+ipf“快捷键。找到刚才建好的文件夹，拖动鼠标全选（或任选一张图片，按”Ctrl+A“键），点击”插入“。
3.这时我们看到，所有图片均处于选中状态。若因自己不小心点了图片外的空白处，或者选择了一张图片，只需按下”Ctrl+A“键，所以图片又都处于选中状态。
4.把鼠标移到这堆图片中，当出现四个方向的移动箭头时，右击鼠标，选择”设置图片格式“。打开后，选择尺寸。
5.去掉”锁定纵横比例“。输入”高度“和”宽度“，预览图片大小。如果觉得合适，就勾选”锁定纵横比例“，点击”确定“。
6.鼠标右击每一张图片，保存。至此，批量修改图片大小完成。
热心网友
时间：2023-08-20 18:50
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
热心网友
时间：2023-08-20 18:51
追答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
