一键调整PPT所有页面图片大小与位置宏 |
您所在的位置：网站首页 › ppt如何调整模板尺寸和大小一致 › 一键调整PPT所有页面图片大小与位置宏 |
一键调整PPT所有页面图片大小与位置宏
|
Sub adjust()
Dim mySlide As Slide
Dim myShape As Shape, i_Temp As Integer
On Error Resume Next
For Each mySlide In ActivePresentation.Slides
For Each myShape In mySlide.Shapes
If myShape.Type = msoPicture Then
With myShape
.Left = 55
.Top = 80
.Height = 260
.Width = 600
End With
End If
Next
Next
End Sub
1. 打开宏
2. 输入宏的名字，点击创建
3. 拷贝开头的代码，之前覆盖编辑框里的所有代码
4. 运行=》运行子过程/用户窗体（或者直接F5）
5. 查看效果，一键调整成功。 PS: 图片大小及位置可根据自己需求调整.Left/.Top/.Height/.Width 参数 |
【本文地址】
今日新闻 |
推荐新闻 |