怎么设置excel里画出的曲线图大小一致(格式相同),字体之类的

 我来答
learneroner
高粉答主

2015-08-14 · 关注我不会让你失望
知道大有可为答主
回答量:1.1万
采纳率:91%
帮助的人:6408万
展开全部

可以通过宏来实现:先按你的需求调整一张图片,并将此过程录制为一个宏,然后查看宏代码,做适当的修改后应用到其余图表,最终可实现所有图表的格式与第一张图保持统一。

下面以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、最终实现效果统一如下

liuruijietwp
2012-01-17 · 超过42用户采纳过TA的回答
知道小有建树答主
回答量:213
采纳率:0%
帮助的人:117万
展开全部
将鼠标放到曲线图上,然后右键选择格式设置
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式