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});
}