如何在PowerPoint应用程序中查找Dictionary字典的最大值？

PowerPoint VBA没有内置的Application.Max或WorksheetFunction.Max可以直接处理字典的Items集合，以下是两种可行的解决方案：

方法1：手动遍历字典项获取最大值 #

纯VBA实现，无需依赖外部应用，兼容性强：

Sub FindDictMax_PPT()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 填充字典示例数据
    Dim i As Integer
    For i = 1 To 10
        dict.Add Key:=i, Item:=i * 2 ' 值为2、4...20
    Next i
    
    Dim maxVal As Variant
    Dim item As Variant
    
    If dict.Count > 0 Then
        ' 初始化最大值为第一个元素
        maxVal = dict.Items()(0)
        ' 遍历所有项更新最大值
        For Each item In dict.Items
            If item > maxVal Then
                maxVal = item
            End If
        Next item
        
        Debug.Print "字典最大值：" & maxVal ' 输出20
    Else
        Debug.Print "字典为空"
    End If
End Sub

方法2：借助Excel的WorksheetFunction.Max #

如果允许依赖Excel应用，可以通过以下两种方式调用Max函数：

方式2.1：后台创建Excel实例（无需提前引用） #

Sub FindDictMax_UsingExcel()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 填充字典示例数据
    Dim i As Integer
    For i = 1 To 10
        dict.Add Key:=i, Item:=i * 3 ' 值为3、6...30
    Next i
    
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False ' 后台运行不显示窗口
    
    Debug.Print "字典最大值：" & excelApp.WorksheetFunction.Max(dict.Items) ' 输出30
    
    ' 清理资源，避免残留Excel进程
    excelApp.Quit
    Set excelApp = Nothing
End Sub

方式2.2：提前引用Excel对象库 #

1. 打开PowerPoint VBA编辑器（Alt+F11）
2. 点击【工具】→【引用】，勾选Microsoft Excel XX.X Object Library（XX.X对应Excel版本）
3. 直接调用Excel的函数：

Sub FindDictMax_WithReference()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 填充字典示例数据
    Dim i As Integer
    For i = 1 To 10
        dict.Add Key:=i, Item:=i + 5 ' 值为6、7...15
    Next i
    
    Debug.Print "字典最大值：" & Excel.WorksheetFunction.Max(dict.Items) ' 输出15
End Sub

内容的提问来源于stack exchange，提问作者Danny Coleiro