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"; } }
Of course, I'll remove the print statements.
Now ... if only I knew how to update a module for distribution ...In reply to Re^3: Win32::PowerPoint extension
by EnzoXenon
in thread Win32::PowerPoint extension
by EnzoXenon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |