VBA批量修改excel格式

VBA批量修改excel格式，可以这样：
1、ShapeRange.width=宽
activesheet;chart 22").line(".ShapeRange.line(")可以用以下公式来解决
activesheet;chart 22"
2、activesheet.ShapeRange.line("chart 22").width=宽 activesheet.ShapeRange.line("chart 22").height=高
3、Sub 替换() Dim Ar, I As Long Ar = Worksheets(2).UsedRange For I = 1 To UBound(Ar) Worksheets(1).Cells.Replace Ar(I, 1), Ar(I, 2), xlPart, , False NextEnd Sub
4、 在EXCEL中按ALT+F11调出VBA窗口，插入一个用户模块，把下面代码粘贴进去。 回到图表所在的EXCEL工作表窗口，按“工具－宏－宏”，执行“修改数据源”宏就行了。
5、用如下宏，我这没有那个带2312的字体，你把仿宋改成仿宋_GB2312试试看行不行，表头按合并到A1的单元格写的，如果不是的话，可以把Range("a1")改成Range("1:1") Sub xxx() For i = 1 To ThisWorkbook.Sheets.Count With Sheets(i).UsedRange .

用如下宏，我这没有那个带2312的字体，你把仿宋改成仿宋_GB2312试试看行不行，表头按合并到A1的单元格写的，如果不是的话，可以把Range("a1")改成Range("1:1")
Sub xxx()
For i = 1 To ThisWorkbook.Sheets.Count
With Sheets(i).UsedRange
.Font.Name = "仿宋"
.Font.Size = 10
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Sheets(i).Range("a1").Font
.Name = "黑体"
.Size = 18
End With
Next
End Sub