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, vocês conseguem pensar alguma solução?
Segue abaixo o codigo e a mensagem de erro:
[code]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
Pergunta
GabrielSRP
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, vocês conseguem pensar alguma solução?
Segue abaixo o codigo e a mensagem de erro:
[code]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
[/code]
[img]https://i.imgur.com/8K2Wf64.jpg[/img]
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.