Excel中处理图像信息应用研究.docVIP

Excel中处理图像信息应用研究 　　摘要： 在Excel中对图像信息的处理，根据需要可以将图像信息存储在Excel文件内，也可以将图像信息存储在外存储器中的其它位置，从而独立于Excel文件存在。这样可以使不同类型的信息存取在结构上更加清晰，方便信息的组织管理，同时也减少文件本身太大而引起的维护不便等一系列问题。 　　关键词： 定义名称；函数嵌套；VBA 　　中图分类号：TP391 文献标识码：A 文章编号：1671－7597（2011）0520085－02 　　 　　0 引言 　　Excel在管理图像信息的时候，在工作表中插入一张图片，可以采用定义名称的方式来引用图像。但这种做法需要将图像本身存储在单元格中，不仅要调节单元格的宽度以适合图像的放置，而且图像本身就存储在Excel工作表中，这样工作簿文档在信息量很大时，单个Excel文件就会占据很大的磁盘空间，处理时会占据较大的系统开支。其好处是信息都在一个文件里，一般用户都可以管理。 　　在Excel中，用VBA提供的功能，可以在VBE环境来编写程序，将图像信息通过VBA程序实现自动插入。这样做可以使得管理的图像信息独立于Excel文件单独存储在一个文件夹中。Excel文件本身不至于太大，图像信息通过VBA的宏功能在使用的时候，会自动插入在需要的地方，但一般用户较难掌握VBA命令程序。本文对于这两种方法在数据管理中，如何使用图像信息及其一些实际问题做了研究。 　　1 引用名称插入图片信息 　　现有一个Excel工作簿，其中有名称为档案和简历两个Excel工作表。在简历表中有照片一栏信息，在实际中这是一个个人信息查询的介面。其中的所有查询信息都来源于另一名为档案的工作表，这个表中的所有信息将作为数据源提供给简历表作为信息查询使用。如图1所示。 　　首先在Excel简历工作表中插入任意一张照片，并选中该照片，此时在Excel名称框中会显示所插入的照片名称，根据所插入照片的顺序自动取名称为图片n，将该照片的位置移动到合适的地方，参考如图2所示。然后在公式编辑栏中输入公式：=PIC。选插入名称定义，在工作簿中的名称框中输入名称PIC，按添加按钮后，选中名称PIC后，并在引用位置处输入公式： 　　=INDEX（档案!$D：$D，IF（简历!$B$2=，65536，MATCH（简历!$B$2，档案!$A：$A，0））） 　　或公式： 　　=OFFSET（档案!$D$1，IF（简历!$B$2=，65535，MATCH（简历!$B$2，档案!$A：$A，0）-1），） 　　查询中的性别、所在院系等其它信息可以用Vlookup函数来自动获得。公式参考如下： 　　=VLOOKUP（B2，档案!$A$2：$D$3，2，1）。参考图3。 　　在B2单元格中输入所要查询人员的姓名后，对应人员的其它信息都会从数据源档案表中获得。为了快速查询，我们可以对B2单元格进行数据有效性设置，设置成序列。由于单元格数据有效性不支持跨表引用序列的操作，我们可以在简历表中设置辅助列，辅助列引用档案表中的姓名所在列。这样我们可以在姓名单元格中通过下拉列表选择姓名，提高查询的效率。 　　2 宏和VBA解决图片插入 　　按Alt+F11进入VBE环境，在工程资源窗口中，双击该工作簿文件下的简历工作表，打开简历工作表的代码窗口，选择Worksheet对象的Change过程。其对应程序如下： 　　Private Sub Worksheet_Change（ByVal Target As Range） 　　If Target.Address（） =$B$2 Then 　　 ActiveSheet.Pictures.Delete 　　Dim aa As String 　　aa=Cells（2， 2） 　　If aa Then 　　ActiveSheet.Pictures.Insert（.\aa.jpg）.Select 　　Selection.ShapeRange.Top=Cells（2，20）.Top 　　Selection.ShapeRange.Left=Cells（2，20）.Left 　　Selection.ShapeRange.Width=Cells（2，20）.Width 　　Selection.ShapeRange.Height=Cells（2，1）.Height+Cells（3，1）.Height +Cells（4，1）.Height 　　End If 　　End If 　　Cells（2，20）.Select 　　End Sub 　　程序中的ActiveSheet.Pictures.Insert（.\ aa .jpg）.Select 　　语句