帮林岚处理一个Excel图表对象时,使用如下代码时: Dim xlChart As ChartObject Set xlChart = ActiveSheet.ChartObjects(1) MsgBox xlChart.Name xlChart.Activate xlChart.PlotArea.Select xlChart.SetSourceData Source:=Range("A13:C18") 总是提示 不支持该属性和方法 后来来发现原来要对图表里的属性进行控件,需要 使用xlChart.Chart, 即在xlChart后面加上 .Chart 即可 ,代码改为: Dim xlChart As ChartObject Set xlChart = ActiveSheet.ChartObjects(1) MsgBox xlChart.Name xlChart.Activate xlChart.Chart.PlotArea.Select xlChart.Chart.SetSourceData Source:=Range("A13:C18") 虽然是个小细节,但有时不注意,也会浪费一些时间。所以记录一下,或许对有同样问题的网友有些帮助 另通过对xlChart.Chart的相关属性,可对图表进行完全的控制,可定制图表的外观和数据 ,以及所有细节。非常强大。 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2025-4-2 12:12 , Processed in 0.077839 second(s), 24 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.