在EXCEL中的图片,能按条件显示,前提是先要将图片的名字先变号。然后用下面的函数:注:引号里面的为条件。PrivateSubWorksheet_Change(ByValTargetAsRange)DimrngAsRange,ML,MT,MW,MHOnErrorResumeNextActiveSheet.DrawingObjects.DeleteIfCells(1,1)="亚特兰大"Then'Cells(1,1):括号前面数字表示行号、后面数字表示列号;Sheets(2).Shapes(1).Copy'Sheets(2)表示工作表“Sheet2”;Shapes(1)表示工作表“Sheet2”里的第一个插入的图片,即“图片1”Setrng=Cells(1,2)WithrngML=.LeftMT=.TopMW=.WidthMH=.Height.SelectActiveSheet.PasteEndWithEndIfWithSelection.ShapeRange.LockAspectRatio=msoFalse'取消锁定纵横选项.Left=ML.Top=MT.Width=MW.Height=MHEndWithIfCells(2,1)="博洛尼亚"Then'要继续增加,就从这里复制Sheets(2).Shapes(2).CopySetrng=Cells(2,2)WithrngML=.LeftMT=.TopMW=.WidthMH=.Height.SelectActiveSheet.PasteEndWithEndIfWithSelection.ShapeRange.LockAspectRatio=msoFalse'取消锁定纵横选项.Left=ML.Top=MT.Width=MW.Height=MHEndWith'到这里结束,里面的图片名和行号、列号自己改就是了。EndSub