Insert pdf into cell

[gsandy]

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 wish to insert by reference to a cell (numerous graphics are being inserted by a loop).
How can I modify the above code to insert into a cell?
Thanks Sandy.

 

[JoeMo]

Untested but you might try something like this:

Left:= Range("A1").Left
Width:= Range("A1").Width
Height:= Range("A1").Height

 

[gsandy]

Thanks JoeMo. Your code works but it always puts the pdf in the first row!

This code puts the pdf into cell A1:

Worksheets("PrintLabels").OLEObjects.Add Filename:=ActiveWorkbook.Path & "\101.pdf", Link:=False, _
DisplayAsIcon:=False, Left:=Range("A5").Left, Top:=1, Width:=Range("A5").Width, Height:=Range("A5").Height

This code puts the pdf into cell B1:

Worksheets("PrintLabels").OLEObjects.Add Filename:=ActiveWorkbook.Path & "\101.pdf", Link:=False, _
DisplayAsIcon:=False, Left:=Range("B5").Left, Top:=1, Width:=150, Height:=10

 

[gsandy]

Hi JoeMo,

Got it solved, just added the following:

Top:=Range("B5").Top

Thanks Sandy