Excel-VBA-质量问题可视化管理-12-生成线段

系统：Windows 10
软件：Excel 2016

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

Part 1： 项目功能介绍（更新）

1. 上一个部分的功能已经实现，重复的部分不再赘述
2. 接下来的几篇文章说一个延伸功能。之前的文章中，1个问题只有一个形状来表征，或者圆形或者矩形。当一个问题需要几个形状的时候，怎么办？例如用两条线段表征一个楔形区域。这一部分涉及功能如下
   • 多形状定义一个问题
   • 删除问题
   • 查询问题

Part 2： 拟实现功能描述

1. 本次拟实现功能：自动生成线段

结果

Part 3：代码

Sub 生成线段()
    Set sht = ThisWorkbook.Worksheets("测试")
    ' 线段1
    Set newLine = sht.Shapes.AddConnector(msoConnectorStraight, 120, 100, 300, 400)
    lineName = newLine.Name
    Debug.Print ("线段1")
    Debug.Print (lineName)
    Debug.Print (Chr(10))

    ' 线段2
    Set newLine = sht.Shapes.AddConnector(msoConnectorStraight, 120, 200, 300, 400)
    lineName = newLine.Name
    Debug.Print ("线段2")
    Debug.Print (lineName)
    Debug.Print (Chr(10))

    ' 线段3
    Set newLine = sht.Shapes.AddConnector(msoConnectorStraight, 120, 300, 300, 400)
    lineName = newLine.Name
    Debug.Print ("线段3")
    Debug.Print (lineName)
    Debug.Print (Chr(10))


    ' 线段4
    Set newLine = sht.Shapes.AddConnector(msoConnectorStraight, 250, 300, 300, 400)
    lineName = newLine.Name
    Debug.Print ("线段4")
    Debug.Print (lineName)

End Sub

代码截图

代码执行结果

Part 4：部分代码解读

1. Set newLine = sht.Shapes.AddConnector(msoConnectorStraight, 120, 100, 300, 400)

• 核心功能AddConnector（type、 BeginX、 BeginY、 EndX， EndY）
• 其中type，表示形状类型，msoConnectorStraight表针为直线型的，更多形状见下图
• 一个线段由两个点构成，其中BeginX、 BeginY表示起点的X和Y坐标，EndX， EndY表示终点的X和Y坐标

2. 从以上示例可以看出，在Excel界面中X轴和Y轴的方向，X轴正向向右，Y轴正向向下

坐标轴方向

type类型

---

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

---

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