用excel做流程图
发布网友
发布时间：2022-04-23 14:57
共3个回答
热心网友
时间：2022-05-13 04:20
一，首先打开Excel，点击插入SmartArt，择你需要使用的流程图形。
免费直播鉴定平台，珠宝翡翠源头厂家直销
广告
二，点击一下你选择的流程图形，就会出来SmartArt工具，点击“设计”然后选择一个你喜欢的格式，在图形中输入文本。
三，最后一步，点击“视图”找到“网格线”这个功能，去掉勾即可。
以上只是用Excel制作一些简单的流程图，接下来我忍不住要和大家分享一款制作流程图的好资源，叫做：迅捷流程图制作软件，因为它是一款专业的绘制流程图的软件，里面有许多模板打开就可以操作了。
好了，以上就是今天的分享了，如果大家有什么需要的请给我评论哦。
操作方法
01
如何用excel制作流程图教程。这里用excel画流程图而不用word，是因为word里面的文本框受到行距等页面设置项的*，不能随意的移动， 而excel则可以把图形放在任何你想要的位置。
02
首先，打开excel 软件，excel会自动创建一个电子表格。
03
单击“视图”菜单，依次选择“工具栏”/ “绘图”，之后excel的窗口会显示绘图工具栏。
软件上，绘图工具默认显示在窗口最下方。
04
单击“绘图工具栏”上的文本框工具：，在电子表格上的任意位置按下鼠标左键，拖拽出合适大小的文本框。
然后松开鼠标左键，出现如下文本框：
05
这时可以看到方框内的输入光标在闪动，输入文本。
06
在excel菜单栏上单击“格式”/ “文本框”。
跳出文本框设置菜单。
在各个选项卡上分别设置：文字大小，对齐方式，以及文本框的线型、粗细、颜色等属性。
热心网友
时间：2022-05-13 05:38
2. 单击“视图”菜单，依次选择“工具栏”/ “绘图”，之后excel的窗口会显示绘图工具栏软件上，绘图工具默认显示在窗口最下方。
3. 单击“绘图工具栏”上的文本框工具：，在电子表格上的任意位置按下鼠标左键，拖拽出合适大小的文本框。然后松开鼠标左键，出现如下文本框。
4. 这时可以看到方框内的输入光标在闪动，输入文本。
5. 在excel菜单栏上单击“格式”/ “文本框”，跳出文本框设置菜单。
6. 在各个选项卡上分别设置：文字大小，对齐方式，以及文本框的线型、粗细、颜色等属性。
热心网友
时间：2022-05-13 07:13
这样的制作就简单了多了。
下面通过代码来做一个简单流程图制作过程。

方法
打开界面，可以看到左侧是已经制作完成的一个示例。
其方法就是在右侧文本框内输入结构标签，单击制作按钮就自动添加进行了。
其实，这个功能还没有完全符合制作整个完整过程。
比如，如何删除，或插入一个标签。
考虑到其编码可能比较多，时间关系也就没有做。
不过，做一个简单过程还是可以完成的。
关键代码
AddShape(msoShapeRectangle, 150, 80, 150, 30)'添加矩形框
AddConnector(msoConnectorStraight, 100, 100, 150, 100)'添加菱形框
AddConnector(msoConnectorStraight, 100, 100, 150, 100).ConnectorFormat'创建一个连接符
掌握上面三条代码，就基本掌握了流程图形里面如何添加图形的基本操作了，具体方法，文后有代码可查看。

代码
顺序结构函数
Private Sub AddRectShape(m As Worksheet, FirstShape As Shape, Titels As String)
Dim s As Shapes, SecondShape As Shape, ShapeConn As Object
Dim sWidth As Integer, sHeight As Integer
sWidth = 150
sHeight = 30
Set s = Me.Shapes
Set SecondShape = s.AddShape(msoShapeRectangle,_
FirstShape.Left, sHeight + FirstShape.Top + FirstShape.Height, sWidth, sHeight)
With SecondShape.TextFrame
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
With .Characters
.Text = Titels
With .Font
.Size = 12
.Name = "微软雅黑"
End With
End With
End With
Set ShapeConn = s.AddConnector(msoConnectorStraight, 100, 100, 150, 100).ConnectorFormat
With ShapeConn
.BeginConnect connectedshape:=FirstShape, connectionsite:=3
.EndConnect connectedshape:=SecondShape, connectionsite:=1
End With
End Sub
分支结构函数
Private Sub AddDiamondShape(m As Worksheet, FirstShape As Shape, Titels As String)
Dim s As Shapes, SecondShape As Shape, ShapeConn As Object
Dim sWidth As Integer, sHeight As Integer
sWidth = 150
sHeight = 60
Set s = Me.Shapes
Set SecondShape = s.AddShape(msoShapeDiamond,_
FirstShape.Left, FirstShape.Top + sHeight, sWidth, sHeight)
With SecondShape.TextFrame
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
With .Characters
.Text = Titels
With .Font
.Size = 12
.Name = "微软雅黑"
End With
End With
End With
Set ShapeConn = s.AddConnector(msoConnectorStraight, 100, 100, 150, 100).ConnectorFormat
With ShapeConn
.BeginConnect connectedshape:=FirstShape, connectionsite:=3
.EndConnect connectedshape:=SecondShape, connectionsite:=1
End With
End Sub
热心网友
时间：2022-05-13 04:20
一，首先打开Excel，点击插入SmartArt，择你需要使用的流程图形。
免费直播鉴定平台，珠宝翡翠源头厂家直销
广告
二，点击一下你选择的流程图形，就会出来SmartArt工具，点击“设计”然后选择一个你喜欢的格式，在图形中输入文本。
三，最后一步，点击“视图”找到“网格线”这个功能，去掉勾即可。
以上只是用Excel制作一些简单的流程图，接下来我忍不住要和大家分享一款制作流程图的好资源，叫做：迅捷流程图制作软件，因为它是一款专业的绘制流程图的软件，里面有许多模板打开就可以操作了。
好了，以上就是今天的分享了，如果大家有什么需要的请给我评论哦。
操作方法
01
如何用excel制作流程图教程。这里用excel画流程图而不用word，是因为word里面的文本框受到行距等页面设置项的*，不能随意的移动， 而excel则可以把图形放在任何你想要的位置。
02
首先，打开excel 软件，excel会自动创建一个电子表格。
03
单击“视图”菜单，依次选择“工具栏”/ “绘图”，之后excel的窗口会显示绘图工具栏。
软件上，绘图工具默认显示在窗口最下方。
04
单击“绘图工具栏”上的文本框工具：，在电子表格上的任意位置按下鼠标左键，拖拽出合适大小的文本框。
然后松开鼠标左键，出现如下文本框：
05
这时可以看到方框内的输入光标在闪动，输入文本。
06
在excel菜单栏上单击“格式”/ “文本框”。
跳出文本框设置菜单。
在各个选项卡上分别设置：文字大小，对齐方式，以及文本框的线型、粗细、颜色等属性。
热心网友
时间：2022-05-13 05:38
2. 单击“视图”菜单，依次选择“工具栏”/ “绘图”，之后excel的窗口会显示绘图工具栏软件上，绘图工具默认显示在窗口最下方。
3. 单击“绘图工具栏”上的文本框工具：，在电子表格上的任意位置按下鼠标左键，拖拽出合适大小的文本框。然后松开鼠标左键，出现如下文本框。
4. 这时可以看到方框内的输入光标在闪动，输入文本。
5. 在excel菜单栏上单击“格式”/ “文本框”，跳出文本框设置菜单。
6. 在各个选项卡上分别设置：文字大小，对齐方式，以及文本框的线型、粗细、颜色等属性。
热心网友
时间：2022-05-13 07:13
这样的制作就简单了多了。
下面通过代码来做一个简单流程图制作过程。

方法
打开界面，可以看到左侧是已经制作完成的一个示例。
其方法就是在右侧文本框内输入结构标签，单击制作按钮就自动添加进行了。
其实，这个功能还没有完全符合制作整个完整过程。
比如，如何删除，或插入一个标签。
考虑到其编码可能比较多，时间关系也就没有做。
不过，做一个简单过程还是可以完成的。
关键代码
AddShape(msoShapeRectangle, 150, 80, 150, 30)'添加矩形框
AddConnector(msoConnectorStraight, 100, 100, 150, 100)'添加菱形框
AddConnector(msoConnectorStraight, 100, 100, 150, 100).ConnectorFormat'创建一个连接符
掌握上面三条代码，就基本掌握了流程图形里面如何添加图形的基本操作了，具体方法，文后有代码可查看。

代码
顺序结构函数
Private Sub AddRectShape(m As Worksheet, FirstShape As Shape, Titels As String)
Dim s As Shapes, SecondShape As Shape, ShapeConn As Object
Dim sWidth As Integer, sHeight As Integer
sWidth = 150
sHeight = 30
Set s = Me.Shapes
Set SecondShape = s.AddShape(msoShapeRectangle,_
FirstShape.Left, sHeight + FirstShape.Top + FirstShape.Height, sWidth, sHeight)
With SecondShape.TextFrame
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
With .Characters
.Text = Titels
With .Font
.Size = 12
.Name = "微软雅黑"
End With
End With
End With
Set ShapeConn = s.AddConnector(msoConnectorStraight, 100, 100, 150, 100).ConnectorFormat
With ShapeConn
.BeginConnect connectedshape:=FirstShape, connectionsite:=3
.EndConnect connectedshape:=SecondShape, connectionsite:=1
End With
End Sub
分支结构函数
Private Sub AddDiamondShape(m As Worksheet, FirstShape As Shape, Titels As String)
Dim s As Shapes, SecondShape As Shape, ShapeConn As Object
Dim sWidth As Integer, sHeight As Integer
sWidth = 150
sHeight = 60
Set s = Me.Shapes
Set SecondShape = s.AddShape(msoShapeDiamond,_
FirstShape.Left, FirstShape.Top + sHeight, sWidth, sHeight)
With SecondShape.TextFrame
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
With .Characters
.Text = Titels
With .Font
.Size = 12
.Name = "微软雅黑"
End With
End With
End With
Set ShapeConn = s.AddConnector(msoConnectorStraight, 100, 100, 150, 100).ConnectorFormat
With ShapeConn
.BeginConnect connectedshape:=FirstShape, connectionsite:=3
.EndConnect connectedshape:=SecondShape, connectionsite:=1
End With
End Sub
