[aspgerman] AW: Re: Serverseitiges erzeugen von Powerpoint-Dateie n

[Raik . Hartung]

So, dann will ich die Gemeinde wohl mal an meinem errungenem Wissen teil
haben lassen ;).
Unten gezeigtes Beispiel öffnet eine Vorlage, selektiert das erste Shape und
schreibt dort das aktuelle Datum und die aktuelle Zeit rein (now). Dann wird
eine Grafik eingefügt. Am Ende wird das ganze über den FileCache (wie auf
www.aspheute.com beschrieben) zum Client geschoben. Es gelten die selben
Bedingungen wie bei dem Serverseitigen Excelexport der auf aspheute.com
beschrieben wird.

Wenn Microsoft endlich mal bessere Dokumentationen liefern würde könnte man
echt schneller arbeiten.
(siehe Java, PHP etc.)

Grüße Raik

<%
        Set ppApp = Server.CreateObject("Powerpoint.Application")
        
        ppApp.Visible = true
        ppApp.Presentations.Open
(Server.MapPath("ppt/PowerPointVorlage.ppt"))
        ppApp.ActiveWindow.Selection.SlideRange.Shapes(1).Select
      ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
 
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(1,0).
Select
        With ppApp.ActiveWindow.Selection.TextRange
        .Text = now
        With .Font
            .NameAscii = "Arial"
            .Size = 44
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
        End With
      End With
 
ppApp.ActiveWindow.Selection.SlideRange.Shapes.AddPicture(Server.MapPath("pp
t/graphic.png"),False,true, 140, 170, 600, 280).Select
        
        ppApp.displayAlerts=false
        ppApp.ActivePresentation.SaveAs Server.MapPath("ppt/test.ppt")
        
        ppApp.quit
        set ppApp= nothing
        
        Set objFileCache = Server.CreateObject("Softwing.FileCache.1")
        bXlsFile = objFileCache.InitFromFile("ppt/test.ppt", False)
        objFileCache.MimeType = "application/octet-stream"
        bXlsFile = objFileCache.Write()

        Response.End    
%>


-----Ursprüngliche Nachricht-----
Von: Hartung, Raik (IFDD 200 MP FE IT) 
Gesendet: Donnerstag, 5. Dezember 2002 12:22
An: ActiveServerPages German
Betreff: [aspgerman] AW: Re: Serverseitiges erzeugen von Powerpoint-Da teie
n


Juup, das hatte ich auch schon gefunden. Teilweise hilft das auch aber das
VB im ASP ist halt doch teilweise etwas anders. ;)

Grüße Raik

PS: Ich werde wenn ich ein Beispiel fertig habe das mal an die Liste
schicken. Vielleicht braucht das ja noch mal jemand.

-----Ursprüngliche Nachricht-----
Von: Zeljko Kvesic [mailto:[EMAIL PROTECTED]] 
Gesendet: Donnerstag, 5. Dezember 2002 11:06
An: ActiveServerPages German
Betreff: [aspgerman] AW: Re: Serverseitiges erzeugen von Powerpoint-Dateie n


villeich kann Dir dieser Link behilflich sein:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/htm
l/deovrWorkingWithMicrosoftPowerPointObjects.asp

Gruß
Zeljko

-----Ursprüngliche Nachricht-----
Von: Andreas Roth [mailto:[EMAIL PROTECTED]]
Gesendet: Donnerstag, 5. Dezember 2002 11:05
An: ActiveServerPages German
Betreff: [aspgerman] Re: Serverseitiges erzeugen von Powerpoint-Dateien


Ich hab es schon gemacht, habe aber die Beispiele nicht zur Hand. Du kannst
ja mal ein wenig mit Variationen für die Instanzierung des Objekts spielen.
Die PP Objekte lernst du am besten kennen, wenn du ein paar Makros
aufzeichnest.


Gruß, Andreas

>Ich habe das Beispiel "Ein Excel-Sheet am Server generieren und zum
>>Client

>schicken" von www.aspheute.com <www.aspheute.com>  getestet. Es läuft 
>>ohne

>Probleme. Hat jemand etwas ähnliches mit Powerpoint umgesetzt und >kann 
>mir

>dazu etwas Quellcode zusenden? Ich wäre auch über die ActiveX >Controls 
>für

>Powerpoint in Zusammenhang mit ASP dankbar.
>
>Grüße Raik
>
>
>| [aspgerman] als [EMAIL PROTECTED] subscribed 
>| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv Sie können 
>| sich unter folgender URL an- und abmelden: 
>| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
>

http://www.stepnet.de

| [aspgerman] als [EMAIL PROTECTED] subscribed 
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv Sie können 
| sich unter folgender URL an- und abmelden: 
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp

| [aspgerman] als [EMAIL PROTECTED] subscribed 
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv Sie können 
| sich unter folgender URL an- und abmelden: 
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp

| [aspgerman] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie können sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp

| [aspgerman] als archive@jab.org subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie können sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp