吾之宝贝蛋儿:
参考如下宏代码:SUba8a()dimoshapeasshapecommandbars("draWing").visible=truesetoshape=activedocument.shapes.addshape(23,200,100,200,200)oshape.fill.PResetgradientmsogradienthorizontal,2,msogradientearlySUnsetendSUb补充:似乎楼主说的是不能录制的问题,解决方法如下:工具→选项→常规→将插入“自选图形”时自....