Recompensa 2003PPt Cómo configurar macros, cambie repetidamente la fuente a negrita, título 40, cuerpo 60, gracias.
Sub OED01()' Modifica el formato, tamaño y color de fuente por lotes.
Atenuar oTxtRange como TextRange
Atenuar oSlide como diapositiva
Atenuar oTxtRange como TextRange
En caso de error, continúe con el siguiente paso
Para cada oSlide en ActivePresentation. Presentación de diapositivas
Para cada oshapai de Oslid. Forma
Establezca oTxtRange = oShape. Marco de texto. Rango de texto
Si no es nulo (rango otx), entonces
use oTxtRange. Fuente
. Name = "bold " 'A la fuente que necesitas.
. Tamaño = 60 'Cambie al tamaño de texto que desee.
. color.rgb = rgb(red:= 255, green:= 0, blue:= 0)' se establece en el color de texto deseado.
Terminar con...
Terminar si...
Entonces
Entonces
Finalizar ajuste
Luego haga clic en el botón Guardar para cerrar la ventana y regresar a la página de edición de ppt. Haga clic en Macro en la opción Macro de la herramienta nuevamente, seleccione la macro que acaba de editar y haga clic en Ejecutar, para que se modifiquen todas las fuentes en su ppt. ¡Cualquier fuente que desees cambiar se puede modificar en el código!
El texto del título es relativamente pequeño, puedes optar por modificarlo ¡Buena suerte@!