Este fórum está sendo desativado

[idaalexandra]

Ola pessoal!

Eu gostaria de saber se existe alguma macro para apagar uma linha onde se encontra o objecto.

Por exemplo, eu tenho um quadrado na celula E3 e quero apagar a linha onde o quadrado está, a linha 3. Qual a macro que localiza o objecto e apaga a linha onde esta?

Obrigadaaa!

[babdallas]

Veja se este pequeno exemplo ajuda.

[idaalexandra]

Obrigada pela resposta.

O que eu queria mesmo era eliminar a linha onde está o objecto. No seu exemplo seria carregar em excluir e excluir esse mesmo botão.

[babdallas]

No exemplo que eu mandei, as linhas 2 e 10 têm forma ou imagem. Ao clicar no botão Excluir, estas linhas são excluídas. Não é isso o que deseja?
Se não for, sugiro postar uma planilha exemplo com o resultado esperado. Aí fica mais fácil de ajudar.

[idaalexandra]

Aqui está

[babdallas]

Desculpe a ignorância, mas não entendi. O que quer dizer com "ao carregar na forma azul/laranja/verde"?
Se puder explicar com um pouco mais de detalhe, eu agradeço.

[osvaldomp]

O que eu queria mesmo era eliminar a linha onde está o objecto.

Código: Selecionar todos

Sub ExcluiOuInsereLinha()
 If Left(ActiveSheet.Shapes(Application.Caller).Name, 3) = "Rec" Then
  Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Delete
 ElseIf Left(ActiveSheet.Shapes(Application.Caller).Name, 3) = "Sin" Then
  Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Insert
 End If
End Sub

obs. todas as figuras devem ser vinculados à macro

[babdallas]

Com a resposta do Osvaldo eu entendi o que você quer. Segue anexo, com código muito parecido com o do Osvaldo. Só renomeei as autoformas porque estava dando erro no código e não deixei as autoformas moverem-se conforme as linhas são inseridas ou excluídas.

[idaalexandra]

Obrigado aos 2. É isso mesmo! Será que podem ajudar só em mais uma coisinha?. Envio o anexo.

[babdallas]

Veja se é isso.