批量修改图表标题并导出到word

疯泠风

几十上百个Excel里面（多个工作簿多个工作表）都做有带折线散点图图表，但是图表的标题名称怎么批量设置？标题名称不是单元格的数值，而是跟每个工作簿和工作表名称有关的，比如DZK01SP里面的50a63，那么图表标题就要设置为50年63%（DZK01），依次类推。最后修改好的图表又怎么批量导出到word？求各位大佬帮帮忙哈，萌新求罩

gxhcswj

我的思路：建立word模板 在word模板的相应位置设立书签，然后把excel那边的图表复制到书签位置完成

gxhcswj

详细代码请楼下高手帮忙写一下

疯泠风

gxhcswj 发表于 2020-2-26 09:33
我的思路：建立word模板 在word模板的相应位置设立书签，然后把excel那边的图表复制到书签位置完成

导出之前还得先修改图表标题名称啊 。另外那个复制是批量自动的？

gxhcswj

批量修改图表标题应该也可以弄得吧
这句应该可以  ActiveChart.ChartTitle.Text = "表标题名称"

gxhcswj

录个宏看看

蓝桥玄霜

标题改名的例子：

疯泠风

gxhcswj 发表于 2020-2-26 10:48
批量修改图表标题应该也可以弄得吧
这句应该可以  ActiveChart.ChartTitle.Text = "表标题名称"

录制了宏，但是只能修改一个工作簿里面的工作表，其他工作簿就还得打开再编辑宏（修改DZK的号码），然后再运行，还是很费事啊。我希望能历遍同一文件夹下所有工作簿里面的所有工作表，将图表标题对应各自工作簿的工作表来修改。

疯泠风

gxhcswj 发表于 2020-2-26 10:49
录个宏看看

录制的宏，在新的工作簿里面就得修改dzk的号码才行，不行运行了后图表标题是原来宏里面写的dzk号码

gxhcswj

疯泠风 发表于 2020-2-26 11:08
录制了宏，但是只能修改一个工作簿里面的工作表，其他工作簿就还得打开再编辑宏（修改DZK的号码），然后 ...

版主已经给你类似的代码了 自己加工一下啰