Title Slide in PowerPoint

nshivan

Hi, 

I'm saving my analysis into a PowerPoint presentation.   The report in .pptx is great.  However, I can't get a title slide to add to this presentation. 

I would like to add a slide at the beginning and call it a specific name by using JSL.  Is this doable?

 

jrn << Save Presentation( path || "Report.pptx" );

gzmorgan0

JMP can create a title slide but you are going to have to work for it, depending upon what you want for your title page.

 

JMP message Save Presentation() does not save TextBox, BorderBox and OutlineBox the same as it does a PictureBox.

 

Below is a script with where I created a dynamic (script/data-based) title page.

Important Items to Note:

• If the TextBox Size is too large the size will be scaled down.
• \!N is a new line. I added 4 to somewhat center the title.  
• You will have to play around with Font Size and TextBox Size if you do not want the title to wrap.
• Freeze All is important. This saves the TextBox as a picture, so the ususal TextBox, OutlineBox, BorderBox Save Presentation formatting will not apply.

As stated in another post today :

Since 2004 our BKM has been to use use P3ICLI, a no cost, copyrighted with
the Free Software Foundation program.

Description: P3ICLI (PowerPoint Picture Insert Command Line Interface) is a
script driven application that inserts user-selected picture and/or graphic files
into Microsoft PowerPoint (R) slides.

P3ICLI can be downloaded from https://sourceforge.net/projects/p3icli/
It documents a JSL example, including the ppt template, JSL script, explanation and resulting
pptx file at https://p3icli.sourceforge.io/jsl_example.html. We like the flexibility it offers
to customize, size, layout, titles and captions.

Names Default To Here( 1 );
dt= Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = bivariate( y( :weight ), x( :height ), Group By(:sex), Fit Line({report(0)}) );
rbiv = biv << report;
rbiv[Framebox(1)] << row legend(:sex, color(1), marker(1));
rbiv << Save Presentation( "c:/temp/ann_jmp_example.pptx");
rbiv[Framebox(1)] << frame size(1500,480);
rbiv << Save Presentation( "c:/temp/ann_jmp_example.pptx", append );
wait(0);
biv << close window;

bob = BorderBox("", 
    VlistBox(ttl1 = TextBox(Repeat("\!N",4) || "Custom Report for File: " || char(dt<<get name)) ,
     ttl2 = TextBox("\!N" || char(As Date(Today())) )
  )) ;
ttl1 << Set Font( "Arial Black" );
ttl1 << Set Font Size( 32 );
ttl1 << Font Color("Blue");
ttl1 << set Width (720);
ttl1 << Justify Text("Center");

ttl2 << Set Font( "Arial Black" );
ttl2 << Set Font Size( 24 );
ttl2 << Font Color("Black");
ttl2 << set Width (720);
ttl2 << Justify Text("Center");

jj = new Window("",<<Journal);
bob << Journal(Freeze All);
jj << Save Presentation("c:/temp/ann_jmp_example.pptx", Insert(Begin) );

current Journal() << Close Window();