PPT中的图表如何随着源数据Excel里的数据调整而变化

Posted 2023-05-07

1、基本信息：在Excel里做了一个月度数据分析图表，然后复制图表，在PPT里通过“粘帖”——“选择性粘贴”——“粘帖链接”。Exceli和PPT放在同一个文件夹中。
2、出现的问题：当把文件夹复制重命名后，比如原名字为“1月”，更改为“2月”，在Excel里输入新的月度数据后，PPT中的图表的链接仍是上个月份的。请问，这是怎么回事？

应当在ppt中插入图表，而不是在excel里制作然后复制到ppt里，那样是相当于复制一张图片在ppt里，当然是随便你怎么改都不会变化洛 参考技术A 你遇到的问题是客观存在的，因为你设置的文件内部的链接没有修改，只改变外面的文件夹名称，文件自己怎么会知道呢？
注意：你设定的链接是有路径的，比如：
='C:\月度计划\[选号.xlsx]Sheet2'!D61

这个路径并非说的是当前路径。
所以，无论你把这个文件复制到什么地方去，它都是要到 ='C:\月度计划\[选号.xlsx]Sheet2'!D61 这个地方去链接数据。

解决的办法是1.修改链接，2.固定excel文件的输出位置。

详细Hi，or qq896813842追问

能不能具体介绍一些操作方法？如何修改链接？如何固定文件输出位置？

追答

修改链接是采用全部替换的办法
固定输出位置，说起来有点复杂。

Hi，or qq896813842

本回答被提问者和网友采纳 参考技术B 什么呀

未为 PPT 中的图表设置数据标签属性

【中文标题】未为 PPT 中的图表设置数据标签属性

【英文标题】：Data label Properties not being set for a chart in PPT

【发布时间】：2022-01-22 14:54:53

【问题描述】：

我正在尝试使用此代码 sn-p 设置数据点的数据标签属性，但由于某种原因，这些属性未按预期设置。 [请看图片以获得更好的清晰度]。

一种解决方法可能是使用Reset label Text [参见图2]，从而强制数据标签更新设置的属性。但我找不到相同的vba。帮助。

 'This is happening inside a loop

 Dim thisbarpoint As Point
 Set thisbarpoint = thischart.FullSeriesCollection(ibar).Points(jbar)

 thisbarpoint.DataLabel.ShowCategoryName = True
 thisbarpoint.DataLabel.ShowValue = False
 thisbarpoint.DataLabel.ShowSeriesName = False

 Debug.Print thisbarpoint.DataLabel.caption
 Dim DataLabelCaption As String
 DataLabelCaption = thisbarpoint.DataLabel.caption
 Debug.Print DataLabelCaption 'This gives the value as 26.7%

PIC-1：

PIC-2：

【参考方案1】：

这对我来说很好用：

Dim cht As Chart, s As Series
    
Set cht = ActivePresentation.Slides(1).Shapes(1).Chart
Set s = cht.SeriesCollection(1)

Debug.Print s.HasDataLabels 'False

s.HasDataLabels = True
With s.DataLabels
    .ShowCategoryName = True
    .ShowValue = False
    .ShowSeriesName = False
End With

我们无法知道您的文件是否已损坏，或者问题是否出在您未包含的代码中。

【讨论】：

这个问题只发生在特定的数据点上。它是一个聚集柱形图。对于其他数据点，代码运行良好。我正在努力寻找根本原因，否则会降低对宏观的信心。

好的 - 可能会添加更多代码，或者与图表共享幻灯片的副本？据我所知，您发布的代码没有任何问题。

最后，我制作了一个新图表并将后端数据复制到这个图表中，现在代码正在运行。原因仍然是个谜。该图表肯定会出现在超自然的甲板上......大声笑

有没有办法在代码中使用Reset Label Text 选项。可能强制它刷新会起作用。我找不到相同的 vba 等价物。

在 Excel VBA 中似乎是 .AutoText = True 但我认为这只会从标签中清除和“手动”编辑。