Hello all,
thanks already in advance to try and help me with this.
I have a formula that inserts images based on a cell and it works fine if I activate this for the different Sheets individually -
now is there a way to apply this to all worksheets at the same time?
Code
Sub Picture()
Range("A1").Select
Dim picname As String
picname = "G:\BUYING\Non Food\EK-VK Kalkulation\2019\6\SO" & Range("B4") & "_VTF.jpg" 'Link to the picture
ActiveSheet.Pictures.Insert(picname).Select
With Selection
.Left = Range("A1").Left
.Top = Range("A1").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 500#
.ShapeRange.Width = 750#
.ShapeRange.Rotation = 0#
End With
Range("A1").Select
Application.ScreenUpdating = True
Exit Sub
ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("P20").Select
End Sub
Display More