Utilice vba para modificar por lotes el color de la fórmula ppt

Los usuarios pueden consultar los siguientes métodos para pasar la prueba en Office 2003.

1. Siéntete libre de crear una nueva macro, como Macro1.

2. Elimina todo el código original y copia y pega el siguiente código.

¿Sub? Towhite()

? ¿Hiroyuki? ¿USCCSU? Registro, fecha:? 2013-9-1

¿Oscuro? ¿xShp? ¿Como? Forma

¿Aburrida? xSld? ¿Como? Diapositivas

¿Para qué? ¿Cada? xSld? ¿existir? ¿Presentación de diapositivas ActivePresentation? Revisa todas las diapositivas

¿Para qué? ¿Cada? ¿xShp? ¿existir? XSld. "Forma" atraviesa todas las formas (objetos OLE como gráficos, cuadros de texto, tablas, fórmulas, etc.).

¿Y si? xShp. ¿tipo? =?7?¿Y entonces qué? 7 representa msoEmbeddedOLEObject

xShp. Formato de imagen.Tipo de color? = Tipo de color?"MsoPictureBlackAndWhite"

xShp. Formato de imagen. ¿brillo? =?1?Brillo 0-1

xShp. Formato de imagen. ¿Contraste? =?1?Contraste 0-1

xShp. relleno. ¿Visible? =?"MsoFalse" no está completado.

¿Fin? ¿Y si

Siguiente? xShp

¿Siguiente? xSld

¿Fin? Submarino

¿Miembros, atributos, etc.? /zh-CN/office3. Ejecute macros en PPT para completar los cambios de color. Para cambiar a negro, haga que el brillo sea = 0.