Excel - Paleta de Color

   
Vista:

Paleta de Color

Publicado por jose (80 intervenciones) el 14/11/2007 11:32:20
Hola a todos,

necesito utilizar la paleta de colores de excel, por medio de VBA, que al pinchar ciertas celdas me desplegue la paleta , para seleccionar un color para rellenar esa celda, alquien tiene el código para hacerlo, saludos, j
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Paleta de Color

Publicado por JuanC (792 intervenciones) el 14/11/2007 13:40:12
hay muchas maneras de hacerlo...
para mostrar la paleta (office 2000)
Application.CommandBars("Fill Color").Visible = True

si querés hacer tu propia paleta, acá te dejo algo que puede servirte...
aColorIndex = Array(1, 53, 52, 51, 49, 11, 55, 56, 9, 46, 12, 10, 14, 5, 47, 16, 3, 45, 43, 50, 42, 41, 13, 48, 7, 44, 6, 4, 8, 33, 54, 15, 38, 40, 36, 35, 34, 37, 39, 2)

aColorName = Array("Negro", "Marrón", "Verde oliva", "Verde oscuro", "Verde azulado oscuro", "Azul oscuro", "Añil", "Gris 80%", "Rojo oscuro", "Anaranjado", "Amarillo oscuro", "Verde", "Verde azulado", "Azul", "Azul grisáceo", "Gris 50%", "Rojo", "Anaranjado claro", "Verde lima", "Verde mar", "Aguamarina", "Azul claro", "Violeta", "Gris 40%", "Fucsia", "Oro", "Amarillo", "Verde vivo", "Turquesa", "Azul cielo", "Ciruela", "Gris 25%", "Rosa claro", "Canela", "Amarillo claro", "Verde claro", "Turquesa claro", "Azul pálido", "Lavanda", "Blanco")

'//RGB
r = Array(0, 152, 56, 0, 0, 0, 48, 48, 128, 255, 128, 0, 0, 0, 104, 128, 255, 255, 152, 48, 48, 48, 128, 152, 255, 255, 255, 0, 0, 0, 152, 192, 255, 255, 255, 208, 200, 152, 200, 255)
g = Array(0, 52, 52, 48, 52, 0, 52, 52, 0, 104, 128, 128, 128, 0, 104, 128, 0, 152, 204, 152, 204, 104, 0, 148, 0, 204, 255, 255, 255, 204, 52, 192, 156, 204, 255, 255, 255, 204, 152, 255)
b = Array(0, 0, 0, 0, 104, 128, 152, 48, 0, 0, 0, 0, 128, 255, 152, 128, 0, 0, 0, 96, 208, 255, 128, 152, 255, 0, 0, 0, 255, 255, 104, 192, 208, 152, 152, 208, 255, 255, 255, 255)

la implementación hacela a tu gusto....

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Paleta de Color

Publicado por jose (80 intervenciones) el 14/11/2007 13:49:58
Mil, gracias era justamente lo que necesitaba hacer,

salduos, jose
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar