Power Point - Formas libres

 
Vista:
sin imagen de perfil
Val: 3
Ha disminuido 1 puesto en Power Point (en relación al último mes)
Gráfica de Power Point

Formas libres

Publicado por Jose (2 intervenciones) el 25/05/2018 18:05:04
Tengo una diapositiva en un powerpoint que es un dibujo lleno de formas libres y necesito poder pintar de colores segun casos alguna de esas formas por VBA, el problema que tengo es que no se como referenciarme a cada forma, vamos, que no se el nombre de cada forma para poder tratarlas por codigo vba, a ver si alguien me puede ayudar.
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
sin imagen de perfil
Val: 3
Ha disminuido 1 puesto en Power Point (en relación al último mes)
Gráfica de Power Point

Formas libres

Publicado por Jose (2 intervenciones) el 30/05/2018 17:57:12
Al final despues de mirar mucho me respondo a mi mismo....
Para contar las formas que tengo primero:
1
2
3
4
5
6
7
8
9
Sub NumeroFormas()
Dim n As Integer
' variable presentacion activa diapositiva 1
Set diap = ActivePresentation.Slides(1)
    'Número de formas en la hoja activa
    n = diap.Shapes.Count
    MsgBox n
'nos dice el numero de formas que tenemos
End Sub 
Una vez que se el numero de las formas ir probando a ver cuales son las que necesito colorear
'seleccionamos diapositiva
Set diap = ActivePresentation.Slides(1)
'pintamos objeto
diap.Shapes.Range(Array(aqui ir probando que numero corresponde a cada forma, en mi caso eran 55, asi que empiezo por el 1)).Fill.ForeColor.RGB = RGB(255, 0, 0)
Voy apuntando que numero es cada forma si se colorea en rojo y al final tengo el listado de numeros de cada forma para poder coloearlas segun la condicion que le ponga a la macro final que voy a hacer
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