Problemas de Ejecucion de macros
Publicado por Alfredo (1 intervención) el 29/05/2006 15:46:09
Amigos,
como se ejecutan las macro durante una presentación?
especificamente lo que requiero es cambiar de color unos rectangulos, presionando un objeto.
Grabe la macro realizando las acciones en el modo de modificacion de presentacion. el codigo es:
Sub MenorVector()
ActiveWindow.Selection.SlideRange.Shapes.Range(Array("Rectangle 4", "Rectangle 5", "Rectangle 6", "Rectangle 7" _
, "Rectangle 8", "Rectangle 9", "Rectangle 11", "Rectangle 12" _
, "Rectangle 13", "Rectangle 14", "Rectangle 15", "Rectangle 28" _
)).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(0, 102, 153)
.Fill.Visible = msoTrue
.Fill.Solid
End With
End Sub
como se ejecutan las macro durante una presentación?
especificamente lo que requiero es cambiar de color unos rectangulos, presionando un objeto.
Grabe la macro realizando las acciones en el modo de modificacion de presentacion. el codigo es:
Sub MenorVector()
ActiveWindow.Selection.SlideRange.Shapes.Range(Array("Rectangle 4", "Rectangle 5", "Rectangle 6", "Rectangle 7" _
, "Rectangle 8", "Rectangle 9", "Rectangle 11", "Rectangle 12" _
, "Rectangle 13", "Rectangle 14", "Rectangle 15", "Rectangle 28" _
)).Select
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(0, 102, 153)
.Fill.Visible = msoTrue
.Fill.Solid
End With
End Sub
Valora esta pregunta


0