excel结构图怎么添加下级

在Excel中添加下级结构图的方法有几种：使用插入形状、使用智能图形（SmartArt）、使用VBA宏。

在本文中，我将详细介绍如何使用智能图形（SmartArt）来添加下级结构图。SmartArt是一种便捷的工具，能够帮助用户快速创建层级结构图，且易于修改和更新。

一、使用智能图形（SmartArt）

1.1、插入SmartArt图形

在Excel中，SmartArt是一种非常强大的工具，可以帮助我们轻松创建各种结构图，包括层级结构图。首先，打开Excel工作表，然后执行以下步骤：

点击Excel顶部菜单栏中的“插入”选项卡。
在插入选项卡中，找到并点击“SmartArt”按钮。
在弹出的“选择SmartArt图形”对话框中，选择“层次结构”类别。该类别下有多种层级结构图可以选择。选择一个适合你的图形，然后点击“确定”。

1.2、添加和编辑文本

现在你已经插入了一个SmartArt图形，接下来你需要添加和编辑图形中的文本：

点击SmartArt图形中的占位符文本框，然后输入你需要的文本。例如，在根节点输入“公司”，在下级节点输入“部门A”、“部门B”等。
如果需要添加更多的下级节点，可以点击SmartArt图形右侧的文本窗格，然后按回车键添加新的文本框。

1.3、添加下级节点

要为某个节点添加下级节点，可以使用以下方法：

选中你希望添加下级节点的文本框。
在SmartArt工具的“设计”选项卡中，找到“添加形状”按钮。
点击“添加形状”按钮旁边的小箭头，然后选择“在下方添加形状”。这样就会在选中节点的下方添加一个新的下级节点。

1.4、调整图形布局

你可以根据需要调整SmartArt图形的布局和样式：

在SmartArt工具的“设计”选项卡中，可以选择不同的布局和样式，以便更好地展示你的结构图。
还可以通过拖动节点来调整图形的布局，使其更加符合你的需求。

二、使用插入形状手动创建结构图

如果你需要更高的自定义灵活性，可以选择手动插入形状来创建结构图。这种方法适用于需要复杂布局和样式的情况。

2.1、插入形状

点击Excel顶部菜单栏中的“插入”选项卡。
在插入选项卡中，找到并点击“形状”按钮。
从下拉菜单中选择你需要的形状，例如矩形、椭圆形等。然后在工作表中绘制该形状。

2.2、添加文本和连接线

选中你绘制的形状，然后右键点击，选择“添加文本”。输入你需要的文本内容。
通过重复插入形状的方法，创建更多的节点。
使用“插入”选项卡中的“形状”按钮，选择“连接线”，然后将不同的节点连接起来。你可以选择不同类型的连接线，例如直线、曲线等。

2.3、调整布局和样式

通过拖动形状和连接线，调整结构图的布局。
右键点击形状或连接线，选择“设置形状格式”，然后根据需要调整其样式，例如颜色、线条粗细等。

三、使用VBA宏自动生成结构图

如果你需要生成大规模的结构图，可以考虑使用VBA宏来自动化这个过程。VBA（Visual Basic for Applications）是一种强大的编程工具，能够帮助你在Excel中执行复杂的任务。

3.1、启用开发工具选项卡

在使用VBA宏之前，你需要启用Excel中的开发工具选项卡：

点击Excel顶部菜单栏中的“文件”选项卡。
选择“选项”。
在弹出的“Excel选项”对话框中，选择“自定义功能区”。
在右侧的“主选项卡”列表中，勾选“开发工具”选项，然后点击“确定”。

3.2、编写VBA宏代码

点击“开发工具”选项卡，然后点击“Visual Basic”按钮，打开VBA编辑器。
在VBA编辑器中，插入一个新的模块（点击“插入”菜单，然后选择“模块”）。
在模块中编写VBA代码，自动生成结构图。例如：

Sub CreateOrgChart()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim startX As Single, startY As Single
    Dim deltaX As Single, deltaY As Single
    Set ws = ActiveSheet
    startX = 100
    startY = 50
    deltaX = 150
    deltaY = 100
    ' 创建根节点
    Set shp = ws.Shapes.AddShape(msoShapeRectangle, startX, startY, 100, 50)
    shp.TextFrame.Characters.Text = "公司"
    ' 创建下级节点
    Set shp = ws.Shapes.AddShape(msoShapeRectangle, startX - deltaX, startY + deltaY, 100, 50)
    shp.TextFrame.Characters.Text = "部门A"
    Set shp = ws.Shapes.AddShape(msoShapeRectangle, startX + deltaX, startY + deltaY, 100, 50)
    shp.TextFrame.Characters.Text = "部门B"
    ' 连接节点
    ws.Shapes.AddConnector(msoConnectorStraight, startX + 50, startY + 50, startX - deltaX + 50, startY + deltaY).ConnectorFormat.BeginConnect ws.Shapes(1), 2
    ws.Shapes.AddConnector(msoConnectorStraight, startX + 50, startY + 50, startX + deltaX + 50, startY + deltaY).ConnectorFormat.BeginConnect ws.Shapes(1), 2
End Sub

关闭VBA编辑器，回到Excel工作表。

3.3、运行VBA宏

在“开发工具”选项卡中，点击“宏”按钮。
在弹出的“宏”对话框中，选择你刚才编写的宏名称（例如CreateOrgChart），然后点击“运行”按钮。
Excel会自动生成结构图，并添加相应的节点和连接线。

四、总结

通过本文的介绍，我们详细讨论了在Excel中添加下级结构图的三种方法：使用智能图形（SmartArt）、手动插入形状、使用VBA宏。这些方法各有优缺点，适用于不同的场景和需求。

智能图形（SmartArt）：适用于快速创建和修改结构图，操作简单，适合大部分用户。
手动插入形状：适用于需要高自定义灵活性的场景，可以自由调整形状和连接线的布局和样式。
使用VBA宏：适用于需要生成大规模结构图的场景，可以自动化生成和修改图形，适合高级用户和开发人员。

希望通过本文的介绍，能够帮助你在Excel中更加高效地添加下级结构图。如果你有任何问题或需要进一步的帮助，欢迎随时联系我。