Pergunte aqui
0

Vincular imagens a célula para pesquisa

perguntadas 2018-09-25 18:26:25 +0200

imagem do gravatar de Hermeto Menezes Silva

updated 2019-03-01 18:15:58 +0200

Amigos da lista, tenho uma tabela no calc seno coluna 1 matrícula, coluna 2 nome e na coluna 3 gostaria de inserir a foto (associados de uma pequena associação). Na questão https://ask.libreoffice.org/pt-br/que..., o Gilberto passou-me a solução para controle dos pagamentos mensais. Agora tô quebrando cabeça para fazer aparecer a foto do sócio em que, com a função PROCV, ÍNDICE ou CORRESP visualizo o nome pela matrícula. Ou seja, cada vez que trocar a matrícula em uma célula, retorna também o nome e (deveria) a foto. Se eu inserir imagem na coluna 3, (cada linha com a respectiva foto), o calc não acha a figura na célula. Estive pesquisando e achei solução para o Excel: clicar na figura e na barra de fórmula colar a fórmula que retorna a célula da coluna 3 associada a matrícula. Alguém sabe como fazer o calc achar a imagem na célula ou até em um arquivo externo. Agradeço a ajuda. Hermeto - Barra do Quaraí/RS

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

0

respondidas 2018-09-25 19:53:27 +0200

Ola @Hermeto Menezes Silva, na tabela das associados deve-se incluir o nome da foto ou a foto ser o nome do associado e estar em uma pasta. Partindo deste ponto quando for gerar o formulário de um associado, ter um acionador de macro que pelo nome (sugestão) busque a foto na pasta e cole no lugar desejado ( ou onde estiver o cursor).

De uma olhada neste exemplo do @Beto: http://betobyte.blogspot.com/2016/12/...

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2018-09-25 19:40:36 +0200

imagem do gravatar de Conrado

updated 2018-09-25 20:10:28 +0200

Olá, @Hermeto Menezes Silva

Veja se te ajuda. Contém o link da fonte da wiki. Lá vc pode encontrar diversas outras coisas relacionado a imagens e bordas.

Temos também esse post https://ask.libreoffice.org/pt-br/que...

Sub AddImg
'Fonte: https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Structure_of_Drawings#Moving_a_Page

    Dim GraphicObjectShape As Object
    Dim Point As New com.sun.star.awt.Point
    Dim Size As New com.sun.star.awt.Size
    Dim Page As Object

    Dim oImg as String
    Dim VerificaImagem as String

    oDoc = ThisComponent
    Page = oDoc.DrawPages(1) 'Indica a posição da planilha - de 0 a total de planilhas
    oPlan = oDoc.Sheets.getByName("Planilha1")

    oImg = oPlan.getCellRangeByName("R14").String 'local do link da imagem

    'posição onde ela será inserida e seu
    Point.x = 9700
    Point.y = 6990
    'tamanho da imagem
    Size.Width = 6085
    Size.Height = 3500

    GraphicObjectShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")

    GraphicObjectShape.Size = Size
    GraphicObjectShape.Position = Point

    GraphicObjectShape.GraphicURL = ConvertToUrl(oImg)
    GraphicObjectShape.LineStyle = com.sun.star.drawing.LineStyle.SOLID
    GraphicObjectShape.LineColor = RGB(0,0,0)

    Page.add(GraphicObjectShape)

End Sub

Caso queira utilizar caixa de controle de imagem, segue abaixo. Neste caso precisará utilizar controle de seleção de arquivo

Sub AddImagem (oEvento)

    Dim sName as String

    oDoc = ThisComponent   
    oFormulario = oEvento.Source.Model.Parent
    oColetaLink = oFormulario.getByName ("ColetaLink")

    sName = oColetaLink.Text

    'fonte: https://forum.openoffice.org/en/forum/viewtopic.php?f=9&t=82454
    oButton=oEvento.source.model
    oFormulario=oButton.parent
    oImage=oFormulario.getbyname("ImgLanc")
    oImage.imageurl=ConvertToUrl(sName)
    oImage.reset

End Sub
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-09-25 18:26:25 +0200

Lidas: 298 vezes

Última atualização: Sep 25 '18