Printing single sheet to .pdf then embedding the file. (renaming OLEObject?)

I am attempting to have a button create a pdf file and embed it into a workbook at a specific cell range. Once it does that I want to resize the object so that it will fit into one normal sized cell. From there the user can double click on it and it will open in their pdf viewer.

I am pretty close to figuring it out, I have a button that works to save the object in a local directory and then it grabs that file and embeds it.

The problem I am having is resizing. I want to resize the object but my skills are terrible with VBA (however they are top notch with a bow staff). Here is what I have so far...

Please Login or Register  to view this content.

As you can see, I have tried to resize the object based on a name I gave it. This is because I will be creating one of these charts for up to 50 embedded pdfs yet they all have to come from one sheet. So, if I have it referencing "Object 1", as soon as I hit the button again it creates it as "Object 2" and the VBA reference is lost.

How would I rename or otherwise resize this object to fit into a cell?

I have included a test workbook that I have been playing around with.

Thanks in advance!

So, it was easier than I thought!

Please Login or Register  to view this content.

This exports to pdf using a static filename (can I make it dynamic?), then it grabs the file it created and embeds it. Once it is embedded it looks for the first OLEObject and changes the name to "UserInput" (because it was chopped from someone elses code).

My problem now is that if I wanted to make one button create a pdf in P30 using one macro, then another button using a different macro to create a pdf in P34, it will already have an object on the sheet so the OLEObject(1) function won't pull the right one. Is there a way to find an OLEObject within a certain range (like P30 for example)?