in reply to Re: Win32::PowerPoint extension
in thread Win32::PowerPoint extension

Thanks - I did try this, before and after your suggestion just in case I was temporarily in an alternate universe, however it was unsuccessful. I've commented out all the versions I've tried.

And the constants are defined in the sub-module so ppSlideSizeLetterPaper is a number as far a perl is concerned. 

  # Set the slide size
#  $PPT->page_setup( { slidesize  => 'ppSlideSizeLetterPaper',
#                      width      => 11*72,
#                      height     => 8.5*72 } );

#  $PPT->page_setup( { slidesize  => 'ppSlideSizeLetterPaper' } );

#  $PPT->page_setup( { width      => 11*72,
#                      height     => 8.5*72 } );

  $PPT->page_setup( { slidesize  => '5' } );

[download]
Here's the result of trying a number: 
PowerPoint.pm(): options:
                    slidesize=5

PowerPoint.pm(): slide size=7
PowerPoint.pm():   width=960
PowerPoint.pm():  height=540

[download]
Ideas?

Replies are listed 'Best First'.
Re^3: Win32::PowerPoint extension
by EnzoXenon (Acolyte) on May 26, 2023 at 17:32 UTC
    For anyone watching ... this worked 
    sub page_setup
{
  my ($self, $options) = @_;

  $options = {} unless ref $options eq 'HASH';

  # PPT.PageSetup.SlideSize = ppSlideSizeA4Paper
  # Const ppSlideSizeA4Paper = 3

  # Microsoft constants
  #
  #  Name Value Description
  #  ppSlideSize35MM  4 35MM
  #  ppSlideSizeA3Paper 9 A3 Paper
  #  ppSlideSizeA4Paper 3 A4 Paper
  #  ppSlideSizeB4ISOPaper  10  B4 ISO Paper
  #  ppSlideSizeB4JISPaper  12  B4 JIS Paper
  #  ppSlideSizeB5ISOPaper  11  B5 ISO Paper
  #  ppSlideSizeB5JISPaper  13  B5 JIS Paper
  #  ppSlideSizeBanner  6 Banner
  #  ppSlideSizeCustom  7 Custom
  #  ppSlideSizeHagakiCard  14  Hagaki Card
  #  ppSlideSizeLedgerPaper 8 Ledger Paper
  #  ppSlideSizeLetterPaper 2 Letter Paper
  #  ppSlideSizeOnScreen  1 On Screen
  #  ppSlideSizeOverhead  5 Overhead

  if ( defined $options->{SlideSize} )
  {
    $self->presentation->PageSetup->{SlideSize} = $options->{SlideSize
+};

    print "PowerPoint.pm():  set SlideSize=2\n";
  }

  if ( defined $options->{SlideWidth} )
  {
    $self->presentation->PageSetup->{SlideWidth} = $options->{SlideWid
+th};

    print "PowerPoint.pm():  set SlideWidth=" . $options->{SlideWidth}
+ . "\n";
  }

  if ( defined $options->{SlideHeight} )
  {
    $self->presentation->PageSetup->{SlideHeight} = $options->{SlideHe
+ight};

    print "PowerPoint.pm():  set SlideHeight=" . $options->{SlideHeigh
+t} . "\n";
  }

}

    [download]

    Of course, I'll remove the print statements.

    Now ... if only I knew how to update a module for distribution ...
[reply]
[d/l]
[reply]
[reply]
        I do note that as your alter ego...

        I imagine Ken, that your list of duplicate accounts and suspected duplicate accounts is rather extensive!

[reply]

In Section Seekers of Perl Wisdom