16/03/2006, 05:06
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| Si se puede hacer.
Abre la barra de herramientas de VBA y da le Editor de Visual Basic.
Haz doble clic sobre la hoja donde estén tus imagenes.
copia este código:
Dim Direccion As String
Dim Cambiar As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Cambiar and Direccion=$A$1 Then
Valor = range("A1").value
if Valor <100 then
ActiveSheet.Shapes("Object 54").Visible = True
ActiveSheet.Shapes("Object 57").Visible = False
ActiveSheet.Shapes("Object 56").Visible = False
elseif Valor >=100 and Valor<200 then
ActiveSheet.Shapes("Object 54").Visible = False
ActiveSheet.Shapes("Object 57").Visible = True
ActiveSheet.Shapes("Object 56").Visible = False
else
ActiveSheet.Shapes("Object 54").Visible = False
ActiveSheet.Shapes("Object 57").Visible = False
ActiveSheet.Shapes("Object 56").Visible = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub
He supuesto que la celda que tiene los valores que marcan las pautas del semáforo están en A1 y son <100, entre 100 y 200 y >200. Los objetos 54, 57 y 56 son tus imagenes.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |