Hallo Lukas,
Das ist etwas kompliziert. Wenn ich das richtig verstehe, bezieht sich die Punktangabe der Crop-Eigenschaft auf ein Bild das 100% der Originalbildgröße entspricht. Durch die Insert-Methode wird das Bild zumindest bei mir nach dem Einfügen aber automatisch scaliert. In meinem Fall auf 95% der Originalbildgröße. Damit werden auch nur 95% der angegebenen Punktzahl tatsächlich vom Bild abgeschnitten. Wenn du also bei Cropleft 100 Punkt angibst wird das Bild links um 95 Punkt verringert. (tatsächlich sind es ca. 95,4 Punkt weil die 100 beim Zuweisen ans Raster auf 100.5 Punkt aufgerundet und somit auch der Prozentwert davon ans Raster angepasst wird - aber es geht um die Logik) Lange Rede kurzer Sinn, setze nach dem Einfügen des Bildes die Bildgröße auf 100%. Am besten so:
With Auswahl_Bild
.ScaleHeight 1, msoCTrue
.ScaleWidth 1, msoCTrue
Jetzt sollte dein Bild nach dem Zuschneiden auch der erwarteten Bildgröße +/- 1 Punkt entsprechen. Probiers aus.
Gruß Mr. K.
|