Sub パワーポイント_名前を付けて保存する()
    
    'アクティブなパワポを保存対象として指定する
    Set パワポ指定 = CreateObject("Powerpoint.Application").ActivePresentation
    
    'C:\test\フォルダに test.pptx という名前で保存
    Call パワポ指定.SaveAs("C:\test\test.pptx")
    
End Sub