OleObject - File path for upload document

[Abhishek1988]

Hi Everyone,

I have one code which will browse document from provide path:

Code:

Sub Button1_Click()
Worksheets("Sheet1").OLEObjects.Add Filename:="XXX", Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=150, Height:=10
End Sub

My expectation:

1. Filename should be based on the case value. Example if i put complete path in A1 in same sheet then it should pickup from there.

2. Above code is extracting file in big format however i need the same in embed.

Please help me in above points.

Thanks
Rahul Aggarwal

 

[Domenic]

Try...

Sub Button1_Click()
    Worksheets("Sheet1").OLEObjects.Add Filename:=Worksheets("Sheet1").Range("A1").Value, Link:=False, _
        DisplayAsIcon:=True, Left:=40, Top:=40, Width:=150, Height:=10
End Sub

Alternatively, it can be written as follows...

Sub Button1_Click()
    With Worksheets("Sheet1")
        .OLEObjects.Add Filename:=.Range("A1").Value, Link:=False, _
            DisplayAsIcon:=True, Left:=40, Top:=40, Width:=150, Height:=10
    End With
End Sub

Hope this helps!

 

[Abhishek1988]

Thanks for your response.

by above codes m getting syntax error

 

[Domenic]

Can you post the exact code that you are trying?

 

[Abhishek1988]

Hi I was putting the same code u gave me above

I rephrased my question in below link:. it would be great help you help me in below:

https://www.mrexcel.com/forum/excel-questions/1086940-insert-file-into-excel-icon.html


Thanks
Rahul