PPT自动生成鱼骨图模板制作教程（如何从ppt中制作鱼骨图的框架）
摘要：
在制作PPT时，鱼骨图是一种常用的图表，用于分析和展示问题的原因和影响因素。自动生成鱼骨图模板可以大大提高工作效率。以下是一个简单的PPT自动生成鱼骨图模板的制作教程：###准备工... 在制作PPT时，鱼骨图是一种常用的图表，用于分析和展示问题的原因和影响因素。自动生成鱼骨图模板可以大大提高工作效率。以下是一个简单的PPT自动生成鱼骨图模板的制作教程：
### 准备工作
1. **选择PPT软件**：确保你使用的PPT软件支持宏和VBA（如Microsoft PowerPoint）。
2. **创建鱼骨图基础框架**：手动在PPT中绘制一个鱼骨图的基础框架，包括主骨、分支和末端。
### 步骤一：编写VBA代码
1. **打开VBA编辑器**：在PPT中，按下`Alt F11`打开VBA编辑器。
2. **创建模块**：在“插入”菜单中选择“模块”，在打开的窗口中粘贴以下代码：
```vba
Sub GenerateFishBone()
Dim shp As Shape
Dim i As Integer
Dim title As String
Dim cause1 As String
Dim cause2 As String
Dim cause3 As String
' 设置鱼骨图的和原因
title = "问题分析"
cause1 = "主要问题"
cause2 = "直接原因"
cause3 = "根本原因"
' 清除已有的鱼骨图元素
For Each shp In ActiveWindow.Pane.Viewshapes
If shp.TextFrame.TextRange.Text Like "*问题分析*" Then
shp.Delete
End If
Next shp
' 添加
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeRectangle, 100, 100, 300, 50)
shp.TextFrame.TextRange.Text = title
' 添加主骨
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeLine, 200, 150, 200, 150)
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeRectangle, 200, 150, 400, 150)
shp.TextFrame.TextRange.Text = cause1
' 添加分支
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeLine, 200, 200, 150, 200)
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeRectangle, 150, 200, 300, 200)
shp.TextFrame.TextRange.Text = cause2
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeLine, 200, 200, 250, 200)
Set shp = ActiveWindow.Pane.Viewshapes.AddShape(msoShapeRectangle, 250, 200, 350, 200)
shp.TextFrame.TextRange.Text = cause3
' 调整形状大小和位置
For Each shp In ActiveWindow.Pane.Viewshapes
With shp
.Height = 50
.Width = 300
.Top = shp.Top - 25
.Left = shp.Left - 25
End With
Next shp
End Sub
```
### 步骤二：保存并运行代码
1. **保存文件**：关闭VBA编辑器并保存你的PPT文件。
2. **运行宏**：在PPT中，按下`Alt F8`，选择`GenerateFishBone`宏，然后点击“运行”。
### 步骤三：自定义模板
根据需要，你可以进一步修改VBA代码，添加更多的分支、调整形状的样式和位置，甚至添加动态内容填充功能。
通过以上步骤，你就可以制作一个简单的PPT自动生成鱼骨图模板了。这样，每次需要创建鱼骨图时，你只需运行这个宏，就能快速生成一个格式统一的鱼骨图。
