怎么将 很多excel 图表格式统一

如何对excel表格所有工作表进行统一格式调整~

1、打开excel表格，打开一个表格，你可以看到这个表格有好2个工作表。

2、你可以看到每个表格的格式都不同，包括每个表格大小，行距、列宽、文字等等。

3、按住Ctrl，选中这2个标签，或者点击第一个标签，单击右键选择呢选定全部工作表，全选的表格你会看到所有工作表都是白色。

4、然后在第一个工作表中进行设置行高，改成20.磅，点击确定。你可以看到两张表格的行高都统一为20磅了。

5、同理列宽、文字也是一样，同样全选，在第一个表格中设置字体宋体，居中，字号为12加粗，列宽为20磅。

1、按CTRL全选图表

2、右键 选择大小与属性

3、设置大小

4、处理完毕

可以通过宏来实现：先按你的需求调整一张图片，并将此过程录制为一个宏，然后将其余图表应用此宏，即可实现所有图表的格式与第一张图保持统一。下面以Excel 2010为例进行演示：

1、初始数据及图表样式，显然格式不统一

2、如下图创建宏，在弹出菜单中设置宏名（例如chart_style）

3、在新弹出的Visual Basic窗口中，添加如下代码。可以根据注释，修改为需要的样式。

Sub chart_style()
    '设置图表区域的宽度和高度
    ActiveChart.ChartArea.Select
    Selection.Width = 230
    Selection.Height = 160
    '设置绘图区域的大小
    ActiveChart.PlotArea.Select
    Selection.Top = 0
    Selection.Left = 10
    Selection.Height = 150
    Selection.Width = 210
    With Selection.Format.Line
           .Visible = msoTrue
           .ForeColor.ObjectThemeColor = msoThemeColorText1
           .ForeColor.TintAndShade = 0
           .ForeColor.Brightness = 0
           .Transparency = 0
    End With
    ' 设置x轴的字体、大小、粗细
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveChart.Axes(xlCategory).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
    End With
    ActiveChart.Axes(xlCategory).AxisTitle.Select
    With Selection.Format.TextFrame2.TextRange.Font
        .NameComplexScript = "Times New Roman"
        .NameFarEast = "Times New Roman"
        .Name = "Times New Roman"
        .Bold = msoFalse
        .Size = 13
    End With
    ' 设置y轴的字体、大小、粗细
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    ActiveChart.Axes(xlValue).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
    End With
    ActiveChart.Axes(xlValue).AxisTitle.Select
    With Selection.Format.TextFrame2.TextRange.Font
        .NameComplexScript = "Times New Roman"
        .NameFarEast = "Times New Roman"
        .Name = "Times New Roman"
        .Bold = msoFalse
        .Size = 13
    End With
End Sub

4、选中一个图表，点击菜单的“宏”，在弹出窗口中，点击执行；同样设置另一幅图。

5、最终实现效果统一如下

多建几个工作表，然后按住shift键选择全部的工作，然后设置格式，这个工作表的图表的格式就能统一了

做一个表，然后复制很多份，这个是可以的，但不管你复制多少个都要把原数据也要复制，然后点击图表，改变图表中的数据就可以了。你再试试吧

你问的不对，如果表格数据行列数不一样多，在图表一样大的情况下，字体大小肯定不一样，色块也不一样，这样才能表达数据，至于位置大小，图表大小，都用系统默认的自然是一样的。

做一个表，然后复制很多份