#!/usr/bin/perl -w
my
$workbook
= Excel::Writer::XLSX->new(
'diag_border.xlsx'
);
my
$worksheet
=
$workbook
->add_worksheet();
my
$format1
=
$workbook
->add_format(
diag_type
=>
'1'
);
my
$format2
=
$workbook
->add_format(
diag_type
=>
'2'
);
my
$format3
=
$workbook
->add_format(
diag_type
=>
'3'
);
my
$format4
=
$workbook
->add_format(
diag_type
=>
'3'
,
diag_border
=>
'7'
,
diag_color
=>
'red'
,
);
$worksheet
->
write
(
'B3'
,
'Text'
,
$format1
);
$worksheet
->
write
(
'B6'
,
'Text'
,
$format2
);
$worksheet
->
write
(
'B9'
,
'Text'
,
$format3
);
$worksheet
->
write
(
'B12'
,
'Text'
,
$format4
);