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自动生成鱼骨图模板了。这样，每次需要创建鱼骨图时，你只需运行这个宏，就能快速生成一个格式统一的鱼骨图。

爱搜（www.esoua.com）-专业网盘资源搜索引擎，专注于收录全网云盘资源，支持百度网盘、阿里云盘、夸克云盘、迅雷云盘等网盘资源的全文检索。
实时更新，海量资源。您想要的这里都有！