Red de conocimiento informático - Consumibles informáticos - Recompensa 2003PPt Cómo configurar macros, cambie repetidamente la fuente a negrita, título 40, cuerpo 60, gracias.

Recompensa 2003PPt Cómo configurar macros, cambie repetidamente la fuente a negrita, título 40, cuerpo 60, gracias.

Primero, haga clic en Macro en la opción Macro en las herramientas en ppt. Luego ingrese el nombre de la macro que desea crear y haga clic en el botón "Crear". En la página que aparece, el siguiente código sobrescribirá el código original:

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@!