Hi @prachi,
Macros VBA is very specific to the individual requirement, so it is difficult to give general advice that will work across use cases.
Hopefully, to get you on the right path, you can consider the following general VBA script. To embed objects in the cells.
Sub AddingObjects()
Range("A1").Select
ActiveSheet.OLEObjects.Add(Filename:= " <Path of your PDF> " _
,Link:=True, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1033-7B44-AC0F074E4100}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:=" <Icon Label Name> ").Select
End Sub
You have to make changes according to your requirement and you can change the Icon of your embedded object i.e PDF (Here I used default PDF icon)
Hopefully, this will suffice your requirement.
Cheers
Prajwal!