Coding works for WORD but not POWERPOINT, how should i modify it?

[rbuzz]

I would like to insert every 6 pictures in a new slide of powerpoint with it's file name at the centre bottom of the image itself.

The below coding works for word but not on powerpoint and i would like to do further editing.

1) modify coding so it'll work on powerpoint as well
2) current in word it's showing 1 image per page, can we modify to show 6 images per slide when it comes to powerpoint?
3) the file name in word currently showing the format of the file e.g. jpg / .png, how could i skip that?
4) the file name is showing on the bottom left in word, how can i make it centre bottom?

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
           Do While xFile <> ""
               If UCase(Right(xFile, 3)) = "PNG" Or _
                   UCase(Right(xFile, 3)) = "TIF" Or _
                   UCase(Right(xFile, 3)) = "JPG" Or _
                   UCase(Right(xFile, 3)) = "GIF" Or _
                   UCase(Right(xFile, 3)) = "BMP" Then
                   With Selection
                       .InlineShapes.AddPicture xPath & "" & xFile, False, True
                       .InsertAfter vbCrLf
                       .MoveDown wdLine
                       .Text = xFile & Chr(10)
                       .MoveDown wdLine
                   End With
               End If
               xFile = Dir()
            Loop
        End If
    End If
End Sub