I have used the code below to insert a pdf graphic into a spreadsheet:
Worksheets("PrintQRLabels").OLEObjects.Add Filename:=ActiveWorkbook.Path & "\101.pdf", Link:=False, DisplayAsIcon:=False, Left:=140, Top:=1, Width:=150, Height:=10
Instead of positioning the graphic by "Top" and "Left" I...