【Excel VBA 基础编程】第16讲：VBA父子对象关系：掌握Excel自动化的核心密码

理解VBA中的父子对象关系，是掌握Excel自动化编程的关键一步。通过熟练运用对象层次结构和父子关系，可以编写出更加高效、灵活的VBA代码，真正发挥Excel自动化的强大威力

父对象与子对象

VBA通过清晰的父子层级结构和对象集合来管理所有对象，继而又引申出父对象与子对象的概念：

• 某个对象的上一层对象即为父对象，在VBA中使用Parent来表示父对象

• 子对象是指某个对象的下一层对象，而对于“子对象”，VBA中并没有一个统一的名为“Child”的属性来直接对应，我们通常通过对象的自然层级关系和集合来访问和管理子对象

访问父对象非常简单，通过Parent关键词即可，如

Range("A1").Parent.Name

当不确定对象的父对象时，Parent属性特别有用，尤其是在编写通用代码时

相比父对象，因为没有统一的名为“Child”的属性，所以访问子对象就稍微有点复杂，需要我们深入理解Excel对象之间像家族一样的层级关系

访问子对象

在VBA的对象模型里，子对象主要通过两种方式存在：

• 单一子对象：一个父对象可能直接包含一个特定的子对象。例如，一个 Worksheet（工作表）对象拥有一个 PageSetup（页面设置）子对象，用于控制打印设置

• 子对象集合：父对象包含一个集合，该集合管理着多个同类型的子对象。例如，Workbook（工作簿）对象通过 Worksheets 集合管理其所有的 Worksheet（工作表）对象；Worksheet 对象通过 Shapes 集合管理所有所有图形（包括图片、自选图形、文本框、图表对象等）

因此编码过程中访问子对象，必须遵循VBA的层次结构并通过“点（.）”操作符逐级访问。以下是常用的两种编码方式：

2.1通过集合访问特定子对象

通过索引号或名称来引用集合中的单个子对象

示例代码：设置Excel工作表的打印页面格式并预览效果

    Dim ws As Worksheet    Set ws = ThisWorkbook.Worksheets("Sheet1")    With ws.PageSetup        .Orientation = xlLandscape  ' 设置为横向打印        .PaperSize = xlPaperA4      ' 设置为A4纸        .CenterHeader = "2025年销售明细 &D" ' 居中页眉：文字+当前日期        .RightFooter = "第 &P 页，共 &N 页" ' 右下角页脚：页码/总页数    End With    ws.PrintPreview '预览

2.2遍历集合中的所有子对象

要对所有同类型子对象进行统一操作，可以使用 For Each...Next 循环结构

示例代码：

    Dim ws As Worksheet    Dim shp As Shape    Dim counter As Integer    Set ws = ThisWorkbook.Worksheets("Sheet1")    For Each shp In ws.Shapes        Debug.Print "图形名称: " & shp.Name; " 类型: " & shp.Type        counter = counter + 1    Next shp    MsgBox "已完成遍历！共处理了 " & counter & " 个图形对象。"

这段代码实现的主要功能如下：

• 遍历所有图形：循环访问指定工作表中的每一个图形对象

• 获取基本信息：读取并显示每个图形的名称和类型

• 统计数量：准确计算并报告工作表中包含的图形总数

这段代码是处理Excel图形对象的基础框架，我们还可以在此基础上添加更复杂的逻辑来实现具体的图形管理需求

结束语

友情提醒：虽然刚开始知识比较简单，但课程是一环紧扣一环，一定要按时学习，落下的课程及时补上，否则后续就很难跟上了

今天就分享到这里了，咱们下期继续！

公众号同时也在不间断地分享免费的编程案例，如果想学习更多的编程知识，无论是用来提升自动化办公效率还是想提升自我，都可以关注我的公众号“努力鸭是黑色的”，解锁更多的VBA技能