以下代码在Excel中可以正常运行。
但我正在寻找Power Point解决方案。
如何在Power Point应用程序中查找字典中的最大值?
Sub Macro1()
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
For i = 1 To 10
dict.Add Key:=i, Item:=i
Next i
For i = 0 To dict.Count - 1
Debug.Print dict.Keys()(i), dict.Items()(i)
Next i
'The following two lines works properly in Excel.
'But I am looking for Power Point solution.
Debug.Print Application.Max(dict.Items)
Debug.Print WorksheetFunction.Max(dict.Items)
End Sub
在 Excel-VBA 中,
WorksheetFunction
是访问Excel提供的函数(而非 VBA)的一种方法。Powerpoint中没有这样的功能。因此,最好的选择是循环遍历字典的所有条目:
这将在 Powerpoint 中起作用:
您必须检查循环内的最大值。
设置对 Microsoft Excel 14.0/16.0 对象库的引用,之后所有 WorksheetFunction 函数都可用。