Macro excel - Mostrar e ocultar objectos

[nioxys]

Olá

Colocas a forma que tu queres, utilizando o teu exemplo, um rectângulo. 
Seleccionas esse rectângulo e na caixa de texto logo atrás da barra de formulas vai aparecer o nome dessa forma, Rectângulo 1 por exemplo. Clicas sobre essa caixa de texto e alteras o nome para Rect (apenas para não usar-mos acentos) pressionas enter.

De seguida abres o VBA, seleccionas o procedimento Worksheet e o evento Change, depois basta "brincares" com o seguinte,

Código:

ActiveSheet.Shapes("Rect").Visible = True

Continuando com o teu exemplo,

Código:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cel As integer

cel = Range("A1").Value

Select Case cel

Case 1

ActiveSheet.Shapes("Rect").Visible = True

Case 2

ActiveSheet.Shapes("Rect").Visible = False

End Select

End Sub

Quando a célula A1 é igual a 1 o rectângulo é visível, caso o valor mude para 2 o rectângulo deixa de estar visível.


De qualquer forma deixo aqui um ficheiro com o exemplo,

Ocultar Objecto - Download