Codigo de VBA com erro
Enviado: 20 Abr 2022 às 16:13
Boa tarde!
Utilizava um código em suplemento que usava para inserir imagens nas minhas planilhas de acordo com um referencia alfanumérica, porem no inicio do mês o suplemento começou a responder uma mensagem para as referencias não encontradas.
E isso está causando muito transtorno nos meus processos, vcs conseguem pensar alguma solução?
Segue abaixo o codigo e a mensagem de erro:
Utilizava um código em suplemento que usava para inserir imagens nas minhas planilhas de acordo com um referencia alfanumérica, porem no inicio do mês o suplemento começou a responder uma mensagem para as referencias não encontradas.
E isso está causando muito transtorno nos meus processos, vcs conseguem pensar alguma solução?
Segue abaixo o codigo e a mensagem de erro:
Código: Selecionar todos
Public Function getImage(ByVal sCode As String) As String
Dim sFile As String
Dim oSheet As Worksheet
Dim oCell As Range
Dim oImage As Shape
Set oCell = Application.Caller ' Célula onde a função foi chamada
Set oSheet = oCell.Parent ' Planilha que chamou a função
' Se ainda não existir uma imagem com o código, carrega do arquivo e cria-a.
' A imagem já é posicionada na exata posição da célula onde a função foi chamada.
If oImage Is Nothing Then
sFile = "G:\FOTOS\" & sCode & ".jpg"
Set oImage = oSheet.Shapes.AddPicture(sFile, msoCTrue, msoCTrue, oCell.Left, oCell.Top, oCell.Width, oCell.Height)
oImage.Name = sCode
End If
' Retorna nada para a célula (afinal, esta é somente uma função de auxílio)
getImage = False
End Function