求助！！！，PPT图片批量调整位置及大小。

sarden1

求助，PPT图片批量调整位置及大小，只调整整改前及整改后的图片，调整完后两个对比图片位置不动。共有7，8个文档，每个文档有400多页，一页页调整实太大多了！！！
下面的调整完后所有图片都叠在一起。
求助高手！！！

Sub 批量调整图片()
  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 = 20
            .Top = 100
            .Height = 430
            .Width = 430
          End With
       End If
    Next
  Next
End Sub

仙女也爱吃醋

搜插件比较好用

dushaguo

一张幻灯里有四个图，都调成一样的吗，如果分别不同大小就不好实现了

dushaguo

给你个我以前用的共同学习一下

chxw68

1. Sub test()
   
2.   With Application
   
3.     With .ActivePresentation
   
4.       For i = 1 To .Slides.Count
   
5.         With .Slides(i)
   
6.           With .Shapes("Picture 7")
   
7.             .LockAspectRatio = msoFalse
   
8.             .Left = 20
   
9.             .Top = 100
   
10.             .Height = 430
    
11.             .Width = 430
    
12.           End With
    
13.           With .Shapes("Picture 9")
    
14.             .LockAspectRatio = msoFalse
    
15.             .Left = 490
    
16.             .Top = 100
    
17.             .Height = 430
    
18.             .Width = 430
    
19.           End With
    
20.         End With
    
21.       Next
    
22.     End With
    
23.   End With
    
24. End Sub
    

复制代码

chxw68

详见附件。

weiyingde

chxw68 发表于 2020-3-28 16:21
详见附件。

褚老师多面手，全面出击

chxw68

weiyingde 发表于 2020-3-29 09:16
褚老师多面手，全面出击

呵呵，觉得PPT VBA也挺有意思的，学着玩。

weiyingde

chxw68 发表于 2020-3-29 09:20
呵呵，觉得PPT VBA也挺有意思的，学着玩。

ppt、word 、Excel是office家族中的一胞三胎，同根同源，语法、和有些对象类型基本相似，又同于VBA开发平台，大同小异，况且褚老师你功底深厚，字典和数组技术精纯，触类旁通，一通百通，要不了多长时间，定会雄霸PPT版园。

chxw68

weiyingde 发表于 2020-3-29 09:31
ppt、word 、Excel是office家族中的一胞三胎，同根同源，语法、和有些对象类型基本相似，又同于VBA开发平 ...

呵呵，过奖了。