如何将下面的模块代码转换为工作表代码? 谢谢!

7788≠9

Sub 自动插入图片()
Dim sht As Worksheet, rng As Range, str As String
For Each sht In Worksheets
With sht
For Each rng In Application.Intersect(.UsedRange, .UsedRange.Offset(0, 1))
If Len(rng) Then
str = ThisWorkbook.Path & "\Pic\" & rng.Value & IIf(Right(rng.Value, 1) = ".", "", ".") & "png"
If Dir(str) <> "" Then
.Shapes.AddPicture str, 1, 1, rng.Left, rng.Top, rng.Width, rng.Height
End If
End If
Next rng
End With
Next sht
End Sub