Mathematica中文论坛-非官方

标题: excel画散点图,回归图，x,y轴等长,插入word [打印本页]

作者: meatball1982 时间: 2016-4-11 17:01
标题: excel画散点图,回归图，x,y轴等长,插入word
本帖最后由 meatball1982 于 2016-4-11 20:48 编辑

当被问到一些很奇怪的问题时，才知道自己对一些东西知之甚少。

比如用excel画散点图，两个平行放在一起，
还要每个图xy轴等长。

我靠，就我这基本功，整了一下午，没整明白。
现在记录下来。

01.打开一个excel

02.生成两组，4列数据。

03.画个图

这个图不是xy轴等长的。
先不变，设置一下它的格式

05.设置xy轴相等。
用
alt+F11
进入一个i don't know what 的界面。双击红色的部分。

[attach]38[/attach]

Sub wh()
ActiveSheet.Shapes("图表 1").Width = 300
ActiveSheet.Shapes("图表 1").Height = 300
End Sub

复制代码

把上面这些文字给copy上，大体意思是设置宽和高为300。根据你自己的要求设置。
另外，图表 1是你画的图的名字。运行是用f5
回去也是alt+f11

然后，xy轴就等长了。

对于第二个图，作相同的工作。

注意，红色那部分不修改的话，可能会有下面两个图的错误

第二个图要修改下图中红色的部分。对，还有"图表 2"

两个图就都是方方的了。

剩下的是设置图。比如把图的边框高为空，填充为空。

现在，两个图都是透明的了。
把它两放在一起。

注意，两个坐标轴的生命部分。
两个图都选中。
用ctrl+G或是ctrl+E（具体哪一个，忘记了）给组合起来。
copy整个图（注意，是整个图）

打开一个word。
粘贴的第二项

注意，点这个图的数据，会直接到excel当中。
当excel中的数据改变是地，这里的数据也会跟着变。

写的不太细，有问题
meatball1982@163.com

捕获05.PNG (51.81 KB, 下载次数: 1672)

欢迎光临 Mathematica中文论坛-非官方 (http://ilovemathematica.com/)