一个关于数据透视图的“老”，“大”问题？-->Kevin转移

依依 · 发表于 2002-6-7 15:07

[upload=jpg]uploadImages/2002671542719236.jpg[/upload][upload=rar]uploadImages/2002671543557266.rar[/upload] 大家看，这张数据透视图多么漂亮，但是，一旦我在品牌（加红圈）选项处选择其它品牌，它就byebye了，一切都得从头再来，再设次坐标轴，设线的粗细。有什么办法可解决这个难题？

Kevin · 发表于 2002-6-8 12:30

不但是数据透视图，在数据透视表里面也存在着同样的问题，让人好生苦恼，只能请教于微软了！

依依 · 发表于 2002-6-8 14:42

唉呀！这样我这个问题岂不是解决不了。

依依 · 发表于 2002-6-8 14:46

那有什么好的方法也可体现我这些数据呢？唉，黄花版主，你把我拉到这边，人太少了，我的问题少掉了很多解答的机会耶。

鱼之乐 · 发表于 2002-6-8 17:53

只能做一段vba来格式化它了,让它监测数据源变化后就顺便执行一下,不就得了

redwin · 发表于 2002-6-9 13:47

其实也简单,将以下VBA代码放在你的图表里即可(请参考) Private Sub Chart_Calculate() On Error Resume Next ActiveChart.SeriesCollection(1).AxisGroup = 2 ActiveChart.ChartArea.Select End Sub

依依 · 发表于 2002-6-10 10:17

监测数据源变化的代码还有设置线的粗细应该怎么写，请再帮一下，好人做到底。

redwin · 发表于 2002-6-11 08:55

Private Sub Chart_Calculate() On Error Resume Next ActiveChart.SeriesCollection(1).AxisGroup = 2 'TO：依依网友格式的大小样式你自己可以用录制宏的方法灵活使用，以下供参考 ActiveChart.SeriesCollection(1).Select With Selection.Border .Weight = xlThick End With With Selection .MarkerSize = 9 End With ActiveChart.SeriesCollection(2).Select With Selection.Border .Weight = xlThick End With With Selection .MarkerSize = 9 End With ActiveChart.ChartArea.Select End Sub

redwin · 发表于 2002-6-11 10:08

ActiveChart.ChartArea.Select改为 ActiveChart.Deselect更好点

Kevin · 发表于 2002-6-14 23:03

不知道有没有不动用VBA的解决方法？

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