Re: Another Win32::OLE question about Item

You may need a ShapeRange attribute before you can get the Adjustments.

This is just a guess, based on this posting (Excel Forum : Drawing Arcs).

"These opinions are my own, though for a small fee they be yours too."

Comment on Re: Another Win32::OLE question about Item

Replies are listed 'Best First'.
Re^2: Another Win32::OLE question about Item by EnzoXenon (Acolyte) on Jun 16, 2023 at 03:22 UTC
Thanks for the idea. There is a page for the Shape.Adjustment property here: https://learn.microsoft.com/en-us/office/vba/api/powerpoint.shape.adjustments and this finally worked: `# 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};` [download] I was using a perl list reference of a 1 in square brackets when it was just another hash key deeper like {1} and then it WORKED!!! Thanks to you both for assisting - having someone to bounce an idea off of helps!	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Another Win32::OLE question about Item
by EnzoXenon (Acolyte) on Jun 16, 2023 at 03:22 UTC

There is a page for the Shape.Adjustment property here: https://learn.microsoft.com/en-us/office/vba/api/powerpoint.shape.adjustments and this finally worked:

  # 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};
[download]

Thanks to you both for assisting - having someone to bounce an idea off of helps!

[reply]
[d/l]