Powerpoint presentation changes after I save

[Rajesh Patel]

I am using COM to create a Powerpoint presentation, everything
looks fine when I create the slide:
http://www.rajix.com/beforeSave.jpg

but after saving, the slide an indent on a bullet
as follows:
http://www.rajix.com/afterSave.jpg

Here is the perl code I am using to do this, it
should be understandable to you VB guys...

my $textBox = $self->{curSlide}->Shapes->AddTextbox({Orientation=>1,Left=>$left,Top=>$self->{textYPos},Width=>$width,Height=>20,});
my $textFrame=$textBox->{TextFrame};
my $textRange=$textFrame->{TextRange};
my $font=$textRange->{Font};
$textRange->{Text} = &prepareText($text);


if($bulletChar > -1){
my $bullet=$textBox->TextFrame->TextRange->Paragraphs->ParagraphFormat->{Bullet}
=1;

$bullet->{RelativeSize} = 1;
$bullet->{Character} = $bulletChar;
$bullet->Font->{Name} = "Wingdings";
}

$font->Color->{RGB} = $color;
$textFrame->{WordWrap} = msoTrue;
$textFrame->{MarginTop} = 0;
$textFrame->{MarginLeft} = 5;
$textFrame->{MarginRight} = 5;
$textFrame->{MarginBottom} = 0;

$font->{Name} = "Arial";
$font->{Size} = $fontSize;
$font->{Bold} = $bold;
$font->{Italic} = 0;
$font->{Shadow} = 0;
$font->{Underline} = 0;

 

[PPTMagician]

Hi Rajesh,

I barely know VBA, but have you checked the formatting of
the text placeholder on the master slide of the template
you're using?

HTH,
Glenna