Question

通过VBA循环我为我的工作表上的每一行生成单独的图表（基于模板）但是当它产生它时，Y轴上的轴标签显示为1,2,3,4 ，5 ...我希望它显示单元格范围B2：J1中的值。我该怎么做呢？

Sub Macro6()

   Range("B2").Select
    ActiveCell.Range("A1:I1").Select   

    For counter = 2 To 10
        ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
        ActiveChart.ApplyChartTemplate ( _
            "C:\Users\arboari\AppData\Roaming\Microsoft\Templates\Charts\1Education.crtx")
        ActiveChart.SetSourceData Source:=Range("'Master Sheet'!$B$" & counter & ":$J$" & counter)
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts"
        With ActiveChart
            .HasTitle = False
            .Parent.Top = 50
            .Parent.Left = c * 100
        End With
        Sheets("Master Sheet").Select
        ActiveCell.Offset(1, 0).Range("A1:I1").Select

        c = c + 3
    Next counter

End Sub

谢谢！

Answer 1

您的设置源数据仅指示一行，因此您不提供轴标签。我怀疑你的轴标签是B1：J1，因为你开始用B2：J2制作图表。这可能会更有效地使用您的范围。

link        
entityid    fileid  folderid
22          1       null
22          2       null
22          3       null
22          4       null
22          null    33


file    
fileid  name
1       file1
2       file2
3       file3
4       file4

folder  
folderid    name
33         folder33
34         folder34
35         folder35
36         folder36

如何编辑图表上的Axes标签以反映特定范围的单元格值

1 个答案: