Início / coding / Perguntas / 78300701
Accepted
Danny Coleiro
Asked: 2024-04-10 03:27:35 +0800 CST

Tentei obter o valor ListBox do UserForm, mas recebi este erro: Erro em tempo de execução 13: incompatibilidade de tipo

  • 772

  1. Adicione um UserForm ao arquivo Power Point.

  2. Coloque um CommandButton e um ListBox nesse UserForm .

  3. Coloque os seguintes códigos no 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. Coloque os seguintes códigos no Módulo1 do arquivo 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. Execute Macro1 e selecione msoShapeRectangle em ListBox que faz parte do UserForm e pressione CommandButton .

  6. Esta é a mensagem de erro.

     Run-time error 13: Type mismatch

  7. Esta é a linha de erro

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

Então, como posso resolver esse erro?

vba

1 respostas

  1. Best Answer

    "msoShapePentagon", a String, não é o mesmo que msoShapePentagon, um membro de um enum com um valor correspondente de 51.

    Uma opção é uma função para converter a Stringrepresentação no equivalente do enum:

    Private Function ShapeType(s As String) As MsoAutoShapeType
    Dim result As MsoAutoShapeType
    
    Select Case s
        Case "msoShapePentagon"
            result = msoShapePentagon
        Case "msoShapeRectangle"
            result = msoShapeRectangle
        Case "msoShapeSmileyFace"
            result = msoShapeSmileyFace
    End Select
    
    ShapeType = result
End Function

    Observe que você precisa passar esta função a String, não a Variant.

    • 2

relate perguntas