Test Foro de elhacker.net SMF 2.1

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

Da error en la linea
ppSlide3.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4"

Para abrir powerpoint

Shell ("C:\...\POWERPOINT.exe")



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

Cita de: & eDu & en  3 Julio 2009, 14:58 PM
Da error en la linea

Código (vb) [Seleccionar] Expandir

ppSlide3.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4"

Simplemente quitarla, puede que no todos tengan ese objeto en su sistema, y poner un sleep antes de ..

' Stop slide show
ppPres.SlideShowWindow.View.Exit

' Clean up
ppApp.Quit

O bien quitarlo directamente, ya que sino se abre y se cierra inmediatamente la presentación

Saludos

con el slep eslo mismo

No entendí .... como que es lo mismo  :huh: