I can create a table in a ppt using the following code, but i want to include some changes in the design while creating it. The changes are to 1: Increase the width of the second column and align the table to the left extreme etc The code that I used to create a table is as follows 

my $Slide = $Presentation->Slides->Add({Index=>$value , Layout=>ppLayo
+utText});

   $Slide->{Name} = "Slide111112";
   my $Title=$Slide->Shapes->{Title};
   $Title->TextFrame->TextRange->{Text} ="Weekly Analysis - Closing Ba
+lance";
   print( "Adding a 4 wide by 3 high table\n" );
my $table1 = $Slide->Shapes->AddTable(     5, # Rows
                                        3, # Cols
                                        50, # X-axis
                                        110 # Y-axis 
                                        );
my $columns1 = $table1->Table->Columns->Count;
my $rows1 = $table1->Table->Rows->Count;

my @sno = ("S No", 1, 2, 3, '');
my @ts = ("Ticket Status", "Open Rickets", "Closed Rickets", "Back Log
+Tickets", "Grand Total");
my @tc =("Ticket Count","$op","$cl","$other","$tot");
for ( my $row = 0; $row < $rows1; $row++ ) {
            my $cell2 = $table1->Table->Rows($row+1)->Cells(1);
        my $textframe = $cell2->Shape->TextFrame;
        $textframe->TextRange->{Text} = "$sno[$row]";
        $textframe->TextRange->Font->{Name} = "Arial";
        $textframe->TextRange->Font->{Size} = "10";
        ######################################################
        my $cell3 = $table1->Table->Rows($row+1)->Cells(2);
        my $textframe1 = $cell3->Shape->TextFrame;
        $textframe1->TextRange->{Text} = "$ts[$row]";
        $textframe1->TextRange->Font->{Name} = "Arial";
        $textframe1->TextRange->Font->{Size} = "10";
        ######################################################
        my $cell4 = $table1->Table->Rows($row+1)->Cells(3);
        my $textframe2 = $cell4->Shape->TextFrame;
        $textframe2->TextRange->{Text} = "$tc[$row]";
        $textframe2->TextRange->Font->{Name} = "Arial";
        $textframe2->TextRange->Font->{Size} = "10";
       
}

[download]

In reply to create a formatted table in ppt by arundurai

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.