Bild einfügen - AddPicture
21.03.2009 09:23:29
Klaus
ich habe eine Exceldatei (erstellt in Excel 2003), in der via AddPicture Bilder eingefügt werden, wobei Top und Left sich an einer Zelle ausrichten. Unter Excel 2003 funktioniert das wunderbar, in Excel 2007 werden die Bilder immer zu hoch eingefügt, wobei der Fehler immer größer wird je weiter unten im Tabellenblatt das Bild eingefügt wird.
Hier der Beispielcode:
Dim rg as Range
Set rg = sheet.Range("TopLeft").Offset(1, 1)
sheet.Shapes.AddPicture "C:\temp\image.bmp", msoTrue, msoTrue, rg.left, rg.top, 70, 40
Set rg = Nothing
Wenn ich diesen Code in einer neuen Datei einfüge, dann funktioniert alles wunderbar in Office 2003 und 2007. Habt ihr eine Idee woran das liegen könnte? Ist beim Tabellenblatt, das in Excel 2003 erstellt worden ist etwas umzustellen, dass es funktioniert?
Ich bin um jede Hilfe dankbar,
Klaus