Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4190|回复: 5

[已解决]如何用VBA挑战折线的粗细

[复制链接]
发表于 2012-11-25 11:41 | 显示全部楼层 |阅读模式
大家好!
用VBA录制宏做了个简单的图表,但是发现在宏语句里看不到调整折线粗细的代码,求大家如何用VBA调整图表里折线的粗细?
谢谢了! 屏幕截图.jpg

TEST1.zip

15.75 KB, 下载次数: 13

发表于 2012-11-25 11:52 | 显示全部楼层
  1. Sub 宏2()
  2. '
  3. ' 宏2 宏
  4. '

  5. '
  6.     ActiveChart.SeriesCollection(1).Select
  7.     With Selection.Format.Line
  8.         .Weight = 5
  9.     End With
  10. End Sub
复制代码
回复

使用道具 举报

发表于 2012-11-25 11:53 | 显示全部楼层
上面的得选选好图,才能起作业。
  1. Sub 宏3()
  2. '
  3. ' 宏3 宏
  4. '

  5. '
  6.     ActiveSheet.ChartObjects("2030").Activate
  7.     ActiveChart.SeriesCollection(1).Select
  8.     With Selection.Format.Line
  9.         .Weight = 8
  10.     End With
  11. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
beijiren368 + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2012-11-25 11:56 | 显示全部楼层    本楼为最佳答案   
折线图.gif
回复

使用道具 举报

 楼主| 发表于 2012-11-25 14:40 | 显示全部楼层
本帖最后由 beijiren368 于 2012-11-25 14:55 编辑
hwc2ycy 发表于 2012-11-25 11:56


非常感谢您的回复,这个问题困扰我好几天了!真的非常感谢您!
回复

使用道具 举报

 楼主| 发表于 2012-11-25 15:06 | 显示全部楼层
hwc2ycy 发表于 2012-11-25 11:53
上面的得选选好图,才能起作业。

hi hwc2ycy,您好,您的回答解决我的问题,可是我自己录制宏来尝试,可还是得不到调整线条粗细,颜色等属性的代码,为什么了?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-24 12:43 , Processed in 0.358411 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表