如何能一次性的更改ppt中所有图表的颜色 非常着急啊

zzj824

zzj824 发表于 2012-6-25 12:06
嗯 真的是太棒了 非常感谢你 问题总算是解决了 再次谢谢！

你能再帮我解决几个问题吗？谢谢啦

1.改变渐变光圈的颜色

2.改变左边Y轴的颜色

3.改变边框颜色

zzj824

jiulongpo 发表于 2012-6-25 10:35
10版同07sp3一样的吧?

你能再帮我解决几个问题吗？谢谢啦

1.改变渐变光圈的颜色

2.改变左边Y轴的颜色

3.改变边框颜色

jiulongpo

只能回家再做了,公司的用不了,是2003版.
把你需求讲详细一点吧.

zzj824

jiulongpo 发表于 2012-6-25 13:52
只能回家再做了,公司的用不了,是2003版.
把你需求讲详细一点吧.

1.
在附件里面 左边的那个图是通过渐变光圈改变的颜色 也就是它涵盖两种颜色 我想让你在原有的基础上增加代码 遇到有这种渐变色的 就改成纯色的
2.
左边这个图的Y轴是条蓝色的直线，能不能改变其颜色？
3.
有边图表内部颜色和边框颜色不一样
我想让你把这个三种情况放到你先前写的代码里面，遇到这三种情况后 程序自动识别 并将其改变成边框、内部颜色以及Y轴竖线的颜色都是一样的
非常感谢你！

zzj824

jiulongpo 发表于 2012-6-24 13:18
终于升级到Office 2007 sp3 了,可以支持用VBA在PPT内修改Chart图表对象了.
更改所有图表系列1的颜色

Set MySeries = Myshape.Chart.SeriesCollection(1)     '设置变量为图表内的系列1

我想问一下 你这个是规定条形图为图表系列1 对吗？
若我要是改成柱形图了 我改为Set MySeries = Myshape.Chart.SeriesCollection(2)  相应的他就会改变柱形图的颜色 对吗？

jiulongpo

zzj824 发表于 2012-6-25 15:43
Set MySeries = Myshape.Chart.SeriesCollection(1)     '设置变量为图表内的系列1

我想问一下 你这个 ...

这个系列1是针对所有的图表的系列1,即:针对柱形图是返回系列1,针对折线图也返回系列1.

zzj824

jiulongpo 发表于 2012-6-25 18:06
这个系列1是针对所有的图表的系列1,即:针对柱形图是返回系列1,针对折线图也返回系列1.

菜鸟让你费心了 那你回去了以后再帮我看看那三个需求该如何实现吧？谢谢了！

jiulongpo

1. Sub 更改所有图表系列1的颜色()
   
2. Dim Myslide As Slide     '声明对象变量为幻灯片
   
3. Dim Myshape As Shape     '声明对象变量为形状
   
4. Dim MySeries As Series     '声明对象变量为图表系列
   
5. 
   
6. For Each Myslide In Application.ActivePresentation.Slides     '在幻灯片集合内循环
   
7. For Each Myshape In Myslide.Shapes     '在形状集合内循环
   
8.     If Myshape.HasChart Then     '判断形状是否为图表
   
9.         Set MySeries = Myshape.Chart.SeriesCollection(1)     '设置变量为图表内的系列1
   
10.         With MySeries.Format
    
11.             .Fill.Solid     '设置系列1填充格式为单色的填充格式
    
12.             .Fill.ForeColor.RGB = RGB(0, 255, 0)     '设置系列1的前景色为:绿色
    
13.             .Line.ForeColor.RGB = RGB(0, 255, 0)     '设置系列1的边框线前景色为:绿色
    
14.         End With
    
15.         With Myshape.Chart
    
16.             .SetElement (msoElementPrimaryCategoryAxisWithoutLabels)     '设置Y轴显示无标签
    
17.             .Axes(1).Border.Color = RGB(0, 255, 0)    '设置Y轴边框颜色为:绿色
    
18.         End With
    
19.     End If
    
20. Next Myshape
    
21. Next Myslide
    
22. End Sub

复制代码

截图:


附件: 18.zip (187.06 KB, 下载次数: 35)

2012-6-25 21:13 上传

点击文件名下载附件

liucqa

莫非是钓鱼贴？         

zzj824

liucqa 发表于 2012-6-25 21:38
莫非是钓鱼贴？

什么意思啊？