| Pregunta: | 54720 - ABRIR ARCHIVOS POWER POINT CON VISUAL BASIC 6 |
| Autor: | Alberto |
| Que tal, estoy haciendo este procedimiento para abrir archivos desde mi aplicacion en VB6, con word y excel funciona perfecto pero con power point me arroja el siguiente error : "THE POWER POINT FRAME WINDOWS DOES NOT EXIST"
este es el codigo. Dim PREG As Integer Dim RUTA As rdoResultset Dim ARCHIVO As String Dim app As Object ARCHIVO = RUTA!UNO Set app = CreateObject("POWERPOINT.APPLICATION") app.Presentations.Open ARCHIVO app.Visible = True app.Presentations(1).Activate Set app = Nothing Alguna ayuda? saludos | |
| Respuesta: | jose |
| Private Sub Command4_Click()
Dim Ruta4 As String Call AbrirPowerPoint(Ruta4) End Sub Public Function AbrirPowerPoint(strSourcePPTpath As String) Ruta4 = Text3.Text Dim PowerPoint As PowerPoint.Application Dim oFile As PowerPoint.Presentation Set PowerPoint = New PowerPoint.Application '++++++++++++++++++++++++++ PowerPoint.Visible = msoTrue '+++++++++++++++++++++++++++++ PowerPoint.ShowWindowsInTaskbar = msoFalse '++++++++++++++++++ Set oFile = PowerPoint.Presentations.Open(Ruta4, , , True) Set oFile = Nothing '+++++++++++++++++++++ Set PowerPoint = Nothing '++++++++++++++++++++++++ End Function | |