Macro funcionava e deixou de funcionar

[schiavinatto]

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:

Alguém sabe explicar o motivo ?

[Grafeno]

@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?

[schiavinatto]

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.

[Grafeno]

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,

[schiavinatto]

Perfeito @Grafeno, obrigado.

[schiavinatto]

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

[Grafeno]

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