设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

【技巧】Access操控Excel中图表对象的经验之一

2015-5-1 08:55| 发布者: tmtony| 查看: 1184| 评论: 1|原作者: tmtony|来自: office中国论坛

摘要: 帮林岚处理一个Excel图表对象时,使用如下代码时: Dim xlChart As ChartObject Set xlChart = ActiveSheet.ChartObjects(1) MsgBox xlChart.Name xlChart.Activate xlChart.PlotArea.Select ...
帮林岚处理一个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的相关属性,可对图表进行完全的控制,可定制图表的外观和数据 ,以及所有细节。非常强大。


上一篇:给honglai的例子
发表评论

最新评论

引用 p51219 2016-7-10 00:31
好好好呵呵呵呵呵

查看全部评论(1)

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-20 02:11 , Processed in 0.073971 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部