MSChart控件的方法
(1)EditCopy方法以Windows位图文件格式将当前图表的图片复制到剪贴板中。它同时将创建图表使用的数据复制到剪贴板中。
使用此方法,可将图表数据或图表图片本身粘贴到另一个应用程序中。因为数据和图表图片都存储在剪贴板上,因此粘贴到新的应用程序中的内容取决于该应用程序的类型。例如,如果在代码中执行图表的 EditCopy方法,然后切换到Excel工作表来选择“编辑”中的“粘贴”命令,则将把图表数据集复制到工作表中。如要将图表图片插入到工作表中,可在选定“编辑粘贴特殊”后选择“图片”类型。下列代码将当前的图表复制到Excel的表工作簿中。
Thisform.Olecontrol1.EditCopy && Olecontrol1为MSChart控件
oXLS=CREATEOBJECT("Excel.Application")
oXLS.Visible= .T.
oXLS.SheetsInNewWorkbook=1 &&建立一个空工作表
oXLS.Workbooks.Add &&添加一个表工作簿
oXLS.Worksheets("Sheet1").PasteSpecial &&选择性粘贴
由于在Excel中可以直接支持图形工作簿,所以可以使用下列代码直接粘贴到Excel图表中。
Thisform.Olecontrol1.EditCopy
oXLS=CREATEOBJECT("Excel.Application")
oXLS.Visible=.T.
oXlS.SheetsInNewWorkbook=1 &&建立一个空工作表
oXLS.Workbooks.Add(2) &&添加一个图形工作簿
oXLS.Charts("Chart1").Paste
(2)EditPaste方法将剪贴板中的Windows位图文件图形或由tab键分隔的文本粘贴到图表的当前选定区域。
图表可接受剪贴板中的几种类型的信息,这取决于调用EditPaste时选定的图表元素。如果选定了整个图表,则图表在剪贴板中寻找数据并试图使用这些新数据重新绘制图表。如果选定能够接受图片的项目,例如选定了条形图或图表背景,则图表在剪贴板上寻找图元文件。如果找到了图元文件,就使用该图元文件填充选定对象。