Excel-VBA调整图表大小一致且对齐与图表命名

应用场景

快速对工作表中的所有图表调整大小一致且对齐

知识要点

1：VBA.vbTab 相当于按键盘tab键，就是在连接字符串是加入指定长度的空白

2：图表的名称默认是 图表1 图表2，无法通过手工修改，但是VBA可以批量修改图表的名称

Sub 统一图表()

    Dim ChartCount As Integer, ActiveChart As Integer, ChartName As String, i As Integer

    With ActiveSheet.ChartObjects  '引用所有图表

        ChartCount = .Count

        If ChartCount <= 1 Then Exit Sub '如果小于等于1个则退出程序

        For i = 1 To ChartCount '遍历所有图表

            ChartName = ChartName & i & ';' & .Item(i).Name & VBA.vbTab '串连所有图表名称

        Next

        '让用户指定参照图表的序号

        ActiveChart = Application.InputBox('请指定参照图表序号：' & Chr(10) & ChartName, '参照表', 1, , , , , 1)

        If ActiveChart > ChartCount Then Exit Sub '如果序号大于数表数量则终止程序

        If ActiveChart < 1 Then Exit Sub '如果序号小于1也终止程序

        For i = 1 To ChartCount   '遍历所有图表

            .Item(i).Height = .Item(ActiveChart).Height '统一高度

            .Item(i).Width = .Item(ActiveChart).Width '统一宽度

            .Item(i).Left = .Item(ActiveChart).Left '统一左边距

        Next

    End With

End Sub

Sub 命名图表() '图表名称与它的标题统一

    Dim ChartCount As Integer, i

    With ActiveSheet.ChartObjects  '引用所有图表

        ChartCount = .Count '记录个数

        If ChartCount <= 1 Then Exit Sub  '如果是小于等于1个则退出程序

        For i = 1 To ChartCount  '遍历所有图表

            .Item(i).Name = .Item(i).Chart.ChartTitle.Text  '逐个命名,图表名称与它的标题统一

        Next i

    End With

End Sub