ppSlideSize35MM        =>  4,
    ppSlideSizeA3Paper     =>  9,
    ppSlideSizeA4Paper     =>  3,
    ppSlideSizeB4ISOPaper  => 10,
    ppSlideSizeB4JISPaper  => 12,
    ppSlideSizeB5ISOPaper  => 11,
    ppSlideSizeB5JISPaper  => 13,
    ppSlideSizeBanner      =>  6,
    ppSlideSizeCustom      =>  7,
    ppSlideSizeHagakiCard  => 14,
    ppSlideSizeLedgerPaper =>  8,
    ppSlideSizeLetterPaper =>  2,
    ppSlideSizeOnScreen    =>  1,
    ppSlideSizeOverhead    =>  5,

##</code><code>##

sub page_setup
{
  my ($self, $options) = @_;

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

  $self->presentation->PageSetup->SlideSize($options->{slidesize});

  $self->presentation->PageSetup->SlideWidth($options->{width});
  $self->presentation->PageSetup->SlideHeight($options->{height});
}

##</code><code>##

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

##</code><code>##

print "\nPowerPoint.pm(): slide size=" . $self->presentation->PageSetup->SlideSize . "\n";
print "PowerPoint.pm():   width=" . $self->presentation->PageSetup->SlideWidth . "\n";
print "PowerPoint.pm():  height=" . $self->presentation->PageSetup->SlideHeight . "\n\n";

##</code><code>##

PowerPoint.pm(): options:
                    slidesize=ppSlideSizeLetterPaper
                    height=612
                    width=792

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