c_hongbin
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
