Macro excel - Mostrar e ocultar objectos

[nioxys]

Não sabia que tinhas uma Combobox.

É praticamente a mesma coisa, tens apenas de associar uma macro a essa combobox e alterar a forma como "lês" o valor. E desta vez não vamos usar o evento change da folha mas sim o evento change da própria combo (num módulo).

No primeiro exemplo fui buscar directamente o valor à célula, desta vez vamos buscá-lo à combobox,

Código:

cel = Worksheets("Folha1").Shapes("combo1").ControlFormat.Value

O restante código é igual, apenas acrescentei o outro rectângulo. 

O código completo é o seguinte,

Código:

Sub combo1_Alteração()
Dim cel As Integer

cel = Worksheets("Folha1").Shapes("combo1").ControlFormat.Value

Select Case cel

Case 1

ActiveSheet.Shapes("Rect1").Visible = True
ActiveSheet.Shapes("Rect2").Visible = False

Case 2

ActiveSheet.Shapes("Rect1").Visible = False
ActiveSheet.Shapes("Rect2").Visible = True

End Select

End Sub

Desta forma trabalhamos directamente com a combobox, não é necessário criar um link entre uma célula e a combo, apenas se no teu caso for necessário mostrar o 1 e o 2.

Deixo aqui os dois exemplos, com e sem célula associada.

Com célula associada,

Rectângulos - Download

Sem célula associada,

Rectângulos_2 - Download


Acho que era isto que querias, se não for avisa.