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

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 ...

Replies are listed 'Best First'.
Re^4: Win32::PowerPoint extension
by Bod (Parson) on May 26, 2023 at 18:46 UTC
[reply]
Re^4: Win32::PowerPoint extension
by kcott (Archbishop) on May 26, 2023 at 19:06 UTC
[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]

        G'day Bod,

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

        That statement is completely lost on me.

        I don't have a list of duplicate accounts, suspected or otherwise. The information about the "alter ego" was supplied by the OP; see the last line of the first node in this thread:

        "Your humble apprentice formerly registered as nzsvz9 but can't find or fix his login so newly creating this EnzoXenon account" [my emphasis]

        I often look at previous posts in an attempt to "know your audience" when responding to someone with whom I'm unfamiliar. That's how I came across the earlier Win32::PowerPoint post to which I linked.

        I read what you wrote several times, but I'm still in the dark; perhaps you could clarify what you meant.

        — Ken

[reply]
[d/l]

In Section Seekers of Perl Wisdom