How to create a button that upload pdf Object to the active excel spreadsheet?

**Talk_4** · 01-15-2015, 06:26 PM

Hello everyone!,

I'm currently in the works to creating an excel button.

The button is designed to generate the object dialog box to select a pdf file to be inserted into the active sheet as a pdf icon, in addition, with the pdf file name as the PDF Object label name.

I'm no expert with VBA, so i've decided to record a macro to auto-generate the vba code, and here's what i got:

Sub Button1_Click()
'
' Button1_Click Macro
'

'
ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.11", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-7AD7-1033-7B44-AB0000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:="Adobe Acrobat Document").Activate
ActiveSheet.Shapes("Object 2").IncrementLeft 244.5
ActiveSheet.Shapes("Object 2").IncrementTop -72
Range("L9").Select
End Sub

The code doesn't give me the appropriate label name (the file name which I'm uploading), the code won't let me close the dialog box if i should wish to, and it eventually gives me a error debug box.

Can anyone please help me with this process?

Thanks!

**natefarm** · 01-16-2015, 06:20 PM

Give this a try:

Sub MakeIcon_Click()
Dim Pathname As String

    Pathname = Application.GetOpenFilename(Filefilter:="PDF files (*.pdf), *.pdf", Title:="Select PDF File")
    If Pathname <> "False" Then
        Application.ScreenUpdating = False
        ActiveSheet.OLEObjects.Add(Filename:=Pathname, Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Windows\Installer\{AC76BA86-1033-FFFF-7760-000000000006}\_PDFFile.ico", _
        IconIndex:=0, IconLabel:=Pathname).Select
        With Selection ' Move to desired position
            .Top = Range("B2").Top
            .Left = Range("B2").Left
        End With
        Range("B2").Select
    End If
End Sub

How to create a button that upload pdf Object to the active excel spreadsheet?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

How to create a button that upload pdf Object to the active excel spreadsheet?

Re: How to create a button that upload pdf Object to the active excel spreadsheet?

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Call an Active X button from another spreadsheet.

Active X Component Can't Create Object: Multiple Excel Instance Error

create a find button in the excel spreadsheet

Active X component can't create object error

upload data from an excel worksheet to SQL W/ a command Button

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions