Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Deletar SHAPES
 
Notifications
Clear all

Deletar SHAPES

 
2024 - VBA & Macros
Post Recente por gtsalikis 10 anos atrás
4 Posts
3 Usuários
0 Reactions
928 Visualizações
RSS
valdecirrk
 valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

Bom dia

ja pesquisei no forum, mas não encontrei algo que resolvesse.

preciso deleter um retângulo.

o nome dele é retangulo 1, mas quando chega nessa linha para ser processada da um erro, diz que não foi encontrado.

a macro cria uma nova planilha, e depois deleta as formas que estão nesta nova, mas isso não acontece.

Sheets(ultimaPlanilha - 1).Shapes("Retângulo 1").Delete

 
Postado : 09/02/2015 6:01 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Já tentou como o nome da forma em inglês?

Sheets(ultimaPlanilha - 1).Shapes("Rectangle 1").Delete

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/02/2015 6:41 am
valdecirrk
 valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

Não resolveu.

 
Postado : 09/02/2015 7:01 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Vc verificou se as informações estão corretas?

ultimaPlanilha é um número, certo? Ele deveria indicar a quantidade de planilhas após vc ter criado uma planilha nova. Isso está correto no teu código?

O nome da forma "Retângulo 1" está correto nessa planilha que vc acabou de criar?

Se vc quer apagar todas as formas, porque não faz um loop?

Dim Shp As Shape

For Each Shp In Sheets(ultimaPlanilha - 1).Shapes
Shp.Delete
Next Shp

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 09/02/2015 7:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico