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

Question

我可以在 perl 中使用 Win32:OLE 在幻灯片上添加一个新表...但我正在研究合并表中的几行....任何人都可以提供任何提示。 或者，如果我能就如何将数据插入幻灯片上的现有表格（即如何读取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);`

谁能帮我用我正在寻找的功能升级我的代码..？

Answer 1

好吧，我从来没有在 PowerPoint 中使用过 Perl，但我认为它只是常规的 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";