Select Code to Download

###########################################################
#
...

    return ($PptApp, $Presentation);
}

$Slide = $Presentation-> Slides->Add({Index => $position, Layout => pp
+LayoutBlank});
$Slide->{Name} = "test";
...
$graph = $graph_shape->OLEFormat->{Object}; # ms graph chart object

# i can now work with $graph

    $datasheet = $graph->Application->{DataSheet};
    $datasheet->Cells->ClearContents();
...
    # after the settings of the datasheet's cells, free graph and data
+sheet
    undef $datasheet;
    undef $graph;

   # $Presentaion is the powerpoint presentation object
   $Presentation->SaveAs("c:/test.ppt");