ole32 -> Excel-chart bild einfügen (Allgemeines zu Perl)

[thread]13504[/thread]

ole32 -> Excel-chart bild einfügen

Leser: 20

Articles: hide open all | hide show old branches

+7 replies

NixIsFix

2009-05-11 16:55

User since
2009-04-28
16 Artikel
BenutzerIn
[default_avatar]

bin wieder auf ein kleines problem gestoßen.

ich würde gerne in ein ersteltest excelchart ein bildeinfügen. beim "normalen"sheet ist es kein problem. jedoch stelle ich ich mich beim chart etwas dumm an.

das zeichnet der makrorecorder auf :

Code: (dl )

 ActiveChart.Pictures.Insert("bild.bmp").Select

diesen code habe ich versucht:

Code (perl): (dl )

    $chart->Pictures->Insert("bild.bmp");

und die fehlermeldung habe ich bekommen:
O

Code: (dl )

LE exception from "Microsoft Office Excel":

Die Insert-Eigenschaft des Pictures-Objektes kann nicht zugeordnet werden.

Win32::OLE(0.1709) error 0x800a03ec
    in METHOD/PROPERTYGET "Insert" at D:\TestScript.pl line 113

jemand ne idee?

+6 replies

Gast Gast

2009-05-11 20:09

So funktioniert es bei mir:

Code (perl): (dl )

my $workbook = $excel -> Workbooks -> Add();

my $sheet = $workbook -> Worksheets( 1 ); 
my $range = $sheet -> Range( 'A1:G2' );
$range -> {Value} = [ [ qw( 14 24 4 35 26 45 34 ) ], [ qw( 34 25 23 24 34 32 11 ) ] ];

my $chart = $workbook -> Charts -> Add();
$chart -> SetSourceData( { Source => $range, PlotBy => xlRows } );
$chart -> Activate;
my $range2 = $chart -> Pictures -> Insert( 'Testbild.jpg' );
$range2 -> ShapeRange -> IncrementLeft( 60 );
$range2 -> ShapeRange -> IncrementTop( 60 );

+5 replies

NixIsFix

2009-05-13 10:15

User since
2009-04-28
16 Artikel
BenutzerIn
[default_avatar]

danke für die hilfe...

jedoch bekomme ich eine Fehlemerldung (und es funktioniert nicht)

Code: (dl )

OLE exception from "Microsoft Office Excel":

Die Insert-Eigenschaft des Pictures-Objektes kann nicht zugeordnet werden.

Win32::OLE(0.1709) error 0x800a03ec
    in METHOD/PROPERTYGET "Insert" at D:\TestScript.pl line 113

Code (perl): (dl )

1
2
3

    my $range = $chart -> Pictures -> Insert( 'bild.bmp' );
    $range -> ShapeRange -> IncrementLeft( 60 );
    $range -> ShapeRange -> IncrementTop( 60 );

mh...noch ne idee?

+4 replies

Gast Gast

2009-05-13 15:55

Warum sparst du so beim Codeposten?

+3 replies

NixIsFix

2009-05-15 17:13

User since
2009-04-28
16 Artikel
BenutzerIn
[default_avatar]

mh... weil der code >5000 zeilen lang ist?

und alles andere was ich mit dem excel anstelle funktioniert.

aber werde es nochmal extrahieren und ein kleines file am WE draus machen, mal schauen, ob dann das problem immern och existiert.

+2 replies

NixIsFix

2009-05-18 10:34

User since
2009-04-28
16 Artikel
BenutzerIn
[default_avatar]

so nochmal der ganze code des "mini" files

(code von "Gast")

Code (perl): (dl )

use strict;
use Getopt::Long;
use File::Basename;
use Spreadsheet::WriteExcel;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;    # die on errors...


my $excel = Win32::OLE->GetActiveObject('Excel.Application')|| Win32::OLE->new( 'Excel.Application', 'Quit' );

my $workbook = $excel -> Workbooks -> Add();

my $sheet = $workbook -> Worksheets( 1 ); 
my $range = $sheet -> Range( 'A1:G2' );
$range -> {Value} = [ [ qw( 14 24 4 35 26 45 34 ) ], [ qw( 34 25 23 24 34 32 11 ) ] ];

my $chart = $workbook -> Charts -> Add();
$chart -> SetSourceData( { Source => $range, PlotBy => xlRows } );
$chart -> Activate;
my $range2 = $chart -> Pictures -> Insert( 'Testbild.jpg' );
$range2 -> ShapeRange -> IncrementLeft( 60 );
$range2 -> ShapeRange -> IncrementTop( 60 );

und es bleibt immer noch dieselbe fehlermeldung
->

Code: (dl )

OLE exception from "Microsoft Office Excel":

Die Insert-Eigenschaft des Pictures-Objektes kann nicht zugeordnet werden.

Win32::OLE(0.1709) error 0x800a03ec
    in METHOD/PROPERTYGET "Insert" at D:\Testbereich\DiagrammTest2.pl line 21

nun ne idee?

Gast Gast

2009-05-18 17:02

Eine solche Fehlermeldung bekomme ich, wenn ich die Bilddatei von "Testbild" nach "Testbild.jpg" umbenenne. Ich vermute, die Dateiendung ".jpg" wird von Windows selbst angehänt.

View all threads created 2009-05-11 16:55.