COPIAR IMAGENS ENTRE PLANILHAS

 Tópico anterior Próximo tópico Novo tópico

COPIAR IMAGENS ENTRE PLANILHAS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#491018 - 31/10/2019 13:33:55

VITORTA
SAO MATEUS
Cadast. em:Julho/2019


Senhores, estou com uma planilha que h uma imagem na plan2 que deve ser alterada quando rodo uma macro, as imagens para alterar esto localizadas na Plan1, tem algum cdigo que consigo fazer est alterao?



#491021 - 31/10/2019 13:49:08

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Que tipo de imagem? Por acaso seria um grfico?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#491023 - 31/10/2019 15:07:39

VITORTA
SAO MATEUS
Cadast. em:Julho/2019


Última edição em 31/10/2019 15:08:14 por VITORTA

 Anexos estao visíveis somente para usuários registrados

No, uma imagem JPEG estou enviando a planilha para dar uma olhada, no caso h uma imagem na planilha Laudo (imagem4) que deve ser alterada para uma das trs imagens da planilha (FOTOS).





#491027 - 01/11/2019 10:04:14

ACDONA
INDAIATUBA
Cadast. em:Janeiro/2009


A prpria planilha enviada j faz essa alterao:

[]ALTERANDO IMAGEM DE STATUS

If BD.Cells(Linha, 1) = []ACEITAVEL[] Then

    REL.Shapes.Range(Array([]Imagem4[])).Select
    Selection.Formula = []=FOTOS!$B$1[]

End If

If BD.Cells(Linha, 1) = []ALERTA[] Then

    REL.Shapes.Range(Array([]Imagem4[])).Select
    Selection.Formula = []=FOTOS!$B$2[]

End If

If BD.Cells(Linha, 1) = []CRITICO[] Then

    REL.Shapes.Range(Array([]Imagem4[])).Select
    Selection.Formula = []=FOTOS!$B$3[]

End If




 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário