............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

SHAPES AUTOFORMAS EN LA HOJA DE EXCEL PROPIEDADES

Ir abajo

SHAPES AUTOFORMAS EN LA HOJA DE EXCEL PROPIEDADES

Mensaje por GalileoGali el Vie Abr 11, 2008 12:08 am

Dar color a una autoforma colocada en la hoja de Excel, seleccionando valores en una celda


En el Modulo de la Hoja esta Macro de Evento

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Módulo1.ColorearOvalo
End Sub

y en un modulo ESTANDAR

Código:
Sub ColorearOvalo()
  Dim color As Long
Select Case Range("A1")
    Case "Azul"
    color = 12
    Case "Rojo"
    color = 10
    Case Else
    color = 8
End Select
    Sheets("Hoja1").Shapes("Oval 1").Fill.ForeColor.SchemeColor = color
   
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Volver arriba


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