ruby-mine

exploring the mine

Wieso kann man Powerpoint nicht invisible schalten?

von dethix am 21.09.2007 (22 Uhr)

Wieso kann man Powerpoint nicht invisible schalten? Hat schon mal jemand folgendes Probiert? 

powerpoint = WIN32OLE.new("powerpoint.application")
powerpoint.visible = false
powerpoint.presentations.open('test.ppt')
Wie ihr feststellen werdet, geht das nicht. Denn visible = false kann Powerpoint anscheinend nicht. Naja warum auch, schließlich ist es ja ein Präsentationsprogramm. Aber auf die Idee, dass jemand eine Folie per Skript mit Inhalten füllen möchte und dabei möglichst nicht mit der GUI belästigt werden will, sind die Microsoft Menschen wohl nicht gekommen.

Immerhin ist es möglich, Bilder in eine Folie einzufügen und dort wie gewünscht zu platzieren. 

myDocument = powerpoint.ActivePresentation.Slides(1)
myDocument.Shapes.AddPicture('C:\Bild1.png', 
  false, true, 30.25, 300, 317, 212).Select

Dann speichert und schließt man noch das Dokument. 

powerpoint.ActivePresentation.SaveAs('c:\test.ppt')
powerpoint.ActivePresentation.Close
powerpoint.quit

Wie unschwer zu erkennen ist habe ich mich von rubyonwindows.blogspot.com inspirieren lassen. Leider gibt es dort keinerlei Powerpoint Beispiele. Insgesamt gibt es zu dem Thema im Netz recht wenig. Ein weiteres Powerpoint-Automatisierungs-Skript gibt es allerdings noch hier.


Kommentar schreiben

Name (notwendig)

Mail (wird nicht veröffentlicht)

Webseite


Kommentare

  1. TD schrieb am 22.02.2008 (20 Uhr)

    http://support.microsoft.com/kb/509847/de powerpoint.presentations.open('test.ppt') Enum MsoTriState es müsste aber auch ein False in der Parameterliste langen^^ Gruss