系统：Windows 7
软件：Excel 2016

• 本系列是假设一种应用场景，键盘质量检查中，发现问题，如何在键盘图片上进行标记和后续的跟踪管理
• 其实也同样适用在其它应用场景，尤其与位置相关的质量特性管理上
• 核心知识点：在背景图片特定位置插入一个圆圈（表示问题点），并对圆圈进行进行颜色等特性的改变

Part 1： 项目基本介绍

1. 假设键盘的检查质量特性有：尺寸，颜色2种质量特性
2. 每次对生产的键盘进行质量特性检查时，将具体问题在键盘图片上进行位置标记
   • 尺寸质量问题，使用圆形标记
   • 颜色质量问题，使用矩形进行标记
   • 红色表示不达标；绿色表示已达标
3. 效果类似下图，随着文章的撰写，可能也会添加一些新的需求，欢迎读者提供有意思的想法

键盘图片（仅做示意，并不表示真有质量问题；如有侵权请联系我）

Part 2： 删除小圆圈

1. 对于上一篇的文章生成的小圆圈，可以理解为质量问题的区域
2. 录入问题可能会录错了，需要删除

动图

Part 3：代码

Sub deleteRed()
    Set sht = ThisWorkbook.Worksheets("测试")
    shapeName = sht.Cells(2, "F").Value
    Set newShape = sht.Shapes.Range(Array(shapeName))
    newShape.Delete
End Sub

代码截图

删除图形

Part 4： 部分代码说明

1. Set newShape = sht.Shapes.Range(Array(shapeName))先获取该圆形对象
2. newShape.Delete删除该图形

---

• 更多学习交流，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号