[VB6] PowerPoint ridotto a icona

[andrex213]

ciao raga

da vb6 lancio una presentazione con PowerPoint, solo che si mette in primo piano e si sovrappone alla mia applicazione.

è possibile ridurlo automaticamente a icona?

Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
ppt.Presentations.Open FileName
ppt.ActivePresentation.SlideShowSettings.Run

[oregon]

Rendilo invisibile ...

Visible = False

[andrex213]

con false và in errore

[oregon]

Cosa va in errore? Dove hai messo il codice? Quale codice? Quale errore?

[andrex213]

ppt.Visible = false

[oregon]

Mi pareva di averti fatto qualche domanda in piu' delle risposte che hai dato ...

[andrex213]

ho modificat il codice cosi.

Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = true 'apri ed edsegui la presentazione
ppt.Presentations.Open fileName
ppt.ActivePresentation.SlideShowSettings.Run
ppt.Visible = False

l'errore è

Errore di run-time - 2147188160(80048240)

[oregon]

La descrizione completa dell'errore (che potevi indicare oltre a dare il codice) e'

"Application.Visible : Invalid request. Hiding the application window in not allowed."

che mi sembra chiara. Quindi, se la presentazione e' avviata non si puo' nasconderla.

Se vuoi, puoi minimizzare la finestra del programma con

ppt.WindowState = 2

ma questo non avverrà sull'output della presentazione perche' hai gia' eseguito il Run

[andrex213]

grazie era quello che cercavo