Delete specified image with Excel VBA

Question

Continuing the operation raised in this issue:

Copying image between the sheets with instant resizing & adjusting

Now I would like to set an automatic on-click delete option for these newly copied images.

I have written the simple macro for this purpose:

  Sub Signature_remove()
  '
  ' Signature_remove Macro
  '


   ActiveSheet.Shapes.Range(Array("Picture 49")).Select
   Selection.Delete
   Sheets("BoQ Civils").Select
   ActiveSheet.Shapes.Range(Array("Picture 72")).Select
   Selection.Delete
 End Sub

because it applies to 2 sheets. Unfortunately it wasn't wise idea, because it returns the pictures ID in array, that are going to change as the process repeats. In turn I cannot really use the

          Sheets("BoQ Civils").Shapes(Sheets("BoQ Civils").Shapes.Count)

because I am afraid, that all images placed in this sheet will be removed.

Is there any solution to delete these images quickly?

Michał Turczyn · Accepted Answer · 2020-01-29 09:27:20Z

2

Let me break this down:

Sheets("BoQ Civils").Shapes(Sheets("BoQ Civils").Shapes.Count)

Sheets("BoQ Civils").Shapes.Count will return number of images (shapes in general) you have in sheet BoQ Civils, so Sheets("BoQ Civils").Shapes(Sheets("BoQ Civils").Shapes.Count) will return image with the last index, so image, which was added last.

In turn, you are safe - you don't want delete all pictures in sheet, just the last one.

And this is what you after, from what I understand.

edited Jan 29, 2020 at 9:27

answered Jan 28, 2020 at 15:33

Michał Turczyn

41.2k18 gold badges58 silver badges87 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Delete specified image with Excel VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related