PPT图片尺寸统一

exln

OFFICE365;代码如下，运行后，只有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
                        .Width = 300
             .LockAspectRatio = 1
           End With
        End If
     Next
   Next
End Sub

lss001

查看一下ppt图片尺寸与ppt幻灯片尺寸是否相同？

wang-way

那么说你的条件判断语句有问题   type 可能不对

exln

lss001 发表于 2024-6-21 18:31
查看一下ppt图片尺寸与ppt幻灯片尺寸是否相同？

ppt幻灯片尺寸是页面的宽度吗

exln

wang-way 发表于 2024-6-21 19:57
那么说你的条件判断语句有问题   type 可能不对

但是第一张PPT图片是可以修改的，后面的页面图片就改不了

lss001

exln 发表于 2024-6-22 09:49
但是第一张PPT图片是可以修改的，后面的页面图片就改不了

请上传附件实测！楼上只能是猜测？

ynzsvt

  Debug.Print myShape.Type
不放加上看看图片类型
另外防错就不要了也可以看到错误原因。

exln

lss001 发表于 2024-6-22 13:57
请上传附件实测！楼上只能是猜测？

这个是源文件哈，大小限制，只能放一点点图片哈

exln

ynzsvt 发表于 2024-6-22 14:17
Debug.Print myShape.Type
不放加上看看图片类型
另外防错就不要了也可以看到错误原因。

源文件已经上传了哈

ynzsvt

代码运行发现图片是14不是13，改了即正常。我这按你的代码第一页也不变化。

1. Sub adjust()
   
2. Dim mySlide As Slide
   
3. Dim myShape As Shape, i_Temp As Integer
   
4. ' On Error Resume Next
   
5. For Each mySlide In ActivePresentation.Slides
   
6.   For Each myShape In mySlide.Shapes
   
7.   Debug.Print myShape.Type
   
8.    If myShape.Type = 14 Then
   
9.     With myShape
   
10.      .Width = 300
    
11.      .LockAspectRatio = 1
    
12.     End With
    
13.    End If
    
14.   Next
    
15. Next
    
16. End Sub

复制代码