vba折线图word

1.高分：Excel图表写入Word的VBA代码

Private Sub CommandButton1_Click()

'VBA工程中点工具下的引用，添加引用：Micrsoft Word 9.0 Object Library

On Error Resume Next

Dim waSolution As Word.Application

Dim wdDocument As Word.Document

Dim strPathA As String

strPathA = "C:\1.doc" '事先建好的指定word文档，用于保存

' Macro1 Macro

' 宏由 小路工作室 录制，时间： 2009-9-23

'

'

ActiveSheet.ChartObjects（"图表 2"）.Activate

ActiveChart.ChartArea.Select

ActiveChart.Axes(xlValue).MajorGridlines.Select

ActiveChart.PlotArea.Select

ActiveChart.ChartArea.Select

ActiveChart.ChartArea.Copy

Set waSolution = CreateObject("Word.Application")

waSolution.Visible = True

waSolution.Activate

waSolution.WindowState = wdWindowStateMaximize

Set wdDocument = waSolution.Documents.Add()

'wdDocument.Application.Selection.PasteExcelTable False, True, True

wdDocument.Application.Selection.PasteAndFormat (wdChartPicture)

wdDocument.SaveAs strPathA

End Sub

2.高分求助：求VBA代码

integer li_FileNum

OLEObject myword

myword = Create oleObject

li_FileNum = myword.connecttonewobject("word.Application")

if li_FileNum < 0 then

messagebox（"错误"，"不能启动Word!"）

else

myword.visible = true

myword.documents.open("c:\a.doc")

myword.application.ActiveWindow.ActivePane.View.SeekView = 9

myword.application.Selection.find.Execute（"页眉设置"，false,true,false,false,false,true,1,true，"王五"，2）

myword.application.ActiveWindow.ActivePane.View.SeekView = 0

end if

DESTROY myword

3.excel怎么制作漂亮的折线图

方法/步骤打开要制作的excel数据，如图所示选中要制作的数据。

（折线图可制作多种数据，现编这里以一种为列子）找到工具栏中的插入选项，鼠标左键点击选择。在插入选项卡中找到插入折线图按钮，如图所示，当鼠标放到图标上会出现说明。

点着插入折线图按钮后，会出现下拉菜单，这里根据实际需要选择要生成的图形，小编这里选择，第5个，带标记的。

修改标题，是必须要做的，因为让使用人一看就明白这是什么。

现则样式，默认的折线图上面没有数据，这小编选择了第二种样式，发现图表中有了数值了。当然样式也是可以叠加的，如图所示小编在选择样式10的效果。

8放一张最终的效果图，欣赏一下。

4.Excel 用VBA绘制可变区域的折线图,怎么实现

这里有一例供参考，如何还不可以的话，可以提供技术支持。

Sub AddNewSeries()

Dim MyNewSrs As Series

Set MyNewSrs = ActiveChart.SeriesCollection.NewSeries

With MyNewSrs

.Name = "Fred"

.Values = "=Sheet1!Y_Range"

.XValues = Array(1, 2, 3)

End With

End Sub

转载请注明出处51数据库 » vba折线图word