$TextBox = ${'Slide_'.$slideNumber}->Shapes->AddTextbox({Orientation=>1,Left=>80,Top=>$bulletYPos,Width=>600,Height=>20,});
$TextBox->TextFrame->TextRange->{Text} = 'blah blah blah';
$TextBoxHeight = $TextBox->Height;

##</code><code>##

${'Slide_'.$slideNumber}->ActivateWindow();

##</code><code>##

${'Slide_'.$slideNumber}->ActiveWindow();