Este fórum está sendo desativado

[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, 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

[Basole]

Bom, fiz um teste aqui com a função em questão em um modulo padrão.

=getImage(A1) => sem colocar dados na célula A1, retornou => #valor

E inserindo um nome de imagem na celula A1, de um diretorio configurado na função, retornou a imagem como esperado.

Tente desistalar e reinstalar este suplemento para que ele volte a se comportar normalmente