Posts

Showing posts from May, 2019

Excel VBA: Insert Multipul Picture from Directory on Cell Value Change Without

Excel VBA: Insert Multipul Picture from Directory on Cell Value Change Without Error Youtube Link : https://youtu.be/pqpVp01sWB0 Code : This Code paste in Active sheet Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Range("b3") .Select Then         Dim myPict As Picture         Dim PictureLoc As String         If Target.Address = Range("b3") .Address Then         ActiveSheet.Pictures.Delete         PictureLoc = "D:\\FLIPKART\PHOTO\" & Range("b3") .Text & ".jpg"         With Range("b5")         On Error GoTo errormessage:         Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)          myPict.Height = 300          myPict.Width = 200          myPict.Top = .Top   ...