Dear all,
I am facing an interesting issue.
Let me explain how this issue came.
I have a workbook with some 20 sheets with around 50 check points each, to be validated over an image and i have a macro to insert 'n' number images in 'm'(=20) of sheets in sequence to carryout this self check (if n<20, macro deletes rest of the sheets.)
I have developed this macro in such a way, that if any image is inserted using this macro, all the 50 check points will reset (Just to make sure everyone validates without any shortcuts).
As a loop hole, user started using 'Snipping Tool' to key-in image manually where Check points are already validated.
So to avoid this, i modified this macro to re-name(Selection.Name = "ABC") each image with specific name and initiated a validation on "Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)" to make sure each sheet has a image keyed-in using macro (Just FYI, if snipped tool is used, picture name will be obviously different. If my validation macro didnt find this picture name (Sh.Pictures(1).Name <> "ABC"), it resets all the fields again..:D)
I hope i clear till now with my entire process.
NOW here is the main problem
There is one more loop identified recently. If user right clicks on any image file, on the menu he gets a option of "Change Picture". If he replaces existing image using this method, to my bad luck, picture name remain the same (="ABC")..
What i am looking for..?
I need such an attribute for picture file (similar to '.Name'), that i can change while inserting while inserting images using macro, but must NOT CHANGE if image is replaced using "Change Picture" option from right click menu..?
Please suggest.
PS: Each sheet has only one picture file but has many rectangle shapes as check points. So Shapes attribute may not applicable for Pictures.
Bookmarks