Excel vba 若何自动制作公司印章点两下鼠标就完成太简单了

办公事情当中，有时候须要制作一个公司印章来处理条约文本。
本节将制作一个印章自动天生的方法，须要的就赶紧收藏起来。

如下图所示，天生一个印章，当然了，以圆形为代码，想天生其它形状，可联系作者修正格式，这里不做先容。

实在全体操作过程并不繁芜，让我们剖析一下，全体过程，详细系编制作的代码，文章后面有先容。

印章中有三个工具组成，一个文本框，1个圆形工具和一个五角形图形工具。

添加方法分别为：

文本框：Shapes.AddTextbox(msoTextOrientationHorizontal, T, L, W, H)圆形：Shapes.AddShape(msoShapeOval, T, L, W, H)五角形：Shapes.AddShape(msoShape5pointStar, T, L, W, H)

很显然只用了一个方法，Shapes.AddShape()

这个方法便是添加图形工具的浸染，个中的第一个参数为图形类型，TLWH，分别代表图形的顶部边距，左边距，宽和高。

个中图形类型是一个MsoAutoShapeType 列举值，代表了不同的图形，大约有几十种或者更多，在对应着插入菜单中的各种图形，有兴趣可自己对照学习。

No.2

接下来，看一下实现的过程。

制作过程，首先输入公司名称，然后单击一下鼠标就完成了。

操作很大略，其缘故原由是完备用代码来进行处理，下面是参考代码：

添加印章笔墨

Sub AddText(T, L, W, H, Str)'添加笔墨 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, T, L, W, H).Select Selection.ShapeRange.TextFrame2.TextRange.Characters.Text = Str Selection.ShapeRange.Fill.Visible = msoFalse With Selection.ShapeRange.TextFrame2.TextRange.Font .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor.RGB = RGB(255, 1, 1) .Size = 38 .Name = "仿宋" .Bold = True End With Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapeArchUpCurveEnd Sub

添加印章外边框圆形

Sub AddOval(T, L, W, H)'添加一个圆ActiveSheet.Shapes.AddShape(msoShapeOval, T, L, W, H).Select Selection.ShapeRange.Fill.Visible = msoFalse With Selection.ShapeRange.Line .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Weight = 4.5 End WithEnd Sub

添加五角星

Sub Add5PointStar(T, L, W, H)' 添加一个五角星 ActiveSheet.Shapes.AddShape(msoShape5pointStar, T, L, W, H).Select With Selection.ShapeRange.Line .Visible = msoFalse .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 End With With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid End WithEnd Sub

这个小功能还是十分故意思的，但是不能做不应该做的事情，欢迎关注、收藏。

末了欣赏一下制作成果。

---END---