Select Code to Download

sub add_line {
  my ($self, $options) = @_;
...

  return $new_line;
}

sub add_shape {
  my ($self, $shape, $options) = @_;
...

  return $new_shape;
}

# Add the Rectangle
$pp->add_shape('msoShapeRectangle', { left=>100, top=>100, width=>100,
+ height=>100});

# Add the Rectangle
$pp->add_shape(1, { left=>100, top=>100, width=>100, height=>100});