We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|Excel VBA - set conditional format rules precedence||3||87|
|Calculating Sales Tax||13||68|
|create different version if file exists||1||45|
|how i can add a progress bar with this code ?, anybody can help me?||10||51|
Join the community of 500,000 technology professionals and ask your questions.