Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Sub InsertPictures_Linked_To_File() ' by rorya from EE Dim C As Range Dim Image As Picture If MsgBox("Would you like to add pictures to the active worksheet, linking them?" & vbCrLf & vbCrLf & _ "There must be network paths as hyperlinks to draw the picture from!", vbQuestion + vbYesNo, "Insert Pictures into Column D") = vbNo Then Exit Sub End If On Error Resume Next 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) 'linktofile:=msoFalse With Image If .Height > Application.CentimetersToPoints(4) Then _ .ShapeRange.ScaleHeight Application.CentimetersToPoints(4) / .Height, msoCTrue .TopLeftCell.RowHeight = Image.Height + 10 If .Height > .Width Then With .ShapeRange .Rotation = 90 .IncrementLeft .Height / 2 - .Width / 2 .IncrementTop .Width / 2 - .Height / 2 + 5 End With .TopLeftCell.RowHeight = Image.Width + 10 Else: .ShapeRange.IncrementTop (5) End If End With Next End Sub