作者：绿色风
分类：
时间：2022-08-18
浏览：141
楼主
biaotiger1 |
Q：在Excel2003中，刷新后，如何使数据透视 图保持自定义图表类型？
在Excel2010中，刷新数据透视表后，数据透视 图可以保持刷新前的图表类型。可是在Excel2003中一旦刷新数据透视表，数据透视 图将恢复为默认的图表类型。如何使Excel2003中创建的数据透视 图在数据透视表刷新后仍然保持其刷新前的图表类型呢？
A：假设在sheet1工作表中创建了数据透视表与数据透视 图。
右键单击sheet1工作表，打开快捷菜单→“查看代码”，在代码窗口中输入代码如下：- Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
- Dim Cht As ChartObject
- '删除当前工作表中的图表
- For Each Cht In ActiveSheet.ChartObjects
- Cht.Delete
- Next Cht
- '创建一个图表
- With Charts.Add
- '设置数据源为数据透视表
- .SetSourceData Source:=Target.TableRange1
- '定义图表类型
- .ApplyCustomType ChartType:=xlBuiltIn, TypeName:="两轴线-柱图"
- '移动图表
- .Location Where:=xlLocationAsObject, Name:="Sheet1"
- End With
- End Sub
此时，在sheet1工作表中刷新数据透视表，对应的数据透视 图仍然保持自定义的两轴线-柱图的图表类型。
详见附件。
 样式.zip
|
2楼
天南地北 |
可是在在Excel2003
改成这样是不是更好？
|
3楼
kokusan |
感谢版主，太崇拜您了，解决了我的大问题。谢谢！ |
4楼
芐雨 |
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一