参考如下宏代码：
sub
a8a()
dim
oshape
as
shape
commandbars("drawing").visible
=
true
set
oshape
=
activedocument.shapes.addshape(23,
200,
100,
200,
200)
oshape.fill.presetgradient
msogradienthorizontal,
2,
msogradientearlysunset
end
sub
补充：
似乎楼主说的是不能录制的问题，解决方法如下：
工具
→
选项
→
常规
→
将
插入“自选图形”时自动创建画布
前的
√
去掉
→
确定
即可。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024