Как установить стиль ячейки, используя OpenOffice :: OODoc? - PullRequest
Новая
       7

Как установить стиль ячейки, используя OpenOffice :: OODoc?

0 голосов
/ 13 августа 2010

Как применить стиль к ячейке с помощью модуля OpenOffice :: OODoc в Perl?

Я пытался: 

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

1 Ответ

1 голос
/ 13 августа 2010

См. стиль :

style(object [, style])

Возвращает имя стиля текстового или графического объекта.Если первый аргумент является «главной страницей» (см. OODoc :: Styles), он даже возвращает связанный «макет страницы».

Заменяет стиль объекта, если в качестве второго аргумента указано имя стиля.

...