231970_ko-KR

liliconcom

재 : 파워 포인트

여기에 내가 어떻게 처리하는지 예가 있습니다.  개체를 단일 그림 개체로 옮긴 다음 그림 개체를 저장합니다.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/blood pressure.jmp" );
colname = {"BP 8M", "BP 12M", "BP 6M"};
colnamex = {"BP 8W", "BP 12W", "BP 6W"};
groupcol = Column( "Dose" );

ob = Outline Box( "",
 Lineup Box( N Col( 3 ),
  For( i = 1, i <= N Items( colname ), i++,
   For( j = 1, j <= N Items( colnamex ), j++,
    biv = Bivariate(
     Y( Column( dt, colname[i] ) ),
     X( Column( dt, colnamex[j] ) ),
     group by( groupcol )
    );
    rbiv = biv << report;
    rbiv[FrameBox( 1 )] << {Frame Size( 240, 190 ), Marker Size( 1 ), Line Width Scale( 3 )};
    rbiv[axis box( 2 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) <<
    Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
    rbiv[axis box( 1 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) <<
    Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
    rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
    rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
   )
  )
 )
);

nwj = New Window( "Para v PGT", <<JOURNAL></JOURNAL>

파워 포인트

안녕하세요, 여러 플롯이있는 창을 보여주는이 코드가 있습니다. 질문은 출력을 하나의 슬라이드로 파워 포인트에 저장하는 방법입니다.

 

 

New Window( "Para v PGT",
 Lineup Box( N Col( 3 ),
  For( i = 1, i <= N Items( colname ), i++,
   For( j = 1, j <= N Items( colnamex ), j++,
    biv = Bivariate( Y( Column( dt, colname[i] ) ), X( Column( dt, colnamex[j] ) ), group by( groupcol ) );

    rbiv = biv << report;

    rbiv[FrameBox( 1 )] << {Frame Size( 240, 190 ), Marker Size( 1 ), Line Width Scale( 3 )};

    rbiv[axis box( 2 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

    rbiv[axis box( 1 )] << Tick Font( style( 1 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );

    rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );

    rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
   )
  )
 )
);

 

 

재 : 파워 포인트

답장 주셔서 감사합니다! 슬라이드 당 플롯과 같이 출력하고 슬라이드 제목을 넣는 방법이 있습니까?

재 : 파워 포인트

Save Presentation () 함수는 Outline Box ()의 동사를 그래프 제목으로 가져옵니다.  따라서 이전 예제의 마지막 몇 줄을 다음과 같이 변경하면 원하는 제목이 표시됩니다.

titleOB = outline box("Here is the Title");
titleOB << append(ob<< get picture);

titleOB << save presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );