如何使用VBA一次更改多个图形中XY轴的相同标题和格式?

金振国

我想使用VBA一次更改许多图形中XY轴的标题和格式。

我做了如下代码。

如果我有3个图形,要更改具有相同XY轴标题和格式的第二个图形,请复制并粘贴此代码,并将其从ChartObjects(1)更改为ChartObjects(2),还要更改第三个图形,我还要复制并再次粘贴此代码,并更改为ChartObjects(3)。

但是,如果我有100张图,似乎不可能将相同的代码复制和粘贴100次,并更改每个ChartObject。

有什么方法可以更轻松地更改许多图中的XY轴标题?

非常感谢,

Sub axis() 
 Dim xytitle As chart 
 Set xytitle = Worksheets("graph").ChartObjects(1).chart 
 With xytitle.axes(xlCategory)
    .HasTitle = True 
    .AxisTitle.Text = "Treatment" 
    .AxisTitle.Font.Size = 11 
  .AxisTitle.Font.Bold = False
 End With 
  With xytitle.axes(xlValue) 
    .HasTitle = True 
    .AxisTitle.Text = "Grain weight" 
    .MaximumScale = 60 
    .MajorUnit = 10 
    .AxisTitle.Font.Size = 11 
    .AxisTitle.Font.Bold = False
 End With 

 End Sub
金振国

我想出了解决方案!谢谢:)

Sub axis()

 Dim xytitle As Chart
 
 Dim i As Integer
 
 For i = 1 To 4
 
 Set xytitle = Worksheets("test").ChartObjects(i).Chart
 
 With xytitle.Axes(xlCategory)
    .HasTitle = True
    .AxisTitle.Text = "Treatment"
    .AxisTitle.Font.Size = 11
    .AxisTitle.Font.Bold = False
    
 End With
 
  With xytitle.Axes(xlValue)
    .HasTitle = True
    .AxisTitle.Text = "Grain weight"
    .MaximumScale = 60
    .MajorUnit = 10
    .AxisTitle.Font.Size = 11
    .AxisTitle.Font.Bold = False
    
 End With
 
 Next
 
 End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何使用 for 循环一次更改多个 Pandas Dataframes

来自分类Dev

如何一次更改多个列名?

来自分类Dev

如何一次更改或重构多个地方的相同文本?

来自分类Dev

在Plotly中,如何使用“更新”按钮在不同图形之间切换时如何动态更改轴标题

来自分类Dev

如何让多个指令在一个服务中仅调用一次相同的诺言?

来自分类Dev

一次保存多个图形

来自分类Dev

如何一次在Mac中的多个文件名中附加相同的字符串?

来自分类Dev

如何一次在Mac中的多个文件名中附加相同的字符串?

来自分类Dev

创建多个xy图表,使用excel-vba为具有相同x轴的每一列创建一个

来自分类Dev

我如何只能使用可变图形一次?

来自分类Dev

条件相同时,如何对多个列使用一次CASE语句?

来自分类Dev

如何一次更改和打印单个数据透视表的多个过滤器?

来自分类Dev

一次更改工作表中的多个命名单元格和范围

来自分类Dev

VBA 调试,如何一次单步执行多个循环

来自分类Dev

如何一次更改多个子图的颜色?

来自分类Dev

如何一次更改多个文件的文件类型?

来自分类Dev

如何一次更改已经分配了字体的多个组件中的字体?

来自分类Dev

在Python中一次更改列表中的多个项目

来自分类Dev

一次更改R中的多个向量类

来自分类Dev

如何更改图形中的轴单位?

来自分类Dev

如何使用带有多个子图的matplotlib吸引人地排列图形和文本(例如标题和轴标签)?

来自分类Dev

使用VBA更改XY散点图中的水平轴标签

来自分类Dev

如何仅一次选择最新(和多个)值?

来自分类Dev

如何使用jQuery和Javascript一次更改HTML中所有按钮的InnerHTML?

来自分类Dev

使用AutoHotkey一次发送和释放多个密钥

来自分类Dev

使用CloudKit和Swift一次保存多个CKRecord

来自分类Dev

使用AutoHotkey一次发送和释放多个密钥

来自分类Dev

如何在屏幕上一次显示多个图形而又不闪烁?

来自分类Dev

Winform:使用包含轴和标题的 SaveImage 导出图形

Related 相关文章

  1. 1

    如何使用 for 循环一次更改多个 Pandas Dataframes

  2. 2

    如何一次更改多个列名?

  3. 3

    如何一次更改或重构多个地方的相同文本?

  4. 4

    在Plotly中,如何使用“更新”按钮在不同图形之间切换时如何动态更改轴标题

  5. 5

    如何让多个指令在一个服务中仅调用一次相同的诺言?

  6. 6

    一次保存多个图形

  7. 7

    如何一次在Mac中的多个文件名中附加相同的字符串?

  8. 8

    如何一次在Mac中的多个文件名中附加相同的字符串?

  9. 9

    创建多个xy图表,使用excel-vba为具有相同x轴的每一列创建一个

  10. 10

    我如何只能使用可变图形一次?

  11. 11

    条件相同时,如何对多个列使用一次CASE语句?

  12. 12

    如何一次更改和打印单个数据透视表的多个过滤器?

  13. 13

    一次更改工作表中的多个命名单元格和范围

  14. 14

    VBA 调试,如何一次单步执行多个循环

  15. 15

    如何一次更改多个子图的颜色?

  16. 16

    如何一次更改多个文件的文件类型?

  17. 17

    如何一次更改已经分配了字体的多个组件中的字体?

  18. 18

    在Python中一次更改列表中的多个项目

  19. 19

    一次更改R中的多个向量类

  20. 20

    如何更改图形中的轴单位?

  21. 21

    如何使用带有多个子图的matplotlib吸引人地排列图形和文本(例如标题和轴标签)?

  22. 22

    使用VBA更改XY散点图中的水平轴标签

  23. 23

    如何仅一次选择最新(和多个)值?

  24. 24

    如何使用jQuery和Javascript一次更改HTML中所有按钮的InnerHTML?

  25. 25

    使用AutoHotkey一次发送和释放多个密钥

  26. 26

    使用CloudKit和Swift一次保存多个CKRecord

  27. 27

    使用AutoHotkey一次发送和释放多个密钥

  28. 28

    如何在屏幕上一次显示多个图形而又不闪烁?

  29. 29

    Winform:使用包含轴和标题的 SaveImage 导出图形

热门标签

归档