Título: codigo para abrir power point Publicado por: rembolso en 3 Julio 2009, 07:34 am buno ak les trigo un codigo para abrir el pover point con los siguiente textos y dibujos
Private Sub Form_Load() ' Start Powerpoint... Dim ppApp As Object Set ppApp = CreateObject("Powerpoint.Application") ' Make it visible ppApp.Visible = True ' Add a new presentation Dim ppPres As Object Set ppPres = ppApp.Presentations.Add(1) ' Add a new slide Dim ppSlide1 As Object Set ppSlide1 = ppPres.Slides.Add(1, 2) ' Add some text... ppSlide1.Shapes(1).TextFrame.TextRange.Text = "SREMBOLSO" ppSlide1.Shapes(2).TextFrame.TextRange.Text = "SREMBOLSO" & vbCr & "SREMBOLSOD" ' Add another slide, with a chart Dim ppSlide2 As Object Set ppSlide2 = ppPres.Slides.Add(2, 5) ' Add some text... ppSlide2.Shapes(1).TextFrame.TextRange.Text = "SREMBOLSO" ppSlide2.Shapes(2).TextFrame.TextRange.Text = "REMBOLSO!" ' Add a chart where old one is... Dim cTop As Double Dim cWidth As Double Dim cHeight As Double Dim cLeft As Double With ppSlide2.Shapes(3) cTop = .Top cWidth = .Width cHeight = .Height cLeft = .Left .Delete End With ppSlide2.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "MSGraph.Chart" ' Add another slide, with an Organization chart Dim ppSlide3 As Object Set ppSlide3 = ppPres.Slides.Add(3, 7) ' Add some text... ppSlide3.Shapes(1).TextFrame.TextRange.Text = "REMBOLSO" ' Add an Org Chart where old one is... With ppSlide3.Shapes(2) cTop = .Top cWidth = .Width cHeight = .Height cLeft = .Left .Delete End With ppSlide3.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4" ' Setup slide show properties... With ppPres.Slides.Range.SlideShowTransition .EntryEffect = 513 ' random .AdvanceOnTime = 1 .AdvanceTime = 5 ' 5 seconds per slide End With ' Prepare & run slide-show! With ppPres.SlideShowSettings .ShowType = 3 ' Kiosk .LoopUntilStopped = 1 .RangeType = 1 ' Show all .AdvanceMode = 2 ' use slide timings .Run End With ' Stop slide show ppPres.SlideShowWindow.View.Exit ' Clean up ppApp.Quit End Sub saludos Título: Re: codigo para abrir power point Publicado por: & eDu & en 3 Julio 2009, 14:58 pm Da error en la linea
Código
Título: Re: codigo para abrir power point Publicado por: VonN en 3 Julio 2009, 15:15 pm Para abrir powerpoint
Código
Título: Re: codigo para abrir power point Publicado por: Novlucker en 3 Julio 2009, 15:18 pm Lo que ha dejado Rembolso es para "controlar" powerpoint, se crea un objeto, se le agrega una presentación, texto, y se muestra, es un poco más que solo ejecutar el exe de powerpoint
Da error en la linea Código
Simplemente quitarla, puede que no todos tengan ese objeto en su sistema, y poner un sleep antes de .. Código
O bien quitarlo directamente, ya que sino se abre y se cierra inmediatamente la presentación Saludos Título: Re: codigo para abrir power point Publicado por: rembolso en 8 Julio 2009, 23:07 pm con el slep eslo mismo
Título: Re: codigo para abrir power point Publicado por: Novlucker en 9 Julio 2009, 03:40 am No entendí .... como que es lo mismo :huh:
|