print( "Adding a 4 wide by 3 high table\n" ); my $table = $slide->Shapes->AddTable( 3, 4, 1, 100 ); my $columns = $table->Table->Columns->Count; my $rows = $table->Table->Rows->Count; for ( my $row = 0; $row < $rows; $row++ ) { for ( my $col = 0; $col < $columns; $col++ ) { my $cell = $table->Table->Rows($row+1)->Cells($col+1); my $textframe = $cell->Shape->TextFrame; $textframe->TextRange->{Text} = "$col,$row"; $textframe->TextRange->Font->{Bold} = msoFalse; $textframe->TextRange->Font->{Name} = "Arial"; # set text size AFTER changing text $textframe->TextRange->Font->{Size} = "12"; } } $ppt->SaveAs($filename);