Jump to content
Sign in to follow this  
Juan Pelfort

Color de varias formas

Recommended Posts

Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma,

(es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? 

Mando código para una forma pero como hacer para cambiar a mas formas ?

Gracias a todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < 100 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        ElseIf Target.Value >= 100 And Target.Value < 200 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
        Else
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End Sub

Share this post


Link to post
Share on other sites

Te dejo un ejemplo para 3 círculos:

ActiveSheet.Shapes.Range(Array("Oval 1", "Oval 2", "Oval 3")).Fill.ForeColor.RGB = vbRed

Si solo tienes los 10 círculos en la hoja, esta forma te permite hacer lo mismo prescindiendo del nombre de la autoforma.

ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Fill.ForeColor.RGB = vbRed

 

Share this post


Link to post
Share on other sites

Hola, gracias por tu ayuda esto funciona perfectamente pero, yo querría que cada una pudiera tener un color según el valor de unas celdas correspondientes (tipo "pasapalabra") puede ser ?

Gracias de nuevo

  

Share this post


Link to post
Share on other sites

Hola, intento simular el juego de "pasa palabra" llevado a un tema personalizado

me gustaría que una macro cambiara el color del circulo A, otra macro el del circulo B y así (según valor de otra celda)

o sea que cuando finalice el tema de la letra A, empiece el de la letra B y así todas

Te adjunto el archivo (en construcción) gracias

Pasa palabra 1.xlsm

Share this post


Link to post
Share on other sites

Pues ya estoy aquí.

Seleccionar un temario de la lista y pulsar Comenzar.

Aparecerá una pregunta en la celda J14.

Responder en la celda J16 y pulsar Responder o pulsar Pasa Palabra.

Si quereis jugar con tiempo, llenar la celda L23. de lo contrario informar cero.

El rango de celdas L6:L11 controla los colores del Rosco.

La columna L puede ocultarse.

Pasa palabra full.xlsm

Share this post


Link to post
Share on other sites
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5