如何在perl中使用win32:OLE合并powerpoint中的表中的行

时间:2013-05-28 10:24:44

标签: perl powerpoint

我可以在幻灯片中使用Win32:OLE在幻灯片中添加一个新表...但我正在研究合并表中的几行 ....任何人都可以提供任何提示。 OR 如果我可以获得有关如何将数据插入幻灯片上现有表格的任何帮助,也就是如何读取现有表格的表格对象,这也会有所帮助powerpoint文件。

my $Slide = $Presentation->Slides->Add({Index=>$value , Layout=>ppLayoutText});
$Slide->{Name} = "Slide1343121";
my $Title = $Slide->Shapes->{Title};
$Title->TextFrame->TextRange->{Text} ="Title";
$Title->TextFrame->TextRange->Font->{Size} = "32";
my $table = $Slide->Shapes->AddTable( "5, 6, 1, 115);`

任何人都可以帮助我使用我正在寻找的功能升级我的代码..?

1 个答案:

答案 0 :(得分:0)

好吧,我从未使用过Perl和PowerPoint,但我认为它只是常规的COM访问。

在VBA中,您合并单元格并像这样更改其文本

tableShape.Table.Cell(1, 1).Merge table.Cell(1, 2) ' Merge first and second cell
tableShape.Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = "Text"

所以我猜在Perl看起来或多或少是这样的,没有?

$table->Table->Cell(1, 1)->Merge( $table->Table->Cell(1, 2) );
$table->Table->Cell(1, 1)->Shape->TextFrame->TextRange->{Text} = "Text";