Below macro, courtesy of Rgonzo1971, batch inserts pictures in Column D. The network paths of these pictures are located in Column C.
The macro works just fine and I was able to tweak it a little bit ...
... i.e. I also integrated an image rotation action for certain images.
The trouble is that the images get rotated around its centers and afterwards the graphics are not aligned top left anymore as are the other pictures.
Has anybody a solution to this problem?
Help is much appreciated. Thank you very much in advance.
' by Rgonzo, EE
Dim c As Range
Dim Image As Picture
For Each c In Range(Range("C2"), Range("C" & Rows.Count).End(xlUp))
Set Image = ActiveSheet.Pictures.Insert(c.Value2)
If Image.Height > Image.Width Then
Image.ShapeRange.Rotation = 90
If Image.Height > Application.CentimetersToPoints(4) Then
Image.Height = Application.CentimetersToPoints(4)