Office学习社区 › PowerPoint之家 › PPT2003中批量修改每个页面的图片大小和在页面的位置

letp520 发表于 2016-4-12 13:35:56

PPT2003中批量修改每个页面的图片大小和在页面的位置

PPT2003中用宏，批量修改每个页面的图片大小和在页面的位置。。。。急！

zlfliulinyan 发表于 2016-4-12 15:32:36

在线等，麻烦各位大佬了

user_xfjsv 发表于 2016-4-12 16:46:57

在网上找了一个;代码如下:
Sub 批量修改图片大小()
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
With ActiveWindow.Selection.ShapeRange
.Height = 380
.Width = 510
.Left = 200
.Top = 80
   
End With
Next
End Sub

user_hyuyy 发表于 2016-4-12 17:40:01

运行时,提示:
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
有问题.不知道怎么搞

zhouknight 发表于 2016-4-12 17:44:24

各位大佬,帮帮忙,真的一张一张改 改死我了.....555555555555

fanruike 发表于 2016-4-12 17:47:11

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 = 35.7
            .Top = 50
            .Height = 432
            .Width = 648
          End With
       End If
    Next
Next
End Sub

查看完整版本: PPT2003中批量修改每个页面的图片大小和在页面的位置