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

letp520

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

zlfliulinyan

在线等，麻烦各位大佬了

user_xfjsv

在网上找了一个;代码如下:
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

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

zhouknight

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

fanruike

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