SoftAid,
ik heb mijn vraag ook nog eens gesteld aan de persoon die me eerst geholpen had. Hij heeft vrijwel onmiddellijk geantwoord.
Dit is de volledig werkende code:
Private Sub OpslaanAlsPDF_click()
' OpslaanNaarPDF Macro
Dim Oobj As OLEObject, obj As Object, FilePath As String, FileExists As String
Blad4.Shapes.Range(Array("Object 4")).Select 'Blad* en Object* aanpassen
'Selection.Verb Verb:=xlOpen
FilePath = "C:\JVC\HHR.pdf" 'Adres aanpassen indien nodig
Set Oobj = Selection
Oobj.Activate
Blad4.Activate 'Blad* aanpassen indien nodig
Blad4.Cells(1, 1).Select 'Blad* aanpassen indien nodig
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.SaveAs2 FilePath, 17 '17=PDF
End Sub
Bedankt voor de hulp allemaal. Hopelijk leert iedereen hier weer van bij