Jump to content
Fórum Script Brasil
  • 0

Carregando Imagens de outro Formulario


Julio Nassif
 Share

Question

Boa tarde pessoal,

Eu estou criando um programa em VBA de cadastro de clientes/produtos e controle de estoque

O cadastro e pesquisa está funcionando tudo bem.

Para cadastrar a imagem eu estou usando o seguinte codigo:

Private Sub Image1_Click()
Dim myPictName As String
Dim lLinha As Long
myPictName = Application.GetOpenFilename
If IsNumeric(txtCodigo.Text) = True Then
Set currentFind = Worksheets("Plan1").Range("A:A").Find(txtCodigo.Text, , _
Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)
lLinha = currentFind.Row
Else
lLinha = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If myPictName <> "" Then
Me.Image1.Picture = LoadPicture(myPictName)
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Visible = False
Image1.Visible = True
Worksheets("Plan1").Cells.Range("E" & lLinha).Value = myPictName
End If
End Sub

O problema é que o endereço da imagem ta ficando em outra linha que não a nova e quando eu faço a pesquisa do produto eu pego todos os dados e ele não carrega a imagem.

Poderiam me ajudar?

Att.
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...