No.1

Excel vba的强度无法估计。除了一些数据处理，它还有许多图形管理方法。通常因为难度大，真正学会的人并不少见。

在办公室工作中，有时需要制作公司印章来处理合同文本。在这一节中，我们将制作一种自动生成印章的方法，并尽快收集它们。

如下图所示，生成一个密封。当然，如果要生成其他形状，可以联系作者修改格式。这里就不介绍了。

其实整个操作过程并不复杂。让我们分析一下整个过程和具体的代码，这将在本文后面介绍。

印章里有三个物体，一个文本框，一个圆形物体和一个五边形图形物体。

添加方法如下：

文本框：形状。add textbox(msotextorientionhorizontal，t，l，w，h)圆形：形状。五边形：形状。addshape(msoshape5点星，t，l，w，h)显然只使用了一个

这个方法是添加图形对象。第一个参数是图形类型TLWH，它表示图形的上边距、左边距、宽度和高度。

其中，图形类型是一个MsoAutoShapeType枚举值，代表不同的图形，有几十个甚至更多。如果你感兴趣，你可以自己学。

No.2

接下来，看看实现过程。

生产过程中，先输入公司名称，然后点击鼠标完成。

操作非常简单，因为完全由代码处理。以下是参考代码：

添加密封文本

添加文本(t，l，w，H，str)'添加文本active sheet . shapes . addtextbox(msotextorientionhorizontal，t，l，w，H)。选择选择。形状范围。文本框架2。文本范围。字符。文本=字符串选择。形状范围。填充。可见=带有选择的形状。ShapeRange.TextFram e2。TextRange . Font . fill . visible=msoTrue . fill . solid . fill . fore color . RGB=RGB(255，1，1)。尺寸=38。名称='仿宋'。bold=真以选择结束。shaperange。文本效果。preset shape=msotexteffect shapercheupcurveend sub，添加一个圆形密封外边框

添加一个圆形的活动表单。select selection . shape range . fill . visible=msofalse with selection . shape range . line . visible=msotrue . fore color . RGB=RGB(255，0，0)。透明度=0 .重量=4.5末端带末端接头添加一颗五角星

添加5点星(t，l，w，H)'添加一个五角星活性片. shapes.addshape (msoshape 5点星，t，l，w，H)。通过选择选择。形状范围。线条。visible=MsoFalse . ForeColor . RGB=RGB(255，0，0)。透明度=0以选择结束。shaperange。填满。visible=msotrue。前景。RGB=RGB (255，0，0)。透明度=0。带end sub的solid end非常有趣，但它不能做不该做的事情。请关注并收藏。

最后，享受生产成果。