Comment définir le style de cellule en utilisant OpenOffice :: OODoc?

Question

Comment appliquer un style à la cellule en utilisant le module OpenOffice :: OODoc en Perl?

J'ai essayé:

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 
     } 
    } 
} 

Answer 1

Voir style:

style(object [, style])

Renvoie le nom du style d'un texte ou objet graphique. Si le premier argument est une "page maître" (voir OODoc :: Styles), il renvoie même la "mise en page" associée .

Remplace le style de l'objet si un nom de style est donné en tant que second argument .