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

发布网友 发布时间：2022-04-22 09:59

我来回答

共5个回答

热心网友 时间：2023-09-28 01:18

可以通过宏来实现：先按你的需求调整一张图片，并将此过程录制为一个宏，然后将其余图表应用此宏，即可实现所有图表的格式与第一张图保持统一。下面以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、最终实现效果统一如下

热心网友 时间：2023-09-28 01:19

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

热心网友 时间：2023-09-28 01:19

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

热心网友 时间：2023-09-28 01:20

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

热心网友 时间：2023-09-28 01:20

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