基于VBA实现电缆结构自动出图(一) —— 自动出圆形

本文链接：https://blog.csdn.net/Crazydoubao/article/details/128308357

大家敢相信吗，原来VBA竟然可以实现电缆结构自动出图，换句话说，只要输入数据，VBA会自动将电缆的结构画出来，同时还可以渲染，结果竟然不输画图软件，真真让我刮目相看。这里我就不过多介绍VBA了，相信用过office软件的小伙伴都或多或少的接触过VBA，好的，话不多说，上干货。

因为这一次的文章涉及的情况比较复杂，正如电缆结构也分很多种，考虑到这也是一次教学，我把文章拆成的几部分，便于大家充分学习和实践。

首先新建Excel文档，编辑你喜欢的名字，注意文档的后缀为“.xlsm”，这是为后面使用VBA做准备。

打开该文档，最后实现的界面如下：

输入圆的个数和圆的外径就可以实现自动出圆形。

备注：1.对于圆的个数的输入框建立“数据验证”，双重保护避免出现低于0的数字，更好的防错机制。 2. 界面中每个输入框建立了条件格式，其目的避免出现低于0的数字。

实现的代码如下：

Sub Drawcable()
If ActiveSheet.Shapes.Count > 0 Then

ActiveSheet.Shapes.SelectAll
     Selection.Delete
End If

Dim i, Cn, X, Y As Integer
Dim cable() As Shape
Dim coe As Variant
Dim cable_index() As String
Cn = Sheet1.Range("D3").Value
C1 = Sheet1.Range("D3").Value
Pi = Application.Pi()
coe = 50
id = Sheet1.Range("D4").Value * coe
X = 250
Y = 300

ReDim cable(Cn)
ReDim cable_index(Cn)
For i = 1 To C1
      Set cable(i) = Sheet1.Shapes.AddShape(msoShapeOval, X, Y, id, id)
      cable_index(i) = cable(i).Name
        cable(i).Select
      With Selection.ShapeRange
         With .Fill
        .Visible = msoTrue
        .ForeColor.SchemeColor = 13
         End With
         With .Line
        .Weight = 0.5
        .ForeColor.SchemeColor = 64
         End With
      End With
    Next
End Sub

代码段：

1. Shapes.AddShape(msoShapeOval, x, y, w, h)'画出一个圆形

解释：worksheet对象msoShapeOval：圆形标识符，这个是微软定死的，就这么用就对了x：圆形左位置，y：圆形上位置，w：圆形宽，h：圆形高

2. 常量coe可以更改，以便调整大小

3. ForeColor.ShemeColor为颜色，等于号后面的数字为颜色索引号，大家可在搜索中输入"颜色索引"，一看就懂。