2010-08-13 3 views
0

Perl에서 OpenOffice :: OODoc 모듈을 사용하여 셀에 스타일을 적용하는 방법은 무엇입니까? OpenOffice :: OODoc을 사용하여 셀 스타일을 설정하는 방법은 무엇입니까?

내가 시도 :

my $container = odfContainer("report1.ods", create => 'spreadsheet'); 

my $doc = odfDocument (
         container => $container, 
         part  => 'content' 
        ); 

# Styles 
my $styles = odfDocument (
         container => $container, 
         part  => 'styles' 
        ); 

$styles->createStyle ('TTT', 
     family  => 'cell', 
     display-name => 'Table Headers', 
     properties => { 
      'fo:font-weight' => 'bold', 
      'fo:color'  => '#ffffff', 
     } 
); 

{ 
    for (my $x = 0; $x < $X; $x++) { 
     $doc->columnStyle ($sheet, $x, "TTT"); # does not work 
     for (my $y = 0; $y < $Y; $y++) { 
      my $cell = $doc->getTableCell ($sheet, $y, $x); 
      $doc->cellValueType ($cell, $headers->[$x][1]); 
      $doc->updateCell ($cell, $data->[$y][$x]); 
      $doc->setStyle ($cell, 'TTT'); # does not work 
      $doc->cellStyle ($cell, 'TTT'); # does not work 
     } 
    } 
} 
+0

왜이 것이 다운 되었습니까? –

답변

1

style를 참조하십시오

style(object [, style])

는 텍스트의 스타일 이름을 반환 또는 그래픽 오브젝트. 첫 번째 인수가 "마스터 페이지"(OODoc :: 스타일 참조) 인 경우 의 "페이지 레이아웃"도 반환됩니다.

스타일 이름이 두 번째 인수로 주어지면 객체의 스타일을 바꿉니다.

+0

'$ doc-> style ($ cell, 'TTT');을 시도하면 "OpenOffice :: OODoc :: Document :: style Missing object"라는 경고 메시지가 나타납니다. –

+0

좋습니다. 작동합니다. 'cellStyle'도 작동합니다. 'createStyle' 메소드에 문제가있었습니다. –