sub format_cell3 {
  my ($self,$format) = @_;
  $self->{cell_format}[0]{bgcolor} = $format->{bgcolor};
}