###########################################################
#
# sub create_ppt_presentation
#
# create and return a new blank presentation
#
# $title is title for the presentation
#
###########################################################
sub create_ppt_presentation
{
    my ($title) = @_;

    my ($PptApp, $Presentation, $Slide);

    trace("create_ppt_presentation: getting powerpoint.application object\n");
    $PptApp  = Win32::OLE-> GetActiveObject('PowerPoint.Application')
	|| Win32::OLE-> new('PowerPoint.Application', 'Quit');
    $PptApp-> {Visible} = IS_PPT_VISIBLE;
    $Presentation = $PptApp-> Presentations->Add();

    return ($PptApp, $Presentation);
}