在窗体那里贴上以下代码:

Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub UserForm_Activate()

SetActiveWindow Application.hwnd

End Sub

你以上的代码更改为:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

UserForm1.Hide

On Error GoTo L

DoEvents

x = ActiveCell

If x = "" Then End

UserForm1.Show 0

UserForm1.Image1.Picture = LoadPicture("D:\My Documents\My Pictures\" & x & ".jpg")

GoTo k

L:

Unload UserForm1

k:

End Sub