Código fuente de impresión ppt

Inserte un CommandButton1 en el PPT, haga doble clic en él, copie y pegue el siguiente código, y el botón cambiará de color automáticamente cuando haga clic en él durante el proceso de filtrado. (El color de fuente del botón es negro, ¿verdad?)

Botón de subcomando privado 1_Click()

Si el botón de comando 1. BackColor = RGB(236, 233, 216) y luego

Botón de comando 1. BackColor = vbRed

ElseIf botón de comando 1. BackColor = vbRed Luego

Botón de comando 1. BackColor = RGB(236, 233, 216)

Terminará si...

Finalizar conector