工作表事件之BeforeDoubleClick

这节来看下工作表的双击事件-BeforeDoubleClick，当双击单元格时就会触发该事件。现在来看个例子，我们有一个工作表，其中第1列是一批产品的货号，对应每项我们都有一个以货号命名的图片，现在要实现的效果是当我单击某个货号时会在工作表中显示该货号对应的图片。思路很简单，双击的时候运行一个插入图片的程序就好了。这里我们仍然用之前讲过的Pictures.Insert方法。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Shapes("图片1").Delete
If Target.Column = 1 And Target.Row <= 9 Then
Pictures.Insert(ThisWorkbook.Path & "/" & Target.Text & ".jpg").Select
With Selection
.Name = "图片1"
.Top = Target.Offset(0, 1).Top + 1
.Left = Target.Offset(0, 1).Left + 1
End With
End If
End Sub

为了实现每次双击都能将之前的图片删除，我们将图片定义了一个名称“图片1”，方便我们索引。Insert方法插入图片并且Select以便定义属性。Top是上端位置，Target.offset(0,1)表示从点击的单元格向右挪一列。

这里的图片是要和Excel工作簿放到一起的，如果图片是网上的，那可以结合我们之前网页取图片的方法将图片插入工作表，比如点击股票代码就出现股票的K线图，感兴趣的朋友可以自己做一下。

本节示例文件下载：http://pan.baidu.com/s/1mgwYyow。