Попытайтесь получить значение ListBox из UserForm, но я получил следующую ошибку: Ошибка выполнения 13: несоответствие типов

1. Добавьте пользовательскую форму в файл Power Point.

2. Поместите CommandButton и ListBox в эту пользовательскую форму.

3. Поместите следующие коды в UserForm.

    Public Sub UserForm_Initialize()
        UserForm1.ListBox1.AddItem "msoShapePentagon"
        UserForm1.ListBox1.AddItem "msoShapeRectangle"
        UserForm1.ListBox1.AddItem "msoShapeSmileyFace"
    End Sub
   

   ''''''''''''''''''''''''''''''''

    Public Sub CommandButton1_Click()
        MsgBox UserForm1.ListBox1.Value
        UserForm1.Hide
        Call Macro2
    End Sub
   

4. Поместите следующие коды в файл Module1 файла Power Point.

     Public Sub Macro1()
         UserForm1.Show
     End Sub
   

   ''''''''''''''''''''''''''''''''

    Public Sub Macro2()
        ActivePresentation.Slides.Add 1, ppLayoutBlank
   
        Dim myVariant As Variant
        myVariant = UserForm1.ListBox1.Value
        MsgBox myVariant
   
        'This line is okey
        'ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, Left:=0, Top:=0, Width:=480, Height:=100
   
        'This line gives an error
        ActivePresentation.Slides(1).Shapes.AddShape Type:=myVariant, Left:=0, Top:=0, Width:=480, Height:=100
     End Sub
   

5. Запустите Macro1, затем выберите msoShapeRectangle из ListBox, который является частью UserForm, и нажмите CommandButton.

6. Это сообщение об ошибке.

    Run-time error 13: Type mismatch
   

7. Это строка ошибки

    ActivePresentation.Slides(1).Shapes.AddShape Type:=myVariant, Left:=0, Top:=0, Width:=480, Height:=100
   

Итак, как я могу решить эту ошибку?