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!
If sFileExt = ".jpeg" Or sFileExt = ".jpg" Or sFileExt = ".bmp" Or sFileExt = ".gif" Or sFileExt = ".jpeg" Or sFileExt = ".jpeg" Or sFileExt = ".tiff" Or sFileExt = ".png" Or sFileExt = ".JPG" Or sFileExt = ".BMP" Or sFileExt = ".GIF" Or sFileExt = ".JPEG" Or sFileExt = ".TIFF" Or sFileExt = ".PNG" Then Range("A" & lRow).Select Workbooks(DDM).Sheets("WIP").Activate ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:="Preview:" ActiveCell.Comment.Shape.Fill.UserPicture sLink ActiveCell.Comment.Shape.ScaleHeight 3#, msoFalse, msoscaleformtopleft ActiveCell.Comment.Shape.ScaleWidth 2.4, msoFalse, msoscaleformtopleft ' Insert image control Pic to set Picture height and width ' Then remove the picture, but leave the control so it's dimensions ' can be used to size the image Set Pict1 = ActiveSheet.Pictures.Insert(sLink) With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlTop .ReadingOrder = xlContext .Orientation = xlHorizontal End With With ActiveCell.Comment.Shape .Height = Pict1.Height .Width = Pict1.Width End With Pict1.Delete Set Pict1 = Nothing Else End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel: Calculating during business hour time versus after business hour time||24||20|
|Excel to show a dynamic Picklist at level2||2||23|
|Email Excel WB by selecting name from a dropdown list to Outlook.||5||43|
|Office 365 adding a domain||3||33|
Join the community of 500,000 technology professionals and ask your questions.