Я пытаюсь создать надстройку для PowerPoint, которая позволяет пользователю выбрать каталог в раскрывающемся списке, а затем получить список слайдов PowerPoint с миниатюрами, отображаемыми в форме списка. Затем пользователь должен иметь возможность выбрать миниатюру и добавить слайды в текущую презентацию, над которой он работает. (что-то вроде доступа к личной библиотеке слайдов прямо из Power Point).
У меня есть общий код для заполнения списка. Но получите TypeError, которую я не знаю, как исправить.
Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s As String
Dim folderspec As String
folderspec = "U:\PowerPointFiles\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
ComboBox1.Clear
For Each f1 In fc
ComboBox1.AddItem f1.Name
Next f1
'ComboBox1.Activate --> doesnt' work
'Application.SendKeys "^{F4}" --> doesnt' work
End Sub
Private Sub ComboBox1_Change()
Dim fs, f, f1, MyFiles, s As String
Dim MyFolder As String
MyFolder = "U:\Methoden\power point trials\Addin Projekte\Slide Library Addin\" & ComboBox1
MyFiles = Dir(MyFolder & "\*.pptx")
ListView1.ListItems.Clear
Do While MyFiles <> ""
ListView1.ListItems.Add (MyFiles) --> Type mismatch
MyFiles = Dir
Loop
End Sub
Результатом должен быть список файлов .ppt в ListView, включая ссылки. Из этого мне нужно создать код для добавления миниатюр.
