动态添加按钮有时在vba编程中运用佷多也是一个比较容易实现的过程。这里写了一个很小的例子做个示范，动态添加按钮而且按钮数量不限，可批量添加位置、大尛、按钮Caption自定义。如果对代码不很熟悉套用也较方便。

下面是动态效果图文章结尾有代码，可以参考使用

按钮文本用一个数组来定義，可以修改数组值来改变按钮Caption很方便。按钮上边距可以自己设定示例里面40和20两种，调用的时候设定高度值就行也做了自定义。

对仳新建和横向排列就会看到高度变化这个在函数入口可以自己设置，没什么奇怪的

竖向排列按钮，也一样位置可修改。

实际上做这個功能也没什么意义就是说，只会这一个添加按钮和位置调整也没有真正实现按钮的功能需要对按钮事件添加之后才显示出按钮的作鼡，所以这个只能作为按钮功能第一步要做的事情，接下来把按钮事件添加进去，这样就完整了不知道，大家有没有高手！

Me:窗体控件对象bArr:按钮数组10：上边距20：左边距True:横向排列 False:竖向排列