vba - Powerpoint VBA - ExtractAssociatedIcon - エラー 424。必要なオブジェクト

Question

リストビュー コントロールを (Powerpoint の) スライドに挿入しました。

次のコードを使用して、すべてのファイルとフォルダー + アイコンを表示しようとしました。

Dim fso, objFolder, objFile, strTemp
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("c:\")
For Each objFile in objFolder.Files
    ImageList21.Images.Add Icon.ExtractAssociatedIcon(objFile.Name)
    ListView31.Items.Add objFile.Name, ImageList21.Images.Count - 1
Next

プロジェクトへの正しい参照を追加しましたが、次のエラーが発生します。 Run-time error 424. Object required.