标签：03 VBA sht 删除 newShape Excel 键盘 Part 质量

系统：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

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

标签：03,VBA,sht,删除,newShape,Excel,键盘,Part,质量
来源： https://blog.csdn.net/zishendianxia/article/details/111780724

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。