ActiveShape.Text.FontProperties.Uppercase = cdrSmallCapsFontCase 转载于:https://www.cnblogs.com/cdrapp/p/6104486.html