
Digamos que en PowerPoint tengo tres formas rectangulares del mismo tamaño dispuestas horizontalmente una al lado de la otra yquiero centrarlos en una diapositivacomo un grupo. Si selecciono los tres y presiono el botón Alinear > Centro, los alineará uno por uno; cada uno de ellos llega al centro, por lo que al final se superpondrán y solo uno de ellos será visible. . Lo que quiero es mantener su distribución (brechas entre ellos) y alinear al grupo en su conjunto.
Lo que necesito hacer actualmente es:
- Selecciona esos tres objetos
- Agruparlos
- Invocar Alinear > Centro
- Desagruparlos
¿Es posible de alguna maneraevita los molestos pasos dos y cuatro? Esta es una operación muy frecuente en mi caso y el comportamiento predeterminado simplemente no hace lo que quiero hacer el 99% de las veces. ¿Quizás algunas configuraciones o una macro inteligente?
Por cierto, este es PowerPoint 2013 si hay alguna diferencia.
Respuesta1
También puedes utilizar líneas verticales a los lados de la diapositiva. Cuando quieras centrar los tres rectángulos.
- Resalta los tres rectángulos y las líneas verticales.
- Seleccione Distribuir horizontalmente
- Cuando el diseño de la diapositiva esté completo, elimine las líneas verticales.
Es más trabajo si solo haces esto una vez, pero con múltiples objetos te ahorrará tiempo. También puedes copiar y pegar las líneas verticales en cada diapositiva para ahorrar tiempo.
Respuesta2
Puedes hacer esto con una macro:
Sub Test()
Dim shpGroup As ShapeRange
Set shpGroup = ActiveWindow.Selection.ShapeRange
shpGroup.Group
shpGroup.Align msoAlignCenters, msoTrue
shpGroup.Ungroup
End Sub
Seleccione las formas para las que desea hacer esto, presione F8 y ejecute esta macro.
shpGroup.Group
agrupa el objeto, shpGroup.Align msoAlignCenters, msoTrue
alinea el grupo con el centro de la diapositiva y shpGroup.Ungroup
luego desagrupa los objetos seleccionados.
Nota: No hay absolutamente ningún manejo de errores, por lo que se encontrará con todo tipo de errores divertidos si no selecciona nada, o solo una forma, etc. Siéntase libre de agregar manejo de errores si es necesario.