|
楼主 |
发表于 2011-1-30 02:43
|
显示全部楼层
此代码放到Sheet1模块里
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "点击此看美女" Then
Call 点击此看美女
ElseIf Target.Value = "点击此结束看美女" Then
Call 结束看图片
ElseIf Target.Value = "点击此美女消失" Then
Call 点击此美女消失
Else
Exit Sub
End If
下面的代码放到新建的一个模块里
Sub 插入图片()
Dim i As Integer
On Error Resume Next
i = Sheet1.Range("f1")
M = ThisWorkbook.Path & "\图片\" & i & ".jpg"
Sheet1.Shapes.AddPicture M, 1, 0, 0, 0, 200, 300
Sheet1.Range("f1") = i + 1
End Sub
Sub 点击此看美女()
Call 插入图片
Application.OnTime Now() + TimeValue("00:00:01"), "点击此看美女"
End Sub
Sub 结束看图片()
On Error Resume Next
Application.OnTime Now() + TimeValue("00:00:01"), "点击此看美女", , 0
End Sub
Sub 点击此美女消失()
Call 结束看图片
ActiveSheet.DrawingObjects.Delete
Sheet1.Range("f1") = 1
End Sub |
|