in reply to Win32::PowerPoint extension

Try a number here ppSlideSizeLetterPaper',

Replies are listed 'Best First'.
Re^2: Win32::PowerPoint extension
by EnzoXenon (Acolyte) on May 20, 2023 at 17:11 UTC
    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?
[reply]
[d/l]
[select]
      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]

In Section Seekers of Perl Wisdom