Dear - I need one help, using following code
I just need one amendment to show only those pictures in drive match with cell reference: "D7"
Code:
Dim fNameAndPath As Variant
Dim pRng As Range
Dim pTop As Long, pLeft As Long, pHeight As Long, pWidth As Long
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
Set pRng = ActiveSheet.Range("S27")
With pRng.MergeArea
pTop = .Top
pLeft = .Left
pHeight = .Height
pWidth = .Width
End With
ActiveSheet.Pictures.Insert(fNameAndPath).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = pLeft
.Top = pTop
.Width = pWidth
.Height = pHeight
End With
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
I just need one amendment to show only those pictures in drive match with cell reference: "D7"