Insert Picture after deleting previous

[mds33031]

Hello,

I have a workbook that completes all forms needed for a client. The first sheet is where all my DATA is entered. On that first sheet, I paste a photo and it transfers it to multiple sheets. However When a new photo is added I need it to delete the previous photo. I am stuck and could use some help.

This is the VBA I am using to copy paste the picture to the other sheets.

Thanks in advance!

Sub CopyPic_FOW()
Dim pic As Shape, rng As Range, Lt As Double, Tp As Double
Application.ScreenUpdating = False
For Each pic In ActiveSheet.Shapes
If pic.Type = msoPicture Then
Lt = 460
Tp = 490
pic.Copy
With Sheets("FOW")
.Select
.Range(pic.TopLeftCell.Address).Select
.Paste
Selection.Top = Tp
Selection.Left = Lt
End With
Selection.Placement = xlMoveAndSize
End If
Next pic
Application.ScreenUpdating = True
Sheets("Data Entry").Select
Range("B2").Select
End Sub

 

[Perpa]

However When a new photo is added I need it to delete the previous photo. I am stuck and could use some help.

mds330131,
Welcome to the forum.
You didn't say how you paste the new photo to the 'first sheet', but before you paste the new photo to the active sheet, use this code to remove any existing photos on the active sheet:

Sub Remove_Shapes()
'>>The following will remove exisiting shapes on Sheet1
Dim sh As Shape
    For Each sh In Sheets("Sheet1").Shapes   'Change 'Sheet1' to your sheet name, or to  'ActiveSheet.Shapes'
       sh.Delete
    Next sh
 End Sub

Then you can add your new photo as before and continue with the rest of your code.
Perpa