VBA修改图表的属性，录制宏无效，求一行代码

493861364 · 发表于 2021-7-12 18:11

本帖最后由 493861364 于 2021-7-13 12:18 编辑

选择不同的选项，图表的效果不一样，想通过VBA代码来控制不同的选项，录制宏无效

哪位老师帮忙看一下，如何使用VBA修改图表中的属性，万分感谢！

bajifeng · 发表于 2021-7-12 20:01

需要超强领悟力才能解答。

493861364 · 发表于 2021-7-13 09:53

bajifeng 发表于 2021-7-12 20:01
需要超强领悟力才能解答。

可能是我没表述清楚吧，设置中选择不同的选项，图表的效果不一样，想通过VBA代码来控制不同的选项，不知道这样表述是不是更明白一些

xiaojia8211 · 发表于 2021-7-13 10:24

自己录个宏，看看每个选项对应的参数和语句，应该有帮助

493861364 · 发表于 2021-7-13 11:02

xiaojia8211 发表于 2021-7-13 10:24
自己录个宏，看看每个选项对应的参数和语句，应该有帮助

这个动作录制宏是空的，不知道什么原因，麻烦帮忙试试，谢谢

xiaojia8211 · 发表于 2021-7-13 13:59

493861364 发表于 2021-7-13 11:02
这个动作录制宏是空的，不知道什么原因，麻烦帮忙试试，谢谢

ActiveSheet.Shapes.Range(Array("Isosceles Triangle 2")).Select
Selection.Copy
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Fill
      .Visible = msoTrue
      .PresetTextured msoTexturePapyrus
      .TextureTile = msoTrue
      .TextureOffsetX = 0
      .TextureOffsetY = 0
      .TextureHorizontalScale = 1
      .TextureVerticalScale = 1
      .TextureAlignment = msoTextureTopLeft
End With
End Sub

看看这段是否能找到相关的参数设置

xiaojia8211 · 发表于 2021-7-13 15:30

xiaojia8211 发表于 2021-7-13 13:59
ActiveSheet.Shapes.Range(Array("Isosceles Triangle 2")).Select
Selection.Copy
ActiveShee ...

这段确实录不了

493861364 · 发表于 2021-7-13 17:10

本帖最后由 493861364 于 2021-7-13 17:12 编辑

xiaojia8211 发表于 2021-7-13 15:30
这段确实录不了

感谢帮助，网上也搜索不到相关的VBA语句，微软帮助文件里也没找到

493861364 · 发表于 2021-7-14 13:48

在论坛里搜索到一个10年前的帖子，跟这个问题类似，一直没有解决，有没有高手愿意出手帮助的，谢谢

493861364 · 发表于 2021-7-25 13:39

有没有老师愿意出手相帮的

		自动登录	找回密码
密码			免费注册

[求助] VBA修改图表的属性，录制宏无效，求一行代码