2009-09-29T13:15:59 havi

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use warnings;
use strict;
use Win32::OLE::Const 'Microsoft Excel';

$Win32::OLE::Warn = 3;

my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||
            Win32::OLE->new('Excel.Application', 'Quit');
my $book  = $excel->Workbooks->Open("C:\\dev\\test.xls");

$book->ActiveSheet->Pictures->Insert("C:\\dev\\Logo.png");

$book->Close;

$excel->Quit();

OK, ist glaub ich nicht ganz was du willst...

Schau dir mal:
Selection.ShapeRange.IncrementLeft
Selection.ShapeRange.IncrementTop
an.