your text goes herePrivate Sub CommandButton3_Click()  'PPT削除
Const CELL_FILE_PATH As String = "B3"
' ファイルパス取得
   Dim st As String        '変数を宣言する
     With Application.FileDialog(msoFileDialogFolderPicker)
 
        If .Show = True Then
            Range(CELL_FILE_PATH).Value = .SelectedItems(1)
 
          PPT削除して保存
 
        Else
        MsgBox "キャンセル実行"
        End If
 
    End With
 
End Sub
Sub PPT削除して保存()
    Dim i As Long
    Dim strArray() As String
    Dim strFile As String
    Dim strPath As String
    Dim strBook As String
    Dim Path As String
    Dim PPT_app As Object
    Dim pptx_file As String
    Dim ppt_file As String
 
高速開始
   Path = Sheets("Excel").Range("B3").Value
 
    strPath = Path & "\"
    strFile = Dir(strPath & "*" & ".ppt")
    i = 0
 
    Do While strFile <> ""
        If LCase(Right(strFile, 4)) = ".ppt" Then
            ReDim Preserve strArray(i)
            strArray(i) = strFile
            i = i + 1
        End If
        strFile = Dir()
    Loop
 
    If i = 0 Then
        MsgBox "pptファイルはありません"
    Else
 
      Set PPT_app = CreateObject("PowerPoint.Application")
      PPT_app.Visible = True
 
    For i = 0 To UBound(strArray)
 
 
        With PPT_app.Presentations.Open(strPath & strArray(i))
            strBook = Left(strArray(i), InStrRev(strArray(i), ".") - 1)
             ppt_file = strPath & strArray(i)
             pptx_file = strPath & strBook & ".pptx"
         .SaveAs Filename:=pptx_file
         .Close
       End With
       Kill ppt_file    '元ファイル削除
    Next
    MsgBox "PPT変換し元ファイルは削除しています"
    PPT_app.Quit
    End If
 
    Set PPT_app = Nothing
 
高速終了
End Sub
 

eW91ciB0ZXh0IGdvZXMgaGVyZVByaXZhdGUgU3ViIENvbW1hbmRCdXR0b24zX0NsaWNrKCkgICdQUFTliYrpmaQKQ29uc3QgQ0VMTF9GSUxFX1BBVEggQXMgU3RyaW5nID0gIkIzIgonIOODleOCoeOCpOODq+ODkeOCueWPluW+lwogICBEaW0gc3QgQXMgU3RyaW5nICAgICAgICAn5aSJ5pWw44KS5a6j6KiA44GZ44KLCiAgICAgV2l0aCBBcHBsaWNhdGlvbi5GaWxlRGlhbG9nKG1zb0ZpbGVEaWFsb2dGb2xkZXJQaWNrZXIpCgogICAgICAgIElmIC5TaG93ID0gVHJ1ZSBUaGVuCiAgICAgICAgICAgIFJhbmdlKENFTExfRklMRV9QQVRIKS5WYWx1ZSA9IC5TZWxlY3RlZEl0ZW1zKDEpCiAgICAgICAgICAgIAogICAgICAgICAgUFBU5YmK6Zmk44GX44Gm5L+d5a2YCiAgICAgICAgIAogICAgICAgIEVsc2UKICAgICAgICBNc2dCb3ggIuOCreODo+ODs+OCu+ODq+Wun+ihjCIKICAgICAgICBFbmQgSWYKICAgICAgICAKICAgIEVuZCBXaXRoCgpFbmQgU3ViClN1YiBQUFTliYrpmaTjgZfjgabkv53lrZgoKQogICAgRGltIGkgQXMgTG9uZwogICAgRGltIHN0ckFycmF5KCkgQXMgU3RyaW5nCiAgICBEaW0gc3RyRmlsZSBBcyBTdHJpbmcKICAgIERpbSBzdHJQYXRoIEFzIFN0cmluZwogICAgRGltIHN0ckJvb2sgQXMgU3RyaW5nCiAgICBEaW0gUGF0aCBBcyBTdHJpbmcKICAgIERpbSBQUFRfYXBwIEFzIE9iamVjdAogICAgRGltIHBwdHhfZmlsZSBBcyBTdHJpbmcKICAgIERpbSBwcHRfZmlsZSBBcyBTdHJpbmcKICAgIArpq5jpgJ/plovlp4sKICAgUGF0aCA9IFNoZWV0cygiRXhjZWwiKS5SYW5nZSgiQjMiKS5WYWx1ZQoKICAgIHN0clBhdGggPSBQYXRoICYgIlwiCiAgICBzdHJGaWxlID0gRGlyKHN0clBhdGggJiAiKiIgJiAiLnBwdCIpCiAgICBpID0gMAogICAgCiAgICBEbyBXaGlsZSBzdHJGaWxlIDw+ICIiCiAgICAgICAgSWYgTENhc2UoUmlnaHQoc3RyRmlsZSwgNCkpID0gIi5wcHQiIFRoZW4KICAgICAgICAgICAgUmVEaW0gUHJlc2VydmUgc3RyQXJyYXkoaSkKICAgICAgICAgICAgc3RyQXJyYXkoaSkgPSBzdHJGaWxlCiAgICAgICAgICAgIGkgPSBpICsgMQogICAgICAgIEVuZCBJZgogICAgICAgIHN0ckZpbGUgPSBEaXIoKQogICAgTG9vcAogICAgCiAgICBJZiBpID0gMCBUaGVuCiAgICAgICAgTXNnQm94ICJwcHTjg5XjgqHjgqTjg6vjga/jgYLjgorjgb7jgZvjgpMiCiAgICBFbHNlCiAgICAKICAgICAgU2V0IFBQVF9hcHAgPSBDcmVhdGVPYmplY3QoIlBvd2VyUG9pbnQuQXBwbGljYXRpb24iKQogICAgICBQUFRfYXBwLlZpc2libGUgPSBUcnVlCiAgICAgIAogICAgRm9yIGkgPSAwIFRvIFVCb3VuZChzdHJBcnJheSkKCiAgICAgICAgICAgCiAgICAgICAgV2l0aCBQUFRfYXBwLlByZXNlbnRhdGlvbnMuT3BlbihzdHJQYXRoICYgc3RyQXJyYXkoaSkpCiAgICAgICAgICAgIHN0ckJvb2sgPSBMZWZ0KHN0ckFycmF5KGkpLCBJblN0clJldihzdHJBcnJheShpKSwgIi4iKSAtIDEpCiAgICAgICAgICAgICBwcHRfZmlsZSA9IHN0clBhdGggJiBzdHJBcnJheShpKQogICAgICAgICAgICAgcHB0eF9maWxlID0gc3RyUGF0aCAmIHN0ckJvb2sgJiAiLnBwdHgiCiAgICAgICAgIC5TYXZlQXMgRmlsZW5hbWU6PXBwdHhfZmlsZQogICAgICAgICAuQ2xvc2UKICAgICAgIEVuZCBXaXRoCiAgICAgICBLaWxsIHBwdF9maWxlICAgICflhYPjg5XjgqHjgqTjg6vliYrpmaQKICAgIE5leHQKICAgIE1zZ0JveCAiUFBU5aSJ5o+b44GX5YWD44OV44Kh44Kk44Or44Gv5YmK6Zmk44GX44Gm44GE44G+44GZIgogICAgUFBUX2FwcC5RdWl0CiAgICBFbmQgSWYKICAgICAKICAgIFNldCBQUFRfYXBwID0gTm90aGluZwogICAgCumrmOmAn+e1guS6hgpFbmQgU3ViCg==