user_nmtwy 发表于 2016-4-12 13:22:37

幻灯中插入100张大小一致的图片

想在幻灯中插入100张大小一致的图片，可是原始图片很大 怎么快速插入并且大小都一致？

user_afiib 发表于 2016-4-12 16:42:19

到 PPT 区看看

user_yrfhjnhf 发表于 2016-4-12 16:54:26

将图片统一设成幻灯片的背景时，请用以下过程：
Sub AutoFillBackGround()
With Application.FileSearch
    .NewSearch
    '在下一行双引号中输入图片文件夹位置
    .LookIn = "c:Documents and SettingsXXMy DocumentsMy Pictures"
    .FileName = "*.jpg" '在左边双引号中输入图片类型
    Dim i As Single
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
            ActivePresentation.Slides.Add i, ppLayoutBlank
            ActivePresentation.Slides(i).Select
            With ActiveWindow.Selection.SlideRange
                .FollowMasterBackground = msoFalse
                .DisplayMasterShapes = msoTrue
                With .Background
                  .Fill.Visible = msoTrue
                  .Fill.ForeColor.RGB = RGB(255, 255, 255)
                  .Fill.BackColor.SchemeColor = ppAccent1
                  .Fill.Transparency = 0#
                  .Fill.UserPicture Application.FileSearch.FoundFiles(i)
                End With
            End With
      Next i
    End If
End With
End Sub

user_iuxht 发表于 2016-4-12 17:01:55

好办法{:5_203:}

wh443927181 发表于 2016-4-12 17:26:00

3L的方法非常好！
页: [1]
查看完整版本: 幻灯中插入100张大小一致的图片