Private Sub Worksheet_Calculate()
Dim oPic As Picture
Dim myCell As Range
Dim myRng As Range

Me.Pictures.Visible = False

Set myRng = Me.Range("a1,a3")

For Each myCell In myRng.Cells
With myCell
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
Next myCell
End Sub

i currently has this macro.
is there a way to set all my picture size and fix it??

and when i copy everything to a new sheet, some picture seem to be gone.??
any idea what happen?