word
在Origin中生成的图表可以直接复制到
word中，只需要按下Ctrl+C组合键即可。复制到
word中的图表会以图片的形式存在，并且可以调整图片的大小和位置。如果要在
word中保留Origin的网格线、图例等元素，可以将图片另存为PNG格式。在Origin中选择要保存的图片，在菜单栏中点击“文件”->“另存为”，选择保存为PNG格式，然后在
word中插入该PNG图片即可。另外，如果想要在
word中保留Origin的交互式功能，可以使用
VBA代码来实现。具体方法是，在Origin中选中要复制的图表，在菜单栏点击“编辑”->“定义高级编辑”，进入代码编辑界面，在其中插入以下代码：Sub CopyOriginChart()Dim cht As ChartSet cht = CurrentChartWith cht.SetSourceData Source:=chd authorised:=False.SetSourceDataPosition xlAutoPosition.SetSourceDataAutoFit:=False.SetSourceDataPlotPosition xlPlotPositionHorizontal.SetSourceDataPlotOrientation xlPlotOrientationHorizontal.SetSourceDataPlotLocation xlPlotLocationRight.SetSourceDataPlotAlignment xlPlotAlignmentInvisible.SetSourceDataPlotType xlPlotItemTypeLineAndPoint.SetSourceDataPlotColorIndex xlPlotColorIndexWhite.SetSourceDataPlotLineStyle xlPlotLineStyleSolid.SetSourceDataPlotMarkerStyle xlPlotMarkerStyleCircle.SetSourceDataPlotMarkerSizeIn象素 10.SetSourceDataPlotMarker fillcolorindex:=0.SetSourceDataPlotlabel "X轴标签".SetSourceDataPlotXAxisName "X轴名称".SetSourceDataPlotYAxisName "Y轴名称".SetSourceDataPlotXAxis majorinterval=1 minorinterval=1.SetSourceDataPlotYAxis majorinterval=1 minorinterval=1.SetSourceDataPlotXAxis minorunits = "" minorstyle = "line".SetSourceDataPlotYAxis minorunits = "" minorstyle = "line".SetSourceDataPlotXAxis linecolorindex=0.SetSourceDataPlotXAxis labelcolorindex =0.SetSourceDataPlotXAxis gridlinecolorindex =0.SetSourceDataPlotXAxis gridlinespace=0.5.SetSourceDataPlotxAxis ticklength=0.05.SetSourceDataPlotXAxis ticklabelrotation=0.SetSourceDataPlotXAxis ticklabelsize=0.08.SetSourceDataPlotXAxis ticklabelweight="bold".SetSourceDataPlotXAxis ticklabelcolorindex=0.SetSourceDataPlotXAxis ticklabelstyle="bold".SetSourceDataPlotXAxis ticklabelfillcolorindex=0.SetSourceDataPlotXAxis ticklabelfillcolorindex =0.SendData()End WithEnd Sub这样，在
word中插入的图片就会带有交互式效果。
