How to modify the PPT font, size, and color in batches)

To modify the PPT font, size, and color in batches, you only need to change the following VBA Code In red, replace it with the font parameters to be changed, and then put the modified VBA code into the VBA editor to run! Only applicable to ppt2007 and later versions! Sub change () dim oshape as shapedim oslide as slidedim otxtrange as textrangeon error resume next for each oslide in activepresentation. slides for each oshape in oslide. shapes set otxtrange = oshape. textframe. textrange if not isnull (otxtrange) then with otxtrange. font. name =" _ Gb2312 "'Changed to the required font. size = 15 'Change to the required text size. color. RGB = RGB (RED: = 255 , Green: = 120 , Blue: = 0 'To the desired text color, with the RGB parameter representing end with end if next nextend sub http://blog.sina.com.cn/s/blog_49f78a4b0102e22i.html