# If shape is a msoShapeArc
  if($shape =~ /msoShapeArc/i)
  {
    # Set the start and extent angles of an arc
    $new_shape->{Adjustments}{1}=$options->{start};
    $new_shape->{Adjustments}{2}=$options->{extent};