open the image from place opened file

alhagag · Apr 21st 2020

hi, expertsnd

i would some help to adjust my code i have workbook and pictures in the same directory i want when i press command button open on userform it open from this directory

"C:\Users\alhagag\Downloads\"

Code

Private Sub CommandButton1_Click()
'=======================
    Dim strFileName
    Dim MyPath As String

    Me.image_user.Picture = LoadPicture("C:\Users\alhagag\Downloads\")

    strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)
        If strFileName = False Then
            Me.image_user.Picture = LoadPicture(strFileName)
             Else
      MsgBox "it doesn't choose anything", vbExclamation, "wrong"
            a19.Value = strFileName
        End If

       End Sub

Display More

**royUK** · Apr 22nd 2020

That's what it does

alhagag · Apr 22nd 2020

but it gives me error about this

Code

Me.image_user.Picture = LoadPicture("C:\Users\alhagag\Downloads\")

i'm sure about directory of my file

**royUK** · Apr 22nd 2020

From the error message I would say you have the wrong path

alhagag · Apr 22nd 2020

so,what is the right?

**royUK** · Apr 22nd 2020

The one that contains the image.

alhagag · Apr 22nd 2020

if you mean specific the name of image and type i don't want do that because i have many images i would choose every time different image

in the same place my opened file

**royUK** · Apr 22nd 2020

You need the name of the image

alhagag · Apr 22nd 2020

i know your opinion but my hope i find way to make code the flexibility indeed this is the original code but unfortunately it opens from desktop

Code

  ======================
    Dim strFileName
    Dim MyPath As String

    MyPath = ThisWorkbook.Path & "\PH"
    strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)
        If strFileName = False Then
            Me.image_user.Picture = LoadPicture(strFileName)
             Else
      MsgBox "you don't choose employee", vbExclamation, "ÎØÃ"
            a19.Value = strFileName
        End If

Display More

**royUK** · Apr 22nd 2020

You need to allow the user to browse for the file then.

open the image from place opened file

Participate now!

Share

Users Viewing This Thread