Embedded OLEObject (Word) in Excel export to pdf after changing it

Hello, I'm new here
I'm duth (from Belgium) so my Englisch is not quit good but I'll try to do my best.
I hope you can think about this when there's an answer and keep your answer extremely simple :-) but I'll do my best to understand al your answers.

I need help with a code, vba, for making a macro.
I can't find any solutions of it so I hope the experts here can help me :-)

So, i have an excel-file.
On one of the sheets (blad1) I have an embedded Word OLEObject.
I can change this object instantly in excel but I want to save it as a pdf-file everytime there are changes on de object.

Can anybody help me to make a code?

Thanks Joske,

the code crashes on the line

Set obj = Selection.Object

Can you help me further with this?

Thanks a lot Joske. Heel erg bedankt Joske !
I was only struggeling for searching the object-name. I found it by richt-click on the object - assign macro - and there was the name

It worked fine for me.
I will also share this link on a dutch forum.

Joske, I want to ask you something about the script.
If I wanne cancel the Saving

I get a message:
"fout 4198 tijdens uitvoering" (=dutch)

Can you solve this ?

ok, thanks again :-)

Hi Joske920, another question
Is there a way to make a msgbox if the file saved succesfully?

"hhr succesfull saved"

Ok, I found it !
simpely put the code MsgBox

Private Sub OpslaanAlsPDF_click()

' OpslaanNaarPDF Macro

Dim Oobj As OLEObject, obj As Object, FilePath As String, FileExists As String

Blad4.Shapes.Range(Array("Object 10")).Select  '' AANPASSEN indien nodig - Blad (hier Blad4) en object (hier Object 10)
   
'Selection.Verb Verb:=xlOpen
FilePath = "C:\JVC\HHR.pdf"  ''AANPASSEN indien nodig
Set Oobj = Selection
   
Oobj.Activate
   
Blad4.Activate  ''AANPASSEN indien nodig - Blad (hier Blad4)
Blad4.Cells(1, 1).Select ''AANPASSEN indien nodig - Blad (hier Blad4)
   
Set obj = Oobj.Object

FileExists = Dir(FilePath)

If FileExists <> "" Then
    FilePath = InputBox("Geef naam/adres in die je wilt gebruiken", "Opgelet bestand bestaat al", FilePath)
End If
    
If FilePath = vbNullString Then Exit Sub
   
   obj.SaveAs FilePath, 17  ''17=PDF
   MsgBox "Saved succesfully !"

   
End Sub