|
#!/usr/bin/perl
my $workbook = Excel::Writer::XLSX->new( 'shape2.xlsx' );
my $worksheet = $workbook ->add_worksheet();
$worksheet ->hide_gridlines( 2 );
my $plain = $workbook ->add_shape(
type => 'smileyFace' ,
text => "Plain" ,
width => 100,
height => 100,
);
my $bbformat = $workbook ->add_format(
color => 'red' ,
font => 'Lucida Calligraphy' ,
);
$bbformat ->set_bold();
$bbformat ->set_underline();
$bbformat ->set_italic();
my $decor = $workbook ->add_shape(
type => 'smileyFace' ,
text => "Decorated" ,
rotation => 45,
width => 200,
height => 100,
format => $bbformat ,
line_type => 'sysDot' ,
line_weight => 3,
fill => 'FFFF00' ,
line => '3366FF' ,
);
$worksheet ->insert_shape( 'A1' , $plain , 50, 50 );
$worksheet ->insert_shape( 'A1' , $decor , 250, 50 );
|