Visual Basic para Aplicaciones - contar autoformas (shapes) por color

Life is soft - evento anual de software empresarial
   
Vista:

contar autoformas (shapes) por color

Publicado por carls anidem (2 intervenciones) el 26/08/2017 03:50:54
Buenas Noches tengo un archivo en excel con varias autoformas (shapes) con tres colores diferentes y quiero aplicar una macro donde me cuente el numero de autoformas de cada color en tres celdas A1 A2 A3

estos son los colores de las autoformas que quiero contar.

SchemeColor = 10

SchemeColor = 11

SchemeColor = 12

como puedo modificar este codigo para que me cuente las auto formas de cada color en tres celdas diferentes

1
2
3
4
5
Sub Numero_Formas()
Dim n As Integer
n = ActiveSheet.Shapes.Count
Range("A1") = n - 2
End Sub


Agradezco su atención y pronta ayuda gracias son muchas y son imposibles de contar!!!
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

contar autoformas (shapes) por color

Publicado por JuanC juanc2942@gmail.com (550 intervenciones) el 26/08/2017 21:39:08
algo muy básico que puede ayudarte (o no!)...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub cuenta_colores()
Dim sh As Shape
Dim cl1&, c1&
Dim cl2&, c2&
Dim cl3&, c3&
 
cl1 = VBA.RGB(255, 0, 0)
cl2 = VBA.RGB(0, 255, 0)
cl3 = VBA.RGB(0, 0, 255)
c1 = c2 = c3 = 0
 
For Each sh In ActiveSheet.Shapes
    Select Case sh.Fill.ForeColor.RGB
           Case cl1
                c1 = c1 + 1
           Case cl2
                c2 = c2 + 1
           Case cl3
                c3 = c3 + 1
    End Select
Next
 
MsgBox c1 & " " & c2 & " " & c3
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

contar autoformas (shapes) por color

Publicado por carls anidem (2 intervenciones) el 27/08/2017 00:27:25
GRACIAS JUANC POR TU APORTE ERA LO QUE NECESITABA MUCHÍSIMAS GRACIAS !!!!
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
Revisar política de publicidad