232437_de-DE

liliconcom

Ppt

Hallo, ich möchte eine Frage stellen.

nw = Outline Box( wname,
 V List Box(
  Button Box( "Save All", sstat = saveall( 1, 330, 1, wname, sdir ) ),
  Spacer Box( Size( 1, 5 ) ),
  Tab Box( "Sat", V List Box( Button Box( "Save Tab" ), satplot( satp, grpname, grpname2, groupList ) ) )
 )
);
dt << Select All Rows;


title = Outline Box( "Plots by Design" );
title << append( nw[1] << get picture );
For( l = 1, l <= N Items( nw ), l++,
 title << append( nw[l] << get picture )
);
title << save presentation( "C:\Users\Desktop\Final.pptx", append );
Open( "C:\Users\Desktop\Final.pptx" );

Meine gewünschte Ausgabe ist ein Plot pro Folie, aber die Ausgabe ist ein langes Bild aller Grafiken

Re: Ppt

Sie scheinen den Abschnitt nw = Ihres Codes nicht zu verstehen.  Innerhalb des Gliederungsrahmens befinden sich Objekte, die als sichtbare Objekte vorgesehen sind. Der Gliederungsrahmen ist jedoch nur sichtbar, wenn er in einem neuen Fenster () oder in einem Journal platziert wird.  

Außerdem verweisen Sie auf "satplot", aber diese Funktion ist in Ihrem Code nicht enthalten.

Schließlich verweisen Sie in Ihrem get-Bild auf nw [l].  Angesichts Ihres Codes bin ich mir nicht sicher, ob Ihre neue Referenz jemals mehr als ein Element enthalten würde.

Re: Ppt

@ skyzvoir0001 ,

 

Mögen @txnelson Jim, ich bin mir nicht sicher, was du versuchst zu tun. Angenommen, nw ist eine Liste von JMP-Anzeigeobjekten. In diesem Beispiel handelt es sich um ein Skript, das in etwa Ihren Vorstellungen entspricht. Hinweis: Dieses Skript speichert den ersten Plot als PPT-Datei. Dann wird jeder nachfolgende Plot an die PPT-Präsentation angehängt.

 

Ihr Code erstellt angehängte Diagramme in einer großen Gliederungsbox. JMP schreibt eine Seite pro Gliederungsfeld in PPT, daher ein langes Diagramm.

Names Default to Here(1);

dt = Open("$Sample_Data/Fitness.jmp");

nw = Bivariate(
  Y( :Runtime, :RunPulse, :MaxPulse ),
  X( :Oxy ),
  Group By( :Sex ),
  Fit Line( {Report( 0 )} ),
  SendToReport(
   Dispatch(
    {},
    "Bivar Plot",
    FrameBox,
    {Row Legend(
     :Sex,
     Color( 1 ),
     Color Theme( "SAS Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 );

np = N Items(nw);
title = Outline Box( "Plots by Design - 1 of " || char(np) );
title << append( nw[1] << get picture );
title << save presentation( "C:\Users\gz\Desktop\Final.pptx" );

For( l = 2, l <= N Items( nw ), l++,
   title = Outline Box( EvalInsert("Plots by Design - ^l^ of  ^np^")  );
   title << append( nw[l] << get picture );
   title << save presentation( "C:\Users\gz\Desktop\Final.pptx", append );

);
Open( "C:\Users\gz\Desktop\Final.pptx" );