UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

jovalcon


buenas tardes,

estoy intentando ocultar una figura de rectángulo en función de la celda A1, pero no me hace nada, por favor podéis ayudarme?

este es el codigo que introduzco:

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] > 0 Then
Shapes("1 Rectángulo redondeado").Visible = True
Else
Shapes("1 Rectángulo redondeado").Visible = False
End If
End Sub

Muchas Gracias//

Igtelo


Hola Jovalcon.

Primero dibuja el rectángulo.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] > 0 Then
ActiveSheet.Shapes(1).Visible = True
Else
ActiveSheet.Shapes(msoShapeRectangle).Visible = False
End If
End Sub

1 es igual que msoShapeRectangle, puedes usar el valor o la constante.

Saludos
Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.