Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

jpmoreira50

Macro que é executada em Excel 2003 e não em Excel 2007

Mensagens Recomendadas

jpmoreira50    0
jpmoreira50

A finalidade da macro seguinte é inserir uma imagem na célula B6 e outra imagem na célula J6.

Tenho executado a macro, que transcrevo abaixo, e funciona perfeitamente no Excel 2003, no entanto quando tento executá-la no Excel 2007 insere todas as imagens umas em cima das outras (ou seja, não respeita as células indicadas e insere-as sempre na célua B4)

Existe alguma forma de obter o que pretendo?

Obrigado pela ajuda

Public caminho As String

Sub Macro_Problema()

caminho = Application.ActiveWorkbook.Path & "\"
Worksheets("Folha1").Activate

' Inserir imagens em células
    
    Range("B6").Activate
    ficheiro = caminho & "imagem_1.jpg"
    ActiveSheet.Pictures.Insert (ficheiro)
    
    Range("J6").Activate
    ficheiro = caminho & "imagem_2.jpg"
    ActiveSheet.Pictures.Insert (ficheiro)
    
End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Eu de momento não posso experimentar porque não tenho Excel 2007, mas já vi em alguns lados discussões sobre um possível bug na versão 2007. De qualquer maneira, uma das soluções que já vi, era assim:

    ActiveSheet.Pictures.Insert(caminho & "imagem_1.jpg").Select
    Selection.Cut
    Range("B6").Select
    ActiveSheet.Paste

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpmoreira50    0
jpmoreira50

Só tenho a dizer... 5 Estrelas.

Esperava uma solução complicada mas afinal foi simples e funcional - o chamado ovo de Colombo.

Obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade