Add and Delete/Modify a PDF object at Run time (VBA)

[DanielBe]

Hi,

I'm currently building a semi complex application.


On sheet1, I have a list of items with the path to a PDF file. When the user select a item, I need the PDF to open on sheet2 and print the Sheet. this is the part I've done so far...
But if the user click on a new item, I need to replace the previous pdf open on sheet2, this is where I'm stuck.


To open the PDF, I do as follow :

Sheet2.OLEObjects.Add Filename:="c:\temp\sample.pdf", Link:=False, DisplayAsIcon:=False, Left:=40, Top:=550, Width:=150, Height:=10


How can I name this file so I may delete later? EX :

Sheet2.Shapes("Object 12").Delete


for this I need to know the name of the inserted shape.


Thank for the help!

 

[anvg]

Hi,
Try with

    For Each pShape In ActiveSheet.Shapes
        If pShape.Type = msoEmbeddedOLEObject Then
            If pShape.OLEFormat.progID Like "AcroExch*" Then
                Debug.Print "this is a pdf file"
                pShape.Delete
            End If
        End If
    Next

Regards,

 

[DanielBe]

Thank you for the reply.
I've did something similar without seing your reply! (Great mind think alike!)
I've loop through all active shape but change the if for :

if pShape.Type = 7 then pShape.Delete

Thank again for the reply!