| Pregunta: | 45848 - COMO EJECUTO UN ARCHIVO DE POWER POINT EN VFOX |
| Autor: | PABLO JOSE ACOSTA |
| HOLA AMIGOS UNA PREGUNTA ESENCIAL, QUERIA SABER COMO EJECUTO UN ARCHIVO DE POWER POINT EN VFOX, ME SERIA DE GRAN AYUDA DESDE YA MUCHAS GRACIAS.... | |
| Respuesta: | Mario Rodriguez |
| se que es vieja la pregunta pero ahi va un codigo
* Creando el objeto aplicacion PptAplicacion = CreateObject("Powerpoint.Application") * Agregando la presentacion PptPresentacion = PptAplicacion.Presentations.Add(1) * Agregando la diapositiva PptDiapositiva1 = PptPresentacion.Slides.Add(1,2) * Agregando el texto PptDiapositiva1.Shapes(1).TextFrame.TextRange.Text = "Mi primera diapositiva" PptDiapositiva1.Shapes(2).TextFrame.TextRange.Text = "Automatizar PowerPoint es facil" + Chr(13) + "usando Visual FoxPro!" + Chr(13) + "uLASKÑLKASLÑAsando Visual FoxPro!" + Chr(13) + "usando Visual sldñlsakñ!" * Agregando otra diapositiva PptDiapositiva2 = PptPresentacion.Slides.Add(2,5) * Agregando texto PptDiapositiva2.Shapes(1).TextFrame.TextRange.Text = "Diapositiva 2" PptDiapositiva2.Shapes(1).TextFrame.TextRange.Text = "Crear y usar un grafico 1" PptDiapositiva2.Shapes(2).TextFrame.TextRange.Text = "Crear y usar un grafico 1" + CHR(13) + "toy loco" With PptDiapositiva2.Shapes(3) cTop = .Top cWidth = .Width cHeight = .Height cLeft = .Left .Delete EndWith PptDiapositiva2.Shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "MSGraph.Chart") PptDiapositiva3 = PptPresentacion.Slides.Add(3,7) PptDiapositiva3.Shapes(1).TextFrame.TextRange.Text = "El limite es su imaginación" With PptDiapositiva3.Shapes(2) cTop = .Top cWidth = .Width cHeight = .Height cLeft = .Left .Delete EndWith * Configurando With PptPresentacion.Slides.Range.SlideShowTransition .EntryEffect = 513 .AdvanceOnTime = 1 .AdvanceTime = 5 EndWith * Mostrando la diapositiva With PptPresentacion.SlideShowSettings .ShowType = 3 .LoopUntilStopped = 1 .RangeType = 1 .AdvanceMode = 2 .Run EndWith * Sperando para finalizar Wait window "Finalizando presentación, espere por favor..." TIMEOUT 16 * Parar la diapositiva PptPresentacion.SlideShowWindow.View.Exit * Limpiar PptAplicacion.Quit Release PptDiapositiva3 Release PptDiapositiva2 Release PptDiapositiva1 Release PptPresentacion Release PptAplicacion saludos a tod@s | |
| Respuesta: | Pedro |
| Amigo. Agrega al formulario un Ole Control,una vez abierta la ventana, le das click la segunda opcion (crear desde archivo) buscas la ubicacion de tu archivo power point y le das click en vincular para que a futuro cualquier cambio que hagas en el archivo se vea reflejado cuando ejecutes el formulario.... | |