Friends,
why doesn't the following code work? I have no idea what
else I could try to change the attributes of a picture.
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
$word = Win32::OLE->new('Word.Application', 'Quit');
$doc = $word->Documents->add();
$doc->Activate();
$word->{ 'Visible' } = 1;
$Content = $doc->{Content};
$Content->{Text} = "Texte goes\nhere...";
$Content->{Font}->{Name}="Arial";
$Content->{Font}->{Size}=12;
$Content->Collapse({Direction => wdCollapseEnd});
$doc->Shapes->AddPicture('d:\temp\image.jpg'); #works
$doc->Shapes('Picture 2')->select; #works, 'but why Picture 2'?
$doc->Shapes('Picture 2')->{PictureFormat}->({Height=> 20});
#kinda wrong...
Any hint available?
TIA, Axel
--
"Way wrong answer!" - B. Willis in Armageddon
FLYnet - FLYer Kommunikationsgesellschaft mbH
Weender Landstr. 46 37073 Göttingen
http://www.flynet.de [EMAIL PROTECTED]
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
