用VBA在WORD中繪制圖形及函數(shù)圖象(共3頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上用VBA在WORD中繪制圖形及函數(shù)圖象Sub Macro1()用VBA在WORD中繪制圖形及函數(shù)圖象1.繪制一個“開關(guān)”圖形'宏 Switch實現(xiàn)在指定位置繪制一個“開關(guān)”圖形。Sub Switch() ActiveDocument.Shapes.AddLine(100, 110, 120, 110).Name = "shp1" ActiveDocument.Shapes.AddShape(msoShapeOval, 120, 108, 4, 4).Name = "shp2" 'Oval 橢圓形 ActiveDo

2、cument.Shapes.AddShape(msoShapeOval, 130, 108, 4, 4).Name = "shp3" ActiveDocument.Shapes.AddLine(134, 110, 154, 110).Name = "shp4" ActiveDocument.Shapes.AddLine(122, 108, 132, 104).Name = "shp5" ActiveDocument.Shapes.Range(Array("shp1", "shp2", "

3、;shp3", "shp4", "shp5").GroupEnd Sub2.添加繪圖畫布'下列示例在新文檔中添加繪圖畫布，然后在繪圖畫布上添加兩個圖形，并設(shè)置填充和線條屬性。Sub AddInlineCanvas() Dim docNew As Document Dim shpCanvas As Shape Set docNew = Documents.Add 'Add a drawing canvas to the new document Set shpCanvas = docNew.Shapes.AddCanvas( _

4、Left:=150, Top:=150, Width:=70, Height:=70) shpCanvas.WrapFormat.Type = wdWrapInline 'Add shapes to drawing canvas With shpCanvas.CanvasItems .AddShape msoShapeHeart, Left:=10, _ Top:=10, Width:=50, Height:=60 .AddLine BeginX:=0, BeginY:=0, _ EndX:=70, EndY:=70 End With With shpCanvas .CanvasIte

5、ms(1).Fill.ForeColor _ .RGB = RGB(Red:=255, Green:=0, Blue:=0) .CanvasItems(2).Line _ .EndArrowheadStyle = msoArrowheadTriangle End WithEnd Sub3.添加一條貝賽爾曲線本例向活動文檔添加一條兩段的貝塞爾曲線，并且將其定位在第二段（文檔中至少要有兩段，否則出錯）。選擇曲線，右擊可編輯頂點。Sub BezierCurve() Dim sngArray(1 To 7, 1 To 2) As Single sngArray(1, 1) = 0 sngArray(1

6、, 2) = 0 sngArray(2, 1) = 72 sngArray(2, 2) = 72 sngArray(3, 1) = 100 sngArray(3, 2) = 40 sngArray(4, 1) = 20 sngArray(4, 2) = 50 sngArray(5, 1) = 90 sngArray(5, 2) = 120 sngArray(6, 1) = 60 sngArray(6, 2) = 30 sngArray(7, 1) = 150 sngArray(7, 2) = 90 ActiveDocument.Shapes.AddCurve SafeArrayOfPoints

7、:=sngArray, Anchor:=ActiveDocument.Paragraphs(2).RangeEnd Sub4.繪制正弦曲線'在Word中畫正弦曲線Sub DrawSin() Dim i As Single, x1 As Single, x2 As Single, x As Single, n As Single Dim sngArray(1 To 100, 1 To 2) As Single Const PI As Single = 3.1415 x1 = 0 '初始角度值 x2 = 1440 '終止角度值 x = 1440 '終初角度差 n = x / 360 '波數(shù) For i = 1 To 100 sngArray(i, 1) = 100 + 2 * i sngArray(i, 2) = 200 - 30 * Sin(4 * n * P