[CF] powerpoint maken en notes toevoegen

[stean]

de onderstaande code maakt een powerpoint aan met 1 slide. Echter ik wil bij deze slide notes toe kunnen voegen
(later dynamisch, maar nu nog hard).

de code(asp) volgens microsoft heb ik al, zie code, maar hoe doe ik dat in cold fusion?

weet 1 van jullie het?

code:

<CFTRY>
    <!--- If it exists, connect to it --->
    <CFOBJECT ACTION="CONNECT" CLASS="PowerPoint.Application" NAME="objPPT" TYPE="COM">
  <CFCATCH>
    <!--- The object doesn't exist, so create it --->
    <CFOBJECT ACTION="CREATE" CLASS="PowerPoint.Application" NAME="objPPT" TYPE="COM"> 
  </CFCATCH>
</CFTRY>
<CFSCRIPT>
// Get the presentations collection
objPresentations = objPPT.Presentations;

// Open a presentation
objPresentation = objPresentations.Open("c:\inetpub\powerpoint.ppt", False, False, False);
mySlides = objPresentation.Slides;
newSlide = mySlides.Add(1, 1);

slideShape = newSlide.Shapes;
newShape =  slideShape.Title;
myTextFrame = newShape.TextFrame;
myTextRange = myTextFrame.TextRange;
myTextRange.Text = "This is a miracle!";
// This is how to add more text to the slide.
bodyShape = SlideShape.AddTextBox(1, 200, 300, 700, 100);
bodyShapeTextFrame = bodyShape.TextFrame;
bodyShapeTextRange = bodyShapeTextFrame.TextRange;
bodyShapeTextRange.Text = "If you've come this far, maybe you're willing to come a bit farther.";

//poging om notes aan een 2e slide toe te voegen
//werkt echter niet.
newSlide3 = mySlides.Add(2, 1);
a1 = newSlide3.Notespage;
a2 = a1.Shapes;
a3 = a2.Placeholders(1);
a3.InsertAfter = "This is the title text";

//volgens microsoft moet het zo:
//ActivePresentation.Slides(1).NotesPage.Shapes _
//  .Placeholders(2).TextFrame.TextRange.InsertAfter "Added Text"


// Save a presentation
newpresentation = objPresentation.SaveAS("c:\inetpub\test.ppt",11, True);

objPresentation.Close();
objPPT.Quit();
</CFSCRIPT>

[mulder]

Dat staat er toch? Zoals hierboven dus!

[stean]

dat werkt niet omdat het volgens mij ASP/VB is.
IK wil het in Cold Fusion maken, vandaar.



ik heb ook al op www.cfcomet.com gekeken maar niks gevonden.

[jochemd]

Dit misschien?

code:

//poging om notes aan een 2e slide toe te voegen
newSlide3 = mySlides.Add(2, 1);
a1 = newSlide3.Notespage;
a2 = a1.Shapes;
a3 = a2.Placeholders(1);
a3.InsertAfter("This is the title text");

[Defspace]

En jij hebt begrepen cq gelezen dat dit mogelijk moet zijn ???

Zover ik weet ondersteund CF al die powerpoint functies niet die ASP wel ondersteund.

Ik ben in ieder geval van mening dat dit niet (eenvoudig) te doen is in CF.

Maar misschien zijn er server extentions voor te vinden??

[stean]

nee helaas het levert deze foutmelding op:
---
The symbol you have provided (a2.Placeholders) is not the name of a function.
----
als je de mircosoft code bekijkt, moet placeholders() een functie zijn van het object Shapes. Maar ik krijg de melding dat dit niet zo is. Meer ideeen?

code:

newSlide3 = mySlides.Add(3, 1);
a1 = newSlide3.Notespage;
a2 = a1.Shapes;
a3 = a2.Placeholders();
a4=a2.TextFrame;
a5=a4.TextRange;
a5.InsertAfter = "This is the title text";

[stean]

btw links etc zijn ook welkom.
want ik zit echt helemaal vast

en ja ik denk dat dit mogelijk is omdat CF en ASP de COM objecten aanspreken. alles lukt ook behalve de notes pages tot nu toe

[mulder]

De code hierboven aan is GEEN asp, het is Cold Fusion. Inprincipe zou CF dit alles moeten ondersteunen, je zou eens in de VBA help van Powerpoint moeten kijken wat de syntax is.

[stean]

wou je zeggen dat
=-------------
//volgens microsoft moet het zo:
//ActivePresentation.Slides(1).NotesPage.Shapes _
// .Placeholders(2).TextFrame.TextRange.InsertAfter "Added Text"
---------
geen ASP maar VB?

[mulder]

die // duiden ergens op ofniet? Commentaar. Dat is de asp code idd. De CF syntax zal niet heel veel verschillend zijn, maar daarom kun je het beste even naar de VBA help kijken, omdat je in sommige talen moet je de preciese syntax gebruiken (..VBA niet)

[stean]

ik dacht dat ik de VBA wel had, maar moet dus de syntax in CF weten. Ik heb lopen zoeken maar nog niet echt veel gevonden. de VBA help: welke is volgens jouw het beste?

hup hup

[stean]

schop!

[stean]

helaas was ik al bang dat er niet veel mensen zijn die me konden helpen.
bij deze hoop ik dat er als nog mensen zijn die me kunnen/willen helpen.