none
Ativar planilha em Excel quando outro programa do Windows está ativo RRS feed

  • Pergunta

  • Pessoal, tenho uma macro que ativou uma imagem utilizando o visualizador do Windows. Logo após isso eu gostaria que a planilha em excel fosse ativada novamente. O meu código em Excel abaixo é insuficiente, pois a minha planilha não aparece como ativo na minha tela do PC. O que fazer?

    Sub Macro1()

        VisualizadorImagens = "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen"
        CaminhoImagem = "C:\Documents and Settings\Imagens\" + ActiveCell.Text & ".jpg"
        Shell VisualizadorImagens & " " & CaminhoImagem
            
        Windows("Planilha.xls").Activate

    End Sub

    Obs.: Antes de abrir a imagem a "Planilha.xls" estava já ativa e aberta.

    Obrigado!

    sexta-feira, 3 de outubro de 2014 15:12

Respostas

  • Talvez...

    AppActivate Application.Name, True


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta dmfmakko sexta-feira, 10 de outubro de 2014 15:56
    terça-feira, 7 de outubro de 2014 22:04
    Moderador

Todas as Respostas

  • Olá, boa noite.

    Não testei, mas acho que a solução abaixo funciona para o que precisa. Antes de seu código insira:

    Dim pAtual As Worksheet
    
    Set pAtual = ActiveSheet

    E após:

    pAtual.Activate

    Ou também poderia funcionar:

    Dim wAtual As Workbook
    
    Set wAtual = ActiveWorkbook
    
    '...
    
    wAtual.Activate
    Resolve?


    Filipe Magno

    domingo, 5 de outubro de 2014 01:32
  • Talvez...

    AppActivate Application.Name, True


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta dmfmakko sexta-feira, 10 de outubro de 2014 15:56
    terça-feira, 7 de outubro de 2014 22:04
    Moderador