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

SHAPES AUTOFORMAS EN LA HOJA DE EXCEL PROPIEDADES

Ver el tema anterior Ver el tema siguiente 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

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
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

Ver el tema anterior Ver el tema siguiente Volver arriba


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