OriginPro 8 简单论文作图并且将多个worksheet表画在同一张图以及图的保存

一. OriginPro 8 作图

1.首先将要分析的数据放入表格中。
在这里插入图片描述
2. 打开origin作图软件,点击File–import–Excal 导入表格
在这里插入图片描述
然而,导入有问题。
在这里插入图片描述
在这里插入图片描述
但是,在这里可跳过第二步。

3.直接数据输入
在这里插入图片描述
4.点击箭头所示
在这里插入图片描述
4. 得到初步结果
在这里插入图片描述
5. 简单优化

双击坐标轴数值以及上图中的A,B即可进行更改属性,如颜色,大小,名称,间距…
在这里插入图片描述
二. 将多个worksheet表画在同一张图

1.在origin中建立多个表,每个表均有一个X列和一个Y列,并添加数据。

点击Name对话框的空白处 ,选择New Window–worksheet
在这里插入图片描述
2.双击Name对话框中的Graph1,选中左上角有个字样“1”(表示图层)。
在这里插入图片描述
3.在“1”位置右键-Layer Contents,如下图所示。选中左边框中的表,点击“=》”将其移到右边框中,右边框表示需要画在同一张图中的表,然后点击ok。
在这里插入图片描述
4.在图区域 双击,进行各个图的配置,改变颜色、形状、边框大小等,使之区分度更高。
在这里插入图片描述
5.初步结果如下图所示。
在这里插入图片描述
6.由于对图进行简单双击修改时,有些属性无法修改过来, 因此需要添加图例:在图区域(不要选中) ,右键-New Legend。 然后双击坐标位置,进行坐标间距、标题等个性化设置。
在这里插入图片描述

三. 导出图片
1.在已绘制的图片窗口的空白区域,右键单击,选择菜单中的 Export page
在这里插入图片描述
2.在file name 框输入文件名字,在image type框选择任意自己需要的图片格式,如图中的jpg,最后一定要选择path,也就是保存路径,然后单击保存,即可。

在这里插入图片描述
参考博客:
关于origin简单作图https://blog.csdn.net/qq_42278015/article/details/87923703

图的保存
https://www.jb51.net/softjc/609754.html

Origin8画图:将多个worksheet表画在同一张图
https://blog.csdn.net/u014714362/article/details/80278785


大家加油!

  • 2
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在VBA中,要汇总同一文件夹中多个工作簿中的同名工作表,可以按照以下步骤进行: 首先,创建一个新的工作簿作为汇总结果。可以使用以下代码创建新的工作簿: ```vba Dim summaryWorkbook As Workbook Set summaryWorkbook = Workbooks.Add ``` 接下来,获取指定文件夹中的所有文件名。可以使用以下代码获取文件夹路径以及文件夹中的所有文件名: ```vba Dim folderPath As String Dim fileName As String Dim folder As Object Dim file As Object folderPath = "指定的文件夹路径" Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath) For Each file In folder.Files fileName = file.Name '在此处继续编写代码 Next file ``` 然后,打开每个工作簿,并将相应的同名工作表复制到汇总结果工作簿中。可以使用以下代码实现: ```vba Dim sourceWorkbook As Workbook Dim sourceWorksheet As Worksheet Dim destWorksheet As Worksheet For Each file In folder.Files fileName = file.Name Set sourceWorkbook = Workbooks.Open(folderPath & "\" & fileName) For Each sourceWorksheet In sourceWorkbook.Worksheets '检查是否有同名工作表 If WorksheetExists(sourceWorksheet.Name, summaryWorkbook) Then Set destWorksheet = summaryWorkbook.Worksheets(sourceWorksheet.Name) sourceWorksheet.Copy After:=destWorksheet End If Next sourceWorksheet sourceWorkbook.Close SaveChanges:=False Next file ``` 最后,在完成复制后,保存并关闭汇总结果工作簿: ```vba summaryWorkbook.SaveAs folderPath & "\汇总结果.xlsx" summaryWorkbook.Close SaveChanges:=False ``` 以上是利用VBA汇总同一文件夹中多个工作簿中同名工作表的方法。通过遍历文件夹中的工作簿,打开每个工作簿并复制同名工作表到汇总结果工作簿中,最后保存并关闭汇总结果工作簿。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值