2个回答
展开全部
还是让大师我来帮你吧,别听那些小白们或者别有用心的人瞎吹的什么秀秀了。
这种用VBA就搞定了,20行代码都不到,通吃!要啥什么秀秀哟?简直是答非所问!
打开PPT文档,按Alt+F11打开VBA编辑器,然后将下面的代码原样粘贴进去,然后按F5运行即可!
Sub ReSizePics()
Dim SlideCount As Long
SlideCount = Application.ActivePresentation.Slides.Count
For pi = 1 To SlideCount
ActivePresentation.Slides(pi).Select
For Each pic In ActivePresentation.Slides(pi).Shapes
oType = pic.Type
pic.Select
If oType = 13 Then ' 13表示图片,其他的忽略处理
pic.Width = ActivePresentation.Slides(pi).Master.Width
pic.Height = ActivePresentation.Slides(pi).Master.Height
pic.Left = 0
pic.Top = 0
'以上四行代码是将图片的尺寸设置成PPT的尺寸一样大小,并调整位置居中
End If
Next
Next
MsgBox "调整完毕!" & vbCrLf & "更多批量处理的丰富功能,请参见《文件批量处理百宝箱V10.0》", vbInformation + vbOKOnly, "消息"
End Sub
你实在不会用宏代码,那使用现成的吧;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询