Inserting Picture if pin is entered

[lizemi]

Sub Sign()
'
' Sign Macro
' Sign
Range("d37").Select 'Select cell where the signature is going.
attachFile = Application.GetOpenFilename(FileFilter:="Picture Files (*.jpg;*.bmp;*.png), *.jpg;*.bmp;*.png", Title:="Select Signature File") 'Prompt to upload the signature file.
If attachFile = False Then Exit Sub 'If no file uploaded exit the subroutine.
Set signimage = ActiveSheet.Pictures.Insert(attachFile) 'Attach image
With signimage
'Resize Picture to fit in the range....
.Left = Range("d37").Left + (Range("d37:d37").WIDTH - .WIDTH) / 0.5 'centre image
.Top = Range("d37").Top + (Range("d37:d37").HEIGHT - .HEIGHT) / 0.5 'centre image
.Placement = 1
.PrintObject = True
End With

End Sub


I found this code that allows a picture to be inserted , could this be modfied to work,

What I want to tell the macro is if

pin code 1234 is entered insert picture A( routing to picture saved on our sharepoint ( This will be managers a pin code and a picture of manager A signature)
pin code 2345 is entered insert picture B( routing to picture saved on our sharepoint ( This will be managers B pin code and a picture of manager B signature)

so basically I want the manager to enter his pin code and his signature is automatically inserted.

 

[Fluff]

Duplicate to: Authorising Purchase Orders

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.