Anyone have any idea how I can find the maximum value in a range (B3:O3)? The only way I can think of would be to write a formula in another cell and compare this value to each of the values in B3:O3. There has to be a better way but darn if I can think of it.
Something like: my $r1 = $wsheet->Max(B3:O3); ##I know this doesn't work
use strict; use warnings; use Win32::OLE; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft PowerPoint'; use Win32::OLE::Const 'Microsoft Excel'; use Win32::OLE::Const 'Microsoft Office'; use Win32::OLE::Variant;
my $dirpath = "c:\\test"; # Path to Excel and PPT
my $pptsheet = 4; #to put sheet number here 4-30-2003
my $ppt=Win32::OLE->GetActiveObject('Powerpoint.Application')||
Win32::OLE->new('PowerPoint.Application','Quit');
$ppt->{Visible} = 1;
my $p2 = $ppt->Presentations->Open({FileName=>"$dirpath"."\\test.ppt"});foreach my $z (in $p2->Slides(1)->Shapes()){
if ($z->{Type}== 7){
my $zz=$z->OLEFormat->Object;
my $wsheet = $zz->Worksheets("Sheet1");my $r1 = $wsheet->Range("B3)->{Value};
print $r1;
}
}
_______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
