• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

jpmoreira50

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

5 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

  :thumbsup:  Estou mesmo triste... Nem uma ajudinha... Será mesmo impossível?

Obrigado mesmo assim.    :(

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só tenho a dizer... 5 Estrelas.

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

Obrigado

0

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