MACRO PARA IDENTIFICAR AUTOMATICAMENTE O NOME OU NÚMERO DE UMA IMAGEM AO SER INSERIDA

Question

Pessoal, estou destruindo meu cérebro e não consigo achar a solução.

Criei uma macro para inserir uma imagem, até aqui moleza, porém eu quero que o usuário após clicar no botão e ver a imagem, que o usuário clique em outro botão que por sua vez vai identifica o nº ou nome da imagem e deletar, e assim sucessivamente, porque todas as vezes que o usuário clicar no botão para abrir a imagem, essa imagem muda de número, exemplo imagem 1 - imagem 2 - imagem 3 etc.

Para inserir a imagem fiz essa macro

Sub Ajuda2()

Dim MyPath As String

MyPath = ("C:\Férias\Ajuda1.png")

ActiveSheet.Pictures.Insert(MyPath).Select

Selection.ShapeRange.IncrementLeft 50

Selection.ShapeRange.IncrementTop 5

End Sub

Para deletar esse é o problema

Sub delete()

ActiveSheet.DrawingObjects.Select  ???????????????? não posso usar Select.All  (porque tem outras imagens na planilha que não pode ser deletada)

Selection.delete

Range("A1").Select

End Sub

Srs. expert em macro, podem me ajudar please :)

• Obs: trabalho a 20 anos com excel e ainda estou aprendendo - hehe

Answer 1

Oi MrExcelSolution,

Acho que basta dar um nome qualquer para imagem criada.

Por exemplo, Imagem99.

As macros ficariam assim

Sub CriaImagem()

Dim MyPath As String

MyPath = ("C:\Férias\Ajuda1.png")

ActiveSheet.Pictures.Insert(MyPath).Select

With Selection

.ShapeRange.IncrementLeft 50

.ShapeRange.IncrementTop 5

.Name = "Imagem99"

End With

End Sub

Sub DeletaImagem()

ActiveSheet.Shapes("Imagem99").Delete

End Sub

Espero que ajude

M.

Answer 2

pois é, fiz isso, mas a questão é como a macro identifica automaticamente uma determinada imagem que é aberta por um botão.

Porque assim o outro botão deleta esta imagem que foi identificada.

O segredo está nesta função, mas ainda não consegui descobrir

    ActiveWorkbook.Names.Add Name:="imagem", RefersToR1C1:= _

        "=Parametros!R1C7"

    ActiveWorkbook.Names("imagem").Comment = ""

End Sub

O grande "chan" é ler o resultado dentro do "imagem"

Esta função é correspondente ao menu do Excel -> fórmulas - definir nome

Answer 3

oooppaaa, valeu

Answer 4

Uma imagem embebida numa planilha é um objeto do tipo Shape. Para saber o nome de um shape, basta clicar sobre ele que à esquerda da barra de fórmulas seu nome aparecerá. Você pode usar o código abaixo para apagar um Shape se souber seu nome:

Sub Exemplo()

ActiveSheet.Shapes("Imagem 1").Delete

End Sub

Answer 5

isso ai eh vba. posta sua dúvida aki no link q os caras são especialistas nisso. aki eh mais basicão. vlw!

http://social.msdn.microsoft.com/Forums/pt-br/vbapt/threads