Bilder in Excel skalieren

[Thorsten Schmuhl]

Hallo,

ich möchte in ein Excel Sheet per Automation ein Bild (*.wmf) einbinden und dieses danach proportional zur Originalgröße skalieren. Ich nutze Excel 2000 und Delphi 5.

Hat jemand eine Ahnung, was ich machen muß?

Probiert habe ich bisher:

sheet := xlApp.ActiveSheet as _Worksheet; <br>
... <br>
sheet.cells[ 1, 1].Select; <br>
Sheet.Pictures.Insert('C:PICTURE.WMF').Select; <br>

Bis hierhin funtioniert es. Aber wie geht es weiter?

Gruß aus Hamburg

Thorsten

[Thorsten Schmuhl]

Wie lautete der Spruch doch gleich: Hilf Dir selbst, dann hilft Dir Gott ;-) oder so ähnlich...

Habe das Problem gelöst. Für alle die es interessiert, hier die Fortsetzung:
...<br>
Sheet.Pictures.Insert('C:\PICTURE.WMF').Select;<br >
sheet.Pictures.ShapeRange.ScaleWidth(0.37, False);<br>
sheet.Pictures.ShapeRange.ScaleHeight(0.37, false);<br&gt