VB for the report cover electronic stamp

The lower right corner of the figure is the electronic stamp, the VB code is as follows:

Dim SHP as Object
Dim Dztz as String

Dztz = Thisworkbook.path & "\" & "Ywtjtz. JPG "
If Dir (Dztz) = "Then
The MsgBox "Directory has no electronic stamp. ", vbinformation," hint "
End If

Set shp = ActiveSheet.Pictures.Insert (Dztz)
With SHP
. left = Activecell.left + Int ((activecell.width-40)/2)
. Top = Activecell.top + Int ((activecell.height-40)/2)
. Height = 40
. Width = 40
End with
Set shp = Nothing

VB for the report cover electronic stamp