折线图没有带出项目名称要怎么设置？

1、首先选则数据，然后插入-折线图-二维。就得到一个折线图。 2、然后点击折线图，表格上方会出现“布局”选项，点击，选择坐标轴标题。 3、然后就可以添加标题了。X Y 轴都有两个选项。可以是竖直的，也可以是水平的。y轴也可以是旋转过的。

首先，去下载一个叫rktools.exe的工具（我提供个下载地址Windows 2003 Resource Kits），下载完后安装该资源包，里面有个instsrv.exe和srvany.exe的工具，就能够将普通进程转化为系统服务。

其次，进入控制台程序（运行->cmd），键入：instsrv 服务名 "程序路径"，成功后就能够在系统服务中查找到该服务了，并尝试启动该服务，启动失败的话继续往下看。

然后，进入注册表（运行->regedit），找到HKEY_LOCAL_MACHINESYSTEMControlSet001Services服务名，将ImagePath的值指向srvany.exe的路径，同时新建项Parameters，并在其中新建字符串application，将application的值指定为原程序路径。

（如需要删除服务，只需要将注册表中HKEY_LOCAL_MACHINESYSTEMControlSet001Services服务名删除即可）

下面写个简单列子（服务名：test，程序路径：c:app.exe）

1.下载rktools.exe，并安装；

2.进入控制台，键入instsrv test "c:app.exe"；

3.进入注册表，找到HKEY_LOCAL_MACHINESYSTEMControlSet001Services est，

将ImagePath值指向srvany.exe的路径，

新建项Parameters，并新建字符串application，同时将值设为c:app.exe；

4.启动服务。

用vba编制宏代码来实现。代码如下：

Sub 替换()

If ActiveSheet.Name <>"工具" Then Exit Sub

ppt_file = Cells(3, 3).Text

exc_file = Cells(3, 2).Text

Dim myPpt As New PowerPoint.Application

Set myPpt = CreateObject("PowerPoint.application") ‘创建ptt应用

myPpt.Visible = msoTrue

Set myd = myPpt.Presentations.Open(ThisWorkbook.Path &"\" &ppt_file)

For Each mys In myd.Slides ‘遍历ptt外部引用

For Each myitem In mys.Shapes

myitem.LinkFormat.SourceFullName = ThisWorkbook.Path &"\" &exc_file ‘替换引用文件名

Next myitem

Next mys

myd.Save

myd.Close

myPpt.Quit

'MsgBox ("替换完成！")

End Sub

---