VBA Insert PDF File as an Object using User Form

Hiii EveryONE, this my Firs post here I have problem killing me and I have to make this userform but I face this challenge i need to insert a button that will allow the user to browse and choose a PDF file this file will inserted in a cell in a sheet as an object .i try this code but it only browse and open .:


Private Sub CommandButton4_Click()

Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
With f
.Title = "Select a file..."
.InitialFileName = "t:\" '<- start in folder
.ButtonName = "Select"
.Filters.Add "PDF Files", "*.PDF", 1
.AllowMultiSelect = False
If .Show = -1 Then
Shell "cmd /c " & """" & .SelectedItems(1) & """"
End If
End With

Hi there,

Try the following code and see if it does what you need:

Please Login or Register  to view this content.

The selected PDF file will be inserted at the currently-active cell.

Hope this helps - please let me know how you get on.

Regards,

Greg M

The code inserts it in the activecell providing that cell is NOT locked and the sheet is NOT protected.

I use this code in ThisWorkbook object so that all my sheets can be modified by code. Change ken to your password.

Please Login or Register  to view this content.

Hi again,

Has Kenneth's suggestion solved the problem?

Regards,

Greg M

Sorry my Friends the same error Cannot insert the object , lets just focus trying to insert the object fill in specific cell say "a1" PLZ .

Hi again,

The following code works perfectly on a protected worksheet on my system:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Obviously, you would have to execute the protection code that I showed you or add it and then close and open your workbook for the Workbook's Open event to execute it.

If you want it inserted to A1, then before OleObjects.Add line, Range("A1").Select. Or, we could insert it anywhere and then move it.

I guess you could manually unprotect A1 if you are unsure that the protect option that I showed you was not set.

Or Unprotect and then Protect the ActiveSheet as Greg showed you.