Basic Macro Question

[Abhishek1988]

Hi Everyone,

I have below code to insert documents into excel

Sub Insert_OLE_Object()

Worksheets("Sheet1").OLEObjects.Add Filename:="c:\temp\sample.pdf", Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=150, Height:=10
End Sub

I want to know how can i can run above code by clicking on button. Where i should put dis code in VBA?

Please help me in this

 

[Exceladd1ct]

By clicking on a button, do you mean a User Form Button, or a Shape on your sheet?

 

[Abhishek1988]

Normal button insert from developer tab.

 

[Exceladd1ct]

After drawing the button on your sheet, "Assign Macro" window will pop up, choose your Function ( Insert_OLE_Object()) from the list, or just click the New button from that window and paste your code inside that Sub:

Worksheets("Sheet1").OLEObjects.Add Filename:="c:\temp\sample.pdf",  Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=150,  Height:=10

 

[Abhishek1988]

Thanks for response. by doing this we are just copy that code into button but can i link both the SUB?

 

[Michael M]

What do you mean by both the SUB ???

 

[Abhishek1988]

Hello thanks for your response

Pls refer below link and assist me
https://www.mrexcel.com/forum/excel-questions/1086940-insert-file-into-excel-icon.html

For above, i m getting lost of coding like add pdf() or insert object () but i don't know how to apply the same on button click.

It would be great help you could help me in dis.

 

[Exceladd1ct]

Still not sure I understand what are you looking for but, if you want to call multiple functions when the button is pressed, instead of assigning your button with an existing macro, you can call those functions as bellow:

Sub Button_Click() 
MyFunc1
MyFunc2
End Sub

Sub MyFunc1
MsgBox "This is MyFunc1" 
End Sub

Sub MyFunc2 
MsgBox "This is MyFunc2" 
End Sub

Replace MyFunc1 and MyFunc2 with your Function Names.