Rafael, me baseando pelo seu anexo, adicione a rotina em um Modulo e depois associe a mesma ao Retangulo 5 o qual está escrito Auxiliar.
Sub Exibe_Oculta_Figura()
If ActiveSheet.Shapes("Imagem 4").Visible = True Then
ActiveSheet.Shapes("Imagem 4").Visible = False
Else
ActiveSheet.Shapes("Imagem 4").Visible = True
End If
End Sub
Para associar a rotina, clique com o Botão direito do mouse em cima do retangulo_5 e escolha Atribuir MAcro e na caixa que abrir selecione e de ok.
Não vi o exemplo do Tacito, mas se não for isto retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/08/2013 10:42 am