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

yanjie

也不知道是否正确，给写代码参考（主要来自excel中）：
Sub changchartcolor()
Dim sld As Variant
Dim sh As Shape
For Each sld In ActivePresentation.Slides     '循环幻灯片
    For Each sh In sld.Shapes       '循环每个形状
   
        If sh.Type = msoChart Then         ’如果形状中是图表类型的形状，则...
           '这里加入改变图表颜色的代码
           sh.Fill.BackColor.SchemeColor = 3
        End If
    Next
Next


End Sub

zzj824

yanjie 发表于 2012-6-23 15:23
也不知道是否正确，给写代码参考（主要来自excel中）：
Sub changchartcolor()
Dim sld As Variant

你这是在excel做的图表，然后改变其颜色对吗？能在ppt中实现这样的功能吗？

yanjie

zzj824 发表于 2012-6-24 07:39
你这是在excel做的图表，然后改变其颜色对吗？能在ppt中实现这样的功能吗？

你自己在ppt文件中试试吧，我的软件版本低！

jiulongpo

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

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.         MySeries.Format.Fill.ForeColor.RGB = RGB(0, 255, 0)     '设置系列1的前景色为:绿色
    
11.     End If
    
12. Next Myshape
    
13. Next Myslide
    
14. End Sub

复制代码

附件: 更改所有图表系列1的颜色.zip (155.39 KB, 下载次数: 87)

2012-6-24 13:18 上传

点击文件名下载附件

zzj824

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

Dim MySeries As Series     '声明对象变量为图表系列
我在07版上运行报错为：用户定义类型未定义。你这个代码只适用于07版的吗？10版是不是不可以呀？能给我提供一个10版的吗？非常感谢！

zzj824

yanjie 发表于 2012-6-23 15:23
也不知道是否正确，给写代码参考（主要来自excel中）：
Sub changchartcolor()
Dim sld As Variant

你这个改变的还是图表的背景色，而不是图表本身的颜色。。。。。

jiulongpo

zzj824 发表于 2012-6-24 20:50
Dim MySeries As Series     '声明对象变量为图表系列
我在07版上运行报错为：用户定义类型未定义。你 ...

在07版上运行,要升级到sp2以上,不然,是不会支持修改图表的.所以会报用户定义类型未定义.
我使用的就是07版,已升级到sp3了.

zzj824

jiulongpo 发表于 2012-6-25 08:33
在07版上运行,要升级到sp2以上,不然,是不会支持修改图表的.所以会报用户定义类型未定义.
我使用的就是07 ...

那你能在10版上整一个吗？呜呜。。。麻烦你了

jiulongpo

zzj824 发表于 2012-6-25 10:19
那你能在10版上整一个吗？呜呜。。。麻烦你了

10版同07sp3一样的吧?

zzj824

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

嗯 真的是太棒了 非常感谢你 问题总算是解决了 再次谢谢！