Excel Copiar Seleção com imagens

[Neodenn]

Boa tarde,

 

É possível selecionar um intervalo e copiar o texto e as imagens desta seleção para colar posteriormente?

 

O codigo que estou utilizando é o seguinte 

 

 

 

<

 

Selection.Copy

 

Range("A1").SpecialPaste

 

>

 

Desta maneira ele copia e cola a seleção, porém as imagens não coladas.

 

Desde já Grato!

[AfonsoMira]

Boas @Neodenn ,

 

Experimente seleccionando a imagem pelo nome:

ActiveSheet.Shapes.Range("Nome da Imagem").Select
Selection.Copy

Lembrando que a imagem é uma forma dentro do Excel, por isso que tem que chamar a função "Shapes"

[Neodenn]

@AfonsoMira Pra mim não daria certo, pois há varias imagens e chama-las por nome não é bem a intenção do código, mas obrigado pelo seu tempo e esforço.

 

Depois de bastante tempo batendo a cabeça,  cheguei no seguinte código:

 

<

Option Explicit
Sub IsNewGerar()
Dim ActSheet As Worksheet
Dim SelRange As Range

Set ActSheet = ActiveSheet
Set SelRange = Selection

ActSheet.Select
SelRange.Select
SelRange.Activate
Selection.Copy

End Sub

>

 

Funcionou perfeitamente, copia tudo o que foi selecionado, dai posso manipular tais dados como quiser.

Desta forma, todas as imagens na seleção também são copiadas.

[Neodenn]

Em 23/09/2021 às 09:08, Neodenn disse:

@AfonsoMira Pra mim não daria certo, pois há varias imagens e chama-las por nome não é bem a intenção do código, mas obrigado pelo seu tempo e esforço.

 

Depois de bastante tempo batendo a cabeça,  cheguei no seguinte código:

 

<

Option Explicit
Sub IsNewGerar()
Dim ActSheet As Worksheet
Dim SelRange As Range

Set ActSheet = ActiveSheet
Set SelRange = Selection

ActSheet.Select
SelRange.Select
SelRange.Activate
Selection.Copy

End Sub

>

 

Funcionou perfeitamente, copia tudo o que foi selecionado, dai posso manipular tais dados como quiser.

Desta forma, todas as imagens na seleção também são copiadas.

Daria para colar usando SendKeys "^v", tambem dá certo, funciona exatamente como se voce estivesse digitando CTRL+V

[DJunqueira]

Tem como buscar imagem por função sem macro, veja o exemplo.

Seleção de imagem.xlsx