run-time error '438'

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ermeko - 28 Jan 2006 14:56 GMT

hi,
i have a commandbutton on an excel worksheet. on my operating system the
code bellow works but on another computer it prints : run-time error '438'

can you help me to solve this problem?

Sub CommandButton1_Click1()
Dim LNGCOUNT As Long
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
ActiveSheet.Shapes.AddPicture .SelectedItems(1), True, True, 20, 25, 220, 270
End With
End Sub

Reply to this Message

Dave Peterson - 28 Jan 2006 15:00 GMT

Are you running the same version of excel?

Application.FileDialog was added in xl2002.

It looks like you could use application.getopenfilename in your code, though.

> hi,
> i have a commandbutton on an excel worksheet. on my operating system the
[quoted text clipped - 10 lines]
> End With
> End Sub

Signature

Dave Peterson

Reply to this Message

ermeko - 28 Jan 2006 15:23 GMT

Dave,
thank you very much.
i did not check version yet. but your code worked ok on my pc. and as soon
as i get that computer i will try this code on it.

thanks,
again

> Are you running the same version of excel?
>
[quoted text clipped - 16 lines]
> > End With
> > End Sub

Reply to this Message