PPT批量字体修改宏

SubOED01()'ÅúÁ¿ÐÞ¸Ä×ÖÌå¸ñʽ¡¢´óСºÍÑÕÉ«DimoShapeAsShapeDimoSlideAsSlideDimoTxtRangeAsTextRangeOnErrorResumeNextForEachoSlideInActivePresentation.SlidesForEachoShapeInoSlide.ShapesSetoTxtRange=oShape.TextFrame.TextRangeIfNotIsNull(oTxtRange)ThenWithoTxtRange.Font.Name=΢ÈíÑźÚ'¸Ä³ÉÄãÐèÒªµÄ×ÖÌå.Size=20'¸Ä³ÉÄãÐèÒªµÄÎÄ×Ö´óС.Color.RGB=RGB(Red:=255,Green:=0,Blue:=0)'¸Ä³ÉÄãÏëÒªµÄÎÄ×ÖÑÕÉ«EndWithEndIfNextNextEndSub