Colorear borde de imagen de acuerdo a un numero "X" POWERPOINT VBA
Publicado por daxtrox (4 intervenciones) el 30/01/2022 01:00:20
Necesito realizar una macro que me coloree el borde de una imagen de acuerdo a un numero "X" que esta en la misma presentacion.
Ejemplo si tengo el numero 1 en la diapositiva, el borde de la imagen se coloree de color rojo, si tengo un numero 2, se coloree el borde de color verde.
Lo que tengo hasta el momento es este codigo, que inserta una imagen en una diapositiva X, me colorea el borde negro, y envia la imagen al fondo.
Ejemplo si tengo el numero 1 en la diapositiva, el borde de la imagen se coloree de color rojo, si tengo un numero 2, se coloree el borde de color verde.
Lo que tengo hasta el momento es este codigo, que inserta una imagen en una diapositiva X, me colorea el borde negro, y envia la imagen al fondo.
1
2
3
4
5
6
7
8
9
10
11
12
13
'imagen1'Set imagen1 = ActivePresentation.Slides(3)
Set pic = imagen1.Shapes.AddPicture(FileName:="E:\1.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
Left:=10, Top:=50, Width:=220, Height:=128)
With pic
.Line.Weight = 1
.Line.ForeColor.RGB = RGB(0, 0, 0) 'Selecionar el color
.ZOrder (msoSendToBack)
End With
Valora esta pregunta
0