应用场景 快速对工作表中的所有图表调整大小一致且对齐 知识要点 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 |
|