EXCEL插入圖片宏怎麽寫

這個需要和excel工作表事件進行配合才可完成，以下面模擬為例

在職工信息中表中為員工插入圖片，當單擊職工姓名時，就會出現職工的照片，需要做的前期準備就是，必須要將職工信息表和職工照片放在同壹文件夾下。

在信息表中插入以下代碼：

Private

Sub

Worksheet_SelectionChange(ByVal

Target

As

Range)

On

Error

Resume

Next

If

Target.Column

=

2

Then

Me.Image1.Visible

=

True

Image1.Picture

=

LoadPicture(ThisWorkbook.Path

&

"\員工照片\"

&

Target.Offset(0,

-1)

&

".jpg")

Image1.Left

=

Target.Left

+

Target.Width

Image1.Top

=

Target.Top

Else

Me.Image1.Visible

=

False

End

If

c

=

Target.Value

End

Sub