怎么批量修改PPT中图表的数据标签

seayamhust · 发表于 2013-8-16 20:33

演示文稿1.zip (39.52 KB, 下载次数: 50)
如附件所示，PPT中有多个图表，现需要将图表中的数据标签换成对应的excel中的标签，点图表右键编辑数据，可以看到对应的excel表格中有标签列，请问有什么办法可以实现吗？

wudixin96 · 发表于 2013-8-16 20:48

With ActivePresentation.Slides(1).Shapes(1).Chart
.ChartTitle.Text = .ChartData.Workbook.sheets(1).Range("a1").Value
End With

复制代码

wudixin96 · 发表于 2013-8-18 16:13

With ActivePresentation.Slides(1).Shapes(1).Chart
For i = 1 To .SeriesCollection(1).Points.Count
.SeriesCollection(1).Points(i).DataLabel.Text = .ChartData.Workbook.sheets(1).Range("c" & i + 1).Value
Next
End With

复制代码

seayamhust · 发表于 2013-8-18 14:50

wudixin96 发表于 2013-8-16 20:48

大侠,你是不是理解错了,按你的运行了一下,结果改变的是图表标题,而不是数据标签.
我现在图表中显示的是B列的数据标签,现在要将B列的数据标签改成C列的, RTX截图未命名.png

wudixin96 · 发表于 2013-8-18 15:33

seayamhust 发表于 2013-8-18 14:50
大侠,你是不是理解错了,按你的运行了一下,结果改变的是图表标题,而不是数据标签.
我现在图表中显示的是B ...

哦哦，看错了，标签也是差不多的

seayamhust · 发表于 2013-8-19 11:39

本帖最后由 seayamhust 于 2013-8-19 11:40 编辑

wudixin96 发表于 2013-8-18 16:13

大侠,用你的代码,只有第一张PPT的标签可以实现修改标签,第二张运行就不行了,没有反应,详情请看附件,另外请大侠看一下另外一个附件,它是用用户窗体作成一个可以选择数据系列和可以选择标签位置的,所以希望大侠好人做到底,帮我把这两个问题都解决一下.PPT也做成窗体模式的.因为初学VBA,好多代码还不了解

带用户窗体.rar (12.31 KB, 下载次数: 25)

演示文稿1.zip (46.68 KB, 下载次数: 22)

pea95 · 发表于 2015-7-1 00:15

for each osl in ActivePresentation.Slides
for each osh in osl.Shapes
   if osh.haschar=mosTrue then
         with osh.char
         For i = 1 To .SeriesCollection(1).Points.Count
               .SeriesCollection(1).Points(i).DataLabel.Text = .ChartData.Workbook.sheets(1).Range("c" & i + 1).Value
         Next
         End With
next
next

		自动登录	找回密码
密码			免费注册

怎么批量修改PPT中图表的数据标签

评分

点评