No.1

Excel vba 的強(qiáng)大是無法估計(jì)的，除對數(shù)據(jù)進(jìn)行一些處理之外，它還有許多圖形管理方面的方法，通常由于其難度較大，真正學(xué)會的人并不鮮見。

辦公工作當(dāng)中，有時候需要制作一個公司印章來處理合同文本。本節(jié)將制作一個印章自動生成的方法，需要的就趕快收藏起來。

如下圖所示，生成一個印章，當(dāng)然了，以圓形為代碼，想生成其它形狀，可聯(lián)系作者修改格式，這里不做介紹。

其實(shí)整個操作過程并不復(fù)雜，讓我們分析一下，整個過程，具體制作的代碼，文章后面有介紹。

印章中有三個對象組成，一個文本框，1個圓形對象和一個五角形圖形對象。

添加方法分別為：

• 文本框：Shapes.AddTextbox(msoTextOrientationHorizontal, T, L, W, H)

• 圓形：Shapes.AddShape(msoShapeOval, T, L, W, H)

• 五角形：Shapes.AddShape(msoShape5pointStar, T, L, W, H)

很顯然只用了一個方法，Shapes.AddShape()

這個方法就是添加圖形對象的作用，其中的第一個參數(shù)為圖形類型，TLWH，分別代表圖形的頂部邊距，左邊距，寬和高。

其中圖形類型是一個MsoAutoShapeType 枚舉值，代表了不同的圖形，大約有幾十種或者更多，在對應(yīng)著插入菜單中的各種圖形，有興趣可自己對照學(xué)習(xí)。

No.2

接下來，看一下實(shí)現(xiàn)的過程。

制作過程，首先輸入公司名稱，然后單擊一下鼠標(biāo)就完成了。

操作很簡單，其原因是完全用代碼來進(jìn)行處理，下面是參考代碼：

添加印章文字

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 = msoTextEffectShapeArchUpCurve

End 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 With

End 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 With

End Sub