Macro to insert object script error help

Hello,

thank you very much. Maybe i'm making something bad because i cannot make it working.


Thank you

Originally Posted by nathansav

Sub Macro1()
Dim FName As String
FName$ = Application.GetOpenFilename
If Not FName = "False" Then
ActiveSheet.OLEObjects.Add(Filename:=FName, _
Link:=False, _
DisplayAsIcon:=False).Select
End If
End Sub

When the error comes, if you hover over your variables you can see the contents, this gave the fix, its not a null string, its "False"

Thank you very much it is working perfectly, but i still need a little more help with the following.

and how can i specify in which cell and sheet name i want to be added the objects and not at the active one ?
also because this macro is assigned to a command button is it possible when the file has been attached successfully the text of the command button to change to "ok"

Originally Posted by nathansav

change activesheet, to a sheet reference, come on, these are the basics

Hello Thank you very much for your help already !!!

i already had done that with the sheet before your reply but i still cannot make working the following

how to specify to which cell and row i want to add the object based on a specific value
for example
if a1 = 1 then insert the object in cell b1
if a2 = 2 then insert the object in cell c1
and so one.

If you can help me with that i will be grateful.

Thank you very much in advance.

Hello, i'm using this code now but i cannot understand why i cannot add Wigth:=10, Height:=5 correctly always is given some error. If i add "if" to the script like A1=1 A1=2 and so one, then set Left:=50 +5, Top:=50 +5 Wigth:=10 +5, Height:=15 +5 and so on in a loop. Can someone help me with that script ??

Please Login or Register  to view this content.

Thank you very much in advance.

Hello,

can someone help me with that script problem please ?

Thank you very much in advance.

Hello nathansav,

yes i add all the details and the script is working but when i try to add Wigth, and Height to this script and it is giving me error no matter i try. And is it possible to add If statement into the script like if A1 = 1 then for example set Left, Top,Wigth, Height parameters + 50 for example, if A2 = 2 then set Left, Top,Wigth, Height parameters + 100 and so on on a loop ?

Thanks for your help in advance.

yes to your question.