HOW TO INSERT PHOTOS IN EXCEL SHEET

 FOLLOW BELOW STEPS TO INSERT IMAGE IN IDENTIFICATION REGISTER OF NOMINAL   ROLE SSC  SOFTWARE 
A)IN COMPUTER
CREATE FOLDER>>>NAME IT >>>> OPEN FOLDER>>>PASTE ALL PHOTOS OF SSC STUDENT IN FOLDER>>>>GIVE ONLY NUMBERS LIKE 1,2,3,4, TO EACH PHOTO AS IN ORDER OF NR ALPHABETICAL ORDER SHEET
B)IN N.R SOFTWARE EXCEL SHEET
Open excel sheet---->go to developer tab ----> click on visual basic --->select module under insert tab on popup window  ----> paste below code in module >>>>then save the code --->return to identification register.
C)PASTE  FOLDER FULL PATH IN YELLOW COLOUR CELL

You can hold Shift key while you right-click any file or folder, and the right-click menu will show  "Copy as Path" option.  After you copy-as-path, then go to identification sheet of NR SOFTWARE  >>> click  on yellow colour cell on sheet >>>> paste it in yellow colour cell  with removing punctuation mark on both side 



Function ShowPicD(PicFile As String) As Boolean
'Same as ShowPic except deletes previous picture when picfile changes
Dim AC As Range
Static P As Shape
On Error GoTo Done
Set AC = Application.Caller
If PicExists(P) Then
P.Delete
Else
'look for a picture already over cell
For Each P In ActiveSheet.Shapes
If P.Type = msoLinkedPicture Then
If P.Left >= AC.Left And P.Left < AC.Left + AC.Width Then
If P.Top >= AC.Top And P.Top < AC.Top + AC.Height Then
P.Delete
Exit For
End If
End If
End If
Next P
End If
Set P = ActiveSheet.Shapes.AddPicture(PicFile, True, True, AC.Left, AC.Top, 120, 110)
ShowPicD = True
Exit Function
Done:
ShowPicD = False
End Function

Function PicExists(P As Shape) As Boolean
'Return true if P references an existing shape
Dim ShapeName As String
On Error GoTo NoPic
If P Is Nothing Then GoTo NoPic
ShapeName = P.Name
PicExists = True
NoPic:
PicExists = False
End Function

2 comments: