Powerpoint Visual Basic код не работает

Question

Недавно я использовал много макро визуальных баз в моей PowerPoint. Все работало нормально, а затем мне нужно было добавить заявление Try и Catch. Казалось, это не сработало, но я подумал, что, возможно, это изменилось в более новых версиях. Теперь, пытаясь сделать словарь в Visual Basic с помощью PowerPoint, произошло то же самое. Это не сработало, и текст был красным.

Это код для словаря:

Dim test As New Dictionary(Of String, Integer) 
test.Add("1", 1) 

Есть в любом случае добавления словарей к нему при использовании PowerPoint? или этот код неправильный? То же самое с утверждениями try и catch?

Answer 1

Необходимо указать ссылку на System.Collections.Generic.

В верхней части кода добавьте:

Imports System.Collections.Generic 

Answer 2

Вы очень неясными на конечный результат, но попробовать что-то вроде этого.

Sub test() 
On Error Goto Handler 
    Dim test AS New Collection 
    test.Add "1", "27" 
    test.Add 15, "Monkeys" 
    Exit Sub 
Handler: 
    Msgbox "Error Number: " & Err & " Occurred. Its message text is: " & Error(Err) 
End Sub 

VBA Нет Try и Catch вы должны обработать все ошибки с On Error GoTo, то вы можете обрабатывать ошибки по количеству ошибок. See Here

Также примечание Я использовал Collection, который использует структуру Item и Key. Не уверен, что вы собираетесь с этим, но вы можете получить предметы по Key в Collection, что может быть и для вас. например

test.Item(1) 'will return "1" by index 
test.Item("27") 'will return "1" by key 
test.Item(2) ' will return 15 by index 
test.Item("Monkeys") 'will return 15 by key