Importar anotações e imagem para células.

Ola @ohallot esta Função funciona perfeitamente para Anotações em células.

Function ANOTACAO(Planilha as String, Celula as String) As String
' Para uso: =ANOTACAO("Quadro de vendas";"F5")
GlobalScope.BasicLibraries.LoadLibrary("Tools")
oSheet = ThisComponent.Sheets.getByName(Planilha)
oCell = GetCellByName(oSheet, Celula)
ANOTACAO = oCell.Annotation.String
End Function

Ref.: Importar anotações para células

Mas com referencia esta minha dica que pode inserir Imagem em Anotação

A pergunta: É possível, com uma Function, pegar a imagem inserida na Anotação ?

Se for possível, seria fácil montar arquivos com imagens referenciada em células.

Como o arquivo deste exemplo:

Tente usar a inteface Text (oCell.Annotation.Text) e use a macro Xray para descobrir como pegar a imagem (https://berma.pagesperso-orange.fr/Files_en/XrayTool60_en.odt)

Essa macro XRAY é fundamental para quem escreve macros no LirbeOffice

Ok @ohallot, obrigado.

Consegui contornar o problema, ver …

Arquivo teste, veja mais detalhes no arquivo.

Descrição da imagem