EXCEL中图片处理PrivateSubWorksheetChangeByValTargetAsRangeOnErrorResumeNextIfTargetColumn1AndTarget<>""ThenDimMPICAsShapeForEachMPICInActiveSheetShapesIfMPICTopLeftCellOffset01AddressTargetAddressThenMPICDeleteEndIfNextMPICSetMRGTargetO