Option Explicit
Sub ÅúÁ¿ÉèÖñ³¾°()
Dim oldallowmulti As Boolean
Dim filecount As Integer
Dim i As Integer
Dim pagecount As Integer
oldallowmulti = Application.FileDialog(msoFileDialogOpen).AllowMultiSelect
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True
Application.FileDialog(msoFileDialogOpen).Show
filecount = Application.FileDialog(msoFileDialogOpen).SelectedItems.Count
pagecount = ActivePresentation.Slides.Count
For i = 1 To filecount
ActivePresentation.Slides.Add(Index:=(i + pagecount), Layout:=ppLayoutBlank).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.FileDialog(msoFileDialogOpen).SelectedItems.Item(filecount + 1 - i)
End With
End With
Next