shape.left nach Rotation
Franz
aus einem Code von Hans dieser Auszug:
Sub test()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Bild 26")
shp.Left = ActiveCell.Left
End Sub
Damit kann ein Bild in eine Zelle eingefügt werden.Das Problem: nach einer Rotation des Bildes um 90 Grad nach rechts bleibt "shp.Left" diesselbe Ecke wie vorher. D. h. sie ist nun nicht mehr links, sondern rechts oben. Heißt aber immer noch "Left" ... !! Und somit funktioniert obiger Code nicht mehr, Bild wird nicht mehr exakt in eine Zelle eingefügt.
Gibt es da Abhilfe?
Danke schonmal und Grüße
Franz