Powerpoint integrado en programa - VB-MUNDO

ZyNtAxIs · #1 (**permalink**) 12-09-2008, 18:29:52

Hola buenas, les explico lo que se me ha ocurrido:

Quiero que me ayuden con esto ya que nunca he hecho nada parecido y me gustaria que me ayudasen con esto porque nunka lo he hechop y no se si puede (seguro que si), es crear un exe en el que haya estos cmd, reproducir, parar.

Pero en el que ya este integrada una presentacion powerpoint es decir, al ejecutar el exe me tendria que salir un recuadro con la primera diapositiva del power y abajo los botones.

Muchas gracias con esto

seba123neo · #2 (**permalink**) 13-09-2008, 05:25:54

Hola, esto es lo que buscas seguro...

Mostrar un Powerpoint en un Formulario de Visual Basic

saludos.

ZyNtAxIs · #3 (**permalink**) 13-09-2008, 10:32:27

Esto es justamente lo que busko, muxisimas gracias, seba, lo estudiare a fondo y te comentare las posibles dudas que tenga respecto a esto.

Muchas gracias

ZyNtAxIs · #4 (**permalink**) 13-09-2008, 10:40:09

Tras leer el codigo, me surge la siguiente duda sebas, io kiero entregar esto en una usb, por lo que tendre que meter el visor, y la presentacion (no es asi??), entonces el codigo es este

Cita:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub cmdShow_Click(Index As Integer)
Dim screenClasshWnd As Long
On Error Resume Next
Set oPPTApp = CreateObject("PowerPoint.Application")
If Not oPPTApp Is Nothing Then
Set oPPTPres = oPPTApp.Presentations.Open("F:\Under Development\PowerPoint\Dieyoung.ppt", , , False)
If Not oPPTPres Is Nothing Then
With oPPTPres
Select Case Index
Case Is = 0
With .SlideShowSettings
.ShowType = ppShowTypeSpeaker
With .Run
.Width = frmSS.Width
.Height = frmSS.Height
End With
End With
screenClasshWnd = FindWindow("screenClass", 0&)
SetParent screenClasshWnd, frmSS.hwnd
With Me
.Height = 4545
.SetFocus
End With
Case Is = 1
With .SlideShowSettings
.ShowType = 1000
.Run
End With
Call SetWindowText(FindWindow("screenClass", 0&), APP_NAME)
End Select
End With
Else
MsgBox "No se puede abrir la presentacion.", vbCritical, APP_NAME
End If
Else
MsgBox "No se puede inicializar powerpoint.", vbCritical, APP_NAME
End If
End Sub

Private Sub Form_Initialize()
With Me
.ScaleMode = vbPoints
.Caption = APP_NAME
End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
lblMessage.Visible = True
DoEvents
If Not oPPTPres Is Nothing Then
oPPTPres.Close
End If
Set oPPTPres = Nothing
If Not oPPTApp Is Nothing Then
oPPTApp.Quit
End If
Set oPPTApp = Nothing
lblMessage.Visible = False
End Sub

Exactamente donde tengo que poner la ruta de la presentacion que se va a abrir???

Muchas gracias

seba123neo · #5 (**permalink**) 13-09-2008, 20:46:25

Hola, pues supongamos que vos tenes un powerpoint llamado presentacon.ppt, y lo tenes en el pendrive...y tenes el eejcutable de tu programa en la misma carepta donde esta la presentacion..simplemente tendrias que cambiar esta linea:

Código:

Set oPPTPres = oPPTApp.Presentations.Open("F:\Under Development\PowerPoint\Dieyoung.ppt", , , False)

por esta:

Código:

Set oPPTPres = oPPTApp.Presentations.Open(App.Path & "\presentacion.ppt", , , False)

saludos.

ZyNtAxIs · #6 (**permalink**) 14-09-2008, 10:15:54

Muchas gracias seba, es que voi a hacer unas memorias de tecnologia, y me apetecia ser original, en vez de presentarlo en papel, hacer algo como esto.

Pd:Esto se puede ejecutar en kualkier ordenador no?? me refiero, no ai k modificar nada mas no?

EDITO: una uda seba, he introducido una text box en el formulario, donde se supone que va a ir la nota, entonces he escrito el siguiente codigo:

Cita:

Private Sub Text1_Change()
If Tetx1 = 10 Then
MsgBox "Yo también pienso lo mismo"
Else
MsgBox "Me parece que esta nota no es la adecuada"

End Sub

Una parida xDDD

Entonces cuando intento ejecutar o compilar me dice que no he definido la variable Text1, no tengo esto muy claro, he probado poniendo al principio del codigo dim Text1 as Integer y me dice, el miembro ya existe en un modulo de objeto del que proviene el modulo de objeto.

Otra cosa, me gustaria limitar los caracteres que se pueden escribir dentro de la textbox, es decir que al pretar una letra no se escriba y lo mismo con numeros mayores que diez.

Muchas gracias por ayudar a este novato

Saludos

J.M.Movilla · #7 (**permalink**) 14-09-2008, 10:41:13

El que te aparezca ese error de "me dice que no he definido la variable Text1" me hace suponer que, después de haber generado la subrutina "Private Sub Text1_Change()" has copiado el Textbox Text1, y te ha creado un ARRAY de Text1(0), Text1(1)... Por eso no te reconoce la variable Text1. Para continuar con el resto de problemitas, tienes que empezar solucionando antes éste, cambiando de nombre a los otros Text1 y borrando la propiedad "Index".

ZyNtAxIs · #8 (**permalink**) 14-09-2008, 17:37:11

gracias por responder, no, no he hecho ningun array de controles.
No se que puede pasar pero solo hay un textbox y no hay arrays.

Edito: ahora comprendo lo que quieres decir, he cambiado el nombre a nota y se me ha solucionado, muxisimas gracias.

Puedes explikarme ahora lo segundo??

gracias

J.M.Movilla · #9 (**permalink**) 14-09-2008, 18:29:59

Claro... Si ya no existe Text1 ¿cómo no va a darte error? Bueno, pues si ahora se llama "Nota", prueba a poner esto:

Código:

Private Sub Nota_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        If val(Nota)= 0 Or val(Nota) > 10 Then
            msgbox("Escriba un valor entre 1 y 10")
            Nota.Text = ""
            Nota.SetFocus
            Exit Sub
        End If
    End If
End Sub

chronos682 · #10 (**permalink**) 15-09-2008, 06:25:13

Si el código que colocaste en el post donde referías el error lo copiaste tal cual como le tenías en Visual Basic, el error se produce porque escribiste mal Text1 mira:

If Tetx1 = 10 Then

Si es así VB no reconocería Tetx1 como un TextBox ni como una variable y por eso te daría el error.