Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Sub InsertPictures() ' ' by Rgonzo, EE ' Dim c As Range Dim Image As Picture ' For Each c In Range(Range("C2"), Range("C" & Rows.Count).End(xlUp)) c.Offset(0, 1).Activate 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) End If End If Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.