To set background
my $TextBox = $slide->Shapes->AddTextbox({ Orientation => 1, Left => 5, Top => 5, Width => 250, Height => 250 }); $TextBox->TextFrame->TextRange->{Text} ="Big Ole Test"; $TextBox->{'Fill'}{'BackColor'}{'RGB'} = 255; # 0000ff BlueGreenRed; $TextBox->{'Fill'}->Solid;
If the slide has a notes page
if ($slide->{HasNotesPage}){ my $ph = $slide->{NotesPage}{Shapes}{Placeholders}; if ($ph->{Count} >= 2){ $ph->item(2)->{TextFrame}{TextRange}{Text} = "New Comment adde +d\nline2\nline3"; print "Note added\n"; } else { print "Error - no placeholder for comment" } } else { print "No notes page\n"; } }
If a notes page does not exist then sorry I can't help further. See object model
pojIn reply to Re: Add comment to PowerPoint Win32::OLE
by poj
in thread Add comment to PowerPoint Win32::OLE
by IB2017
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |