Pergunte aqui
0

Macro funcionava e deixou de funcionar [Resolvida]

perguntadas 2018-12-01 17:00:03 +0100

updated 2018-12-04 19:56:09 +0100

Esta Macro funcionava:

No LibO 6.0.6.2 mas na LibO 6.1.3.2 deixou de funcionar, da o erro abaixo:

 '==========================================================================
    Sub ColarImagem ( a As Integer, b As Integer, c As Integer, d As Integer )
    ' a Largura, b Altura (da imagem em centésimos de mm) c Coluna, d Linha
    '==========================================================================
    Dim oDoc As Object
    Dim oPaginaAtiva As Object
    Dim oImagen As Object
    Dim oTam As New com.sun.star.awt.Size
    Dim oPlan As Object
    Dim oCel As Object
        oDoc = ThisComponent
        sCaminho = ConvertToURL( Var1 )
        oPaginaAtiva = oDoc.getCurrentController.getActiveSheet.getDrawPage()   
        oImagen = oDoc.createInstance( "com.sun.star.drawing.GraphicObjectShape" )  
        oImagen.GraphicURL = sCaminho
        oPaginaAtiva.add( oImagen )
        oTam.Width = a 'em centésimos de milimitros
        oTam.Height = b 'em centésimos de milimitros
        oImagen.setSize( oTam )
        oCelda = ThisComponent.getCurrentController.getActiveSheet.getCellByPosition( c,d )
        oImagen.Anchor = oCelda 
    End Sub

Agora esta acusando este erro:

Descrição da imagem

Alguém sabe explicar o motivo ?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

@Gilberto Schiavinatto, parou de funcionar em qual versão do LibreOffice? Vc tem um modelo que chegou a funcionar para que possa compartilhar aqui para depurarmos?

imagem do gravatar de GrafenoGrafeno ( 2018-12-01 18:56:31 +0100 )editar

Ola @Grafeno, enviei direto para ti.

Macro montada em Jan/2018 e estava funcionando.

Normalmente uso a ultima versão do LibO.

Macro baseada no manual do Mauricio Baesa Servin.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-12-01 22:53:30 +0100 )editar

2 Respostas

1

respondidas 2018-12-04 22:17:34 +0100

imagem do gravatar de Grafeno

updated 2018-12-05 01:39:22 +0100

Boa noite,

Eu tenho uma sugestão. Com a função FileExists() você pode verificar se o arquivo existe, antes de adicionar a imagem. Assim, não acontecerá esse erro específico.

'==========================================================================
    Sub ColarImagem ( a As Integer, b As Integer, c As Integer, d As Integer )
    ' a Largura, b Altura (da imagem em centésimos de mm) c Coluna, d Linha
    '==========================================================================
    Dim oDoc As Object
    Dim oPaginaAtiva As Object
    Dim oImagen As Object
    Dim oTam As New com.sun.star.awt.Size
    Dim oPlan As Object
    Dim oCel As Object
        oDoc = ThisComponent
        sCaminho = ConvertToURL( Var1 )
        If FileExists( Var1 ) Then 'Testa se o arquivo de imagem existe para executar
          oPaginaAtiva = oDoc.getCurrentController.getActiveSheet.getDrawPage()   
          oImagen = oDoc.createInstance( "com.sun.star.drawing.GraphicObjectShape" )  
          oImagen.GraphicURL = sCaminho
          oPaginaAtiva.add( oImagen )
          oTam.Width = a 'em centésimos de milimitros
          oTam.Height = b 'em centésimos de milimitros
          oImagen.setSize( oTam )
          oCelda = ThisComponent.getCurrentController.getActiveSheet.getCellByPosition( c,d )
          oImagen.Anchor = oCelda
        End If
    End Sub

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Perfeito @Grafeno, obrigado.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-12-05 13:41:39 +0100 )editar
0

respondidas 2018-12-03 18:05:15 +0100

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

Ops, Ola @Grafeno, descobri o erro, esta funcionando sim, o problema foi gerado devido uma imagem que não foi encontrada no diretório.

editar assinalar como ofensivo Excluir Link mais

Comentários

1

@Gilberto Schiavinatto, em meus testes a macro funcionava sempre. Mas ainda bem que ficou resolvido.

imagem do gravatar de GrafenoGrafeno ( 2018-12-04 22:09:32 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-12-01 17:00:03 +0100

Lidas: 37 vezes

Última atualização: Dec 05