Question

您好我正在尝试为我的朋友制作一个以幻灯片模式启动PowerPoint的程序。它的工作原理是在文本框中键入名称，然后为用户添加其余部分。问题是它总是找不到目标，我需要一些帮助。

有人可以查看代码并解决问题吗？

请为用户保持简单。

Public Class Form1

Dim fileName As String
Dim filePath As String
Dim Command As String = Chr(34) + "C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE\" + Chr(34) + " /S "

Sub Run()
    Try
        filePath = (Command + "powerpoints\" + fileName + ".pptx")
        Process.Start(filePath)

    Catch ex As Exception
        Beep()
        MessageBox.Show(ex.Message, "Error!")
    End Try
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    fileName = TextBox1.Text
    Run()
End Sub
End Class

Answer 1

2条建议。首先，运行此代码时是否收到任何异常？如果是的话，请你发布这些细节吗？如果可能，请调试并逐步执行代码以确定代码失败的行。这将有助于确定“目标”失败的原因。

其次，如果您盲目地对某些代码进行操作，请尝试在线查看其他一些示例（如果您还没有）。关于此主题的快速Google提供了此功能（由http://officeone.mvps.org/vba/vb_start_slide_show.html提供）

Sub StartSlideShow(ByVal FileName  As String)
     Dim PPT  As Object
     Dim Pres  As Object

     On Error Resume Next

     Set PPT = CreateObject("PowerPoint.Application")
     Set Pres = PPT.Presentations.Open(FileName, False, False,  False)
     If Pres.SlideShowWindow  Is Nothing Then
         Pres.SlideShowSettings.Run
     End If
End Sub

这似乎相对简单，所以希望它指出你正确的方向。

启动运行文件匹配字符串的程序

1 个答案: