note
iamaids
Thanks for the article. The following code doesn't work on my machine:
<code>
my @edges = qw (xlEdgeBottom xlEdgeLeft xlEdgeRight xlEdgeTop xlI
+nsideHorizontal xlInsideVertical);
$range = "b1:c56";
foreach my $edge (@edges){
with (my $Borders = $Sheet->Range($range)->Borders(eval($edge)),
LineStyle =>xlContinuous,
Weight => xlThin ,
ColorIndex => 1);
}
</code>
I'm using ActivePerl 5.8.7. No error messages were encountered.
Thanks in advance.
153486
153486