有没有可以一键自动设置ppt的工具？

sunydays

优势是，做一个PPT，不包括打字时间，几秒钟就可以完成。
主题在设计选项卡下，直接一键应用即可
主题可以自定义参考一下：（6-8分之间是8楼所说的部分）
http://edu.51cto.com/center/course/lesson/index?id=94062 (20.19 KB, 下载次数: 101)

2018-3-26 10:14 上传

点击文件名下载附件

青山翠谷

前一个回复里，可能因为有链接地址所以没显示出来

主题一键完成，在设计选项卡下
主题可以自定义
主题一次设置好以后可以多次使用

lqylqylqy

Sub InsertPic()
    Dim i As Integer
    Dim MyDialog As FileDialog, vrtSelectdeItem As Variant   
    On Error Resume Next
    '定义一个文件选取对话框
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
        .Filters.Clear  '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.jpg;*.bmp", 1   '增加筛选器的项目为所有jpg、bmp等文件
        .AllowMultiSelect = True                    '允许多项选择
        If .Show = -1 Then

            If ActivePresentation.Slides.Count < .SelectedItems.Count Then
                For i = 1 To .SelectedItems.Count - ActivePresentation.Slides.Count
                    ActivePresentation.Slides.Add(Index:=ActivePresentation.Slides.Count, Layout:=ppLayoutText).Select
                Next i
            End If

            i = 1
            For Each vrtselecteditem In .SelectedItems  '在所有选取项目中循环
                ActivePresentation.Slides(i).Select
                With ActiveWindow.Selection.SlideRange
                    .FollowMasterBackground = msoFalse
                    .Background.Fill.UserPicture vrtselecteditem
                End With
                i = i + 1
            Next vrtselecteditem
        
        End If
    End With

End Sub