Bild geht nicht msoScaleFromTopLeft
06.02.2021 13:28:36
Oliver
ich verzweifle noch an einem an sich kleinen Problem - und jetzt schon Danke fürs Lesen und vor allem Hilfe:
1. Basis ist eine kleine Tabelle in Excel 365, in der Mängel erfasst werden.
2. Dazu gibt es pro Mangel auch ein Bild, dessen Dateiname ermittelt wird und das auch einwandfrei in die Zelle der jeweiligen Mangelzeile eingelesen wird. Das Bild hat - wie es soll - seine linke obere Ecke auch links-oben in der Zelle
3. Nun muss das Bild noch auf die Zeilenhöhe skaliert werden.
und jetzt steige ich nach wirklich Wochen von Versuchen aus.
Mit dem Code klappt auch alles nur im Moment des Setzens von ScaleWidth nimmt er von dem Bild die RECHTE obere Ecke und somit verrutscht mir das Bild aus Spalte J nach rechts.
Anbei noch der Code
'Bild einfügen in Spalte J
Cells(i, 10).Select
ActiveSheet.Pictures.Insert(Bild).Select
Selection.Placement = xlMoveAndSize
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
Stop
'Seitenverhältnis und Zelle fixieren
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.Placement = xlMoveAndSize
'Skalieren
Selection.ShapeRange.ScaleWidth 0.3090339297, msoFalse, msoScaleFromTopLeft
'Selection.ShapeRange.ScaleHeight 0.309033958, msoFalse, msoScaleFromBottomRight
Stop
Selection.ShapeRange.Width = 83.2436669398
'manuelles Platzieren
If i = 4 Then Links = Selection.ShapeRange.Left
Selection.ShapeRange.Left = Links - 528
Nochmals Danke, wenn ihr mir den Tag rettet.
Opa Oli