Question

我有一个excel模板来生成多个图表 - 超过20个图表排列在不同的图纸上。

我想将一个宏指定给一个按钮或两个按钮来添加/删除错误，这些操作基本上都是通过操纵行的透明度...

我得到了以下代码的帮助，这些代码在单击每个工作表时都有效：

Sub Macro2()

Dim objCht As ChartObject
Dim ws As Worksheet

' loop through sheets in this workbook
For Each ws In ThisWorkbook.Worksheets
' loop through Chartobjects in sheet
For Each objCht In ActiveSheet.ChartObjects
    ' no need to select the chart or the series use With statement instead
    With objCht.Chart.SeriesCollection(1)
       .HasErrorBars = True
        With .ErrorBars.Format.Line
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorText1
            .ForeColor.TintAndShade = -0.0500000119
            .ForeColor.Brightness = 0
            .Transparency = 1
        End With
      End With
   Next objCht
Next ws

End Sub

以下内容保存在每个工作表中：

Private Sub Worksheet_Activate()
Macro2
End Sub

Answer 1

尝试将第<head>行更改为For Each objCht In ActiveSheet.ChartObjects。您可以在不使用它们的情况下循环多次。在第二种方法中，每个循环都会更改工作表。

错误栏可见性

1 个答案: