inserção de Imagens

[joocta]

Olá amigos,

estou tentando fazer uma adaptação no Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel com pesquisa, minha intenção era colocar imagens. É possível? Tentei algumas maneiras, mas esta dando erro.

att,
José Octavio.

[webmaster]

Colega,

Ha varias adaptacoes disso aqui no forum. Use o mecanismo de pesquisa para encontra-las

[joocta]

Caro Web,
ja joguei mas nao estou achando... Tem como mandar algum link?
Att,
Joocta.

[joocta]

Caro Web,
estava usando essa para imagem em uma antiga, so nao estou conseguindo adaptar para o sistema..
Começa logo um erra na variavel "currentFind= " nao estou conseguindo direcionar para a planilha.

Private Sub imgAnverso_Click()
Dim myPictName As String
Dim lLinha As Long

myPictName = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.ico;*.bmp")

If IsNumeric(txtContador.Text) = True Then
Set currentFind = Worksheets("BD").Range("A:A").Find(txtContador.Text, , _
Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

lLinha = currentFind.Row
Else
lLinha = Sheets("BD").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If

On Error Resume Next

If myPictName <> "" Then
Me.imgAnverso.Picture = LoadPicture(myPictName)
imgAnverso.PictureSizeMode = fmPictureSizeModeStretch
imgAnverso.Visible = False
imgAnverso.Visible = True
Worksheets("BD").Cells.Range("AA" & lLinha).Value = myPictName

End If
End Sub



Att,
Joocta

[webmaster]

Joocta,

Onde pegou esse codigo? Ele foi aplicado na planilha de cadastro?

[joocta]

E de um outro sistema.. Web, estou começando, mas acho que nao vai funcionar nele.. Tem algum link para eu dar uma olhada?

[webmaster]

joocta,

Vamos do começo. Colocar a imagem no form exige os seguintes passos:

Obter a imagem e aprensenta-la (a segunda parte é opcional, mas é chato cadastrar imagem sem mostrá-la)
Associar a imagem ao registro que esta sendo salvo
Copiar a imagem para um lugar seguro para o aplicativo

O código que colocou está fazendo um pouco da primeira parte. Falta o restante.

Fiz o código um dia para um cliente que renomeava a imagem para o id do registro e copiava para a própria do aplicativo. Pode ser que ajude em algo:

Código: Selecionar todos

Private Sub btnExcluirImagem_Click()
    If MsgBox("Excluir imagem?", vbYesNo) = vbYes Then
        Dim EnderecoImagem As String
        EnderecoImagem = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, Me.TextBoxITEM) & ".jpg"
        Call ExcluiArquivo(EnderecoImagem)
        ImageFOTO.Picture = Nothing
    End If
End Sub

Private Sub btnImagem_Click()
    Dim Filtro As String, Titulo As String, EnderecoImagem As String, EnderecoFinal As String, Entensao As String
    Dim EnderecoSplit() As String
    Filtro = "image Files(*.jpg*),*.jpg*"
    Titulo = "Selecionar arquivo"
    EnderecoImagem = Application.GetOpenFilename(FileFilter:=Filtro, Title:=Titulo, MultiSelect:=False)
    
    If Not IsEmpty(EnderecoImagem) Then
        'pega a extensão do arquivo
        EnderecoSplit = Split(EnderecoImagem, ".", -1, vbTextCompare)
        Extensao = ".jpg" '"." & EnderecoSplit(UBound(EnderecoSplit))
        EnderecoFinal = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, Me.TextBoxITEM & Extensao)
        FileCopy EnderecoImagem, EnderecoFinal
        ImageFOTO.Picture = LoadPicture(EnderecoFinal)
    End If
End Sub

[joocta]

Web, eu dei uma contornada, eu joguei o caminho em uma textbox e salvei o conteudo da text na planilha.. Pode ate nao ser o certo, mas funcionou.

Estou com um problema neste tópico, e esse eu nao sei o que esta dando errado:

viewtopic.php?f=20&t=4995

Att,
Joocta.