#!/usr/bin/perl
my
$workbook
= Excel::Writer::XLSX->new(
'shape6.xlsx'
);
my
$worksheet
=
$workbook
->add_worksheet();
my
$s1
=
$workbook
->add_shape(
type
=>
'chevron'
,
width
=> 60,
height
=> 60 );
$worksheet
->insert_shape(
'A1'
,
$s1
, 50, 50 );
my
$s2
=
$workbook
->add_shape(
type
=>
'pentagon'
,
width
=> 20,
height
=> 20 );
$worksheet
->insert_shape(
'A1'
,
$s2
, 250, 200 );
my
$cxn_shape
=
$workbook
->add_shape(
type
=>
'curvedConnector3'
);
$cxn_shape
->set_start(
$s1
->get_id() );
$cxn_shape
->set_start_index( 2 );
$cxn_shape
->set_start_side(
'r'
);
$cxn_shape
->set_end(
$s2
->get_id() );
$cxn_shape
->set_end_index( 4 );
$cxn_shape
->set_end_side(
'l'
);
$worksheet
->insert_shape(
'A1'
,
$cxn_shape
, 0, 0 );