problema para cambiar .Caption

1 post / 0 nuevos
Vyrtim
Imagen de Vyrtim
Offline
última acción: Hace 1 mes 1 semana
Nivel 1 - 200 puntos
alta: 13/07/2016 - 09:18
Puntos: 270
problema para cambiar .Caption

Muy buenas,

estoy trabajando en una macro que me genere automáticamente un conjunto de checkbox. Los crea y los posiciona correctamente, pero a la hora de renombrar el Caption de los Checkbox me salta el siguiente error: "El objeto no admite esta propieda o método". ¿Alguna idea de qué puede estar pasando? Gracias de antemano.

Dejo aqui el código:

 

Private Sub carga_checkbox()

    Dim columna As Integer

    Dim columna_fin As Integer

    Dim fila As Integer

    Dim posV As Integer

    Dim mycheckbox As Object

    fila = 13

    columna = 17

    columna_fin = 31

    posV = 17

    While Hoja1.Cells(fila, columna) <> "" And columna <= columna_fin

        Set mycheckbox = Hoja1.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False, Left:=600, Top:=posV, Width:=25, Height:=15)

        With mycheckbox

            .Caption = "HOLA"

        End With

        columna = columna + 1

        posV = posV + 17

    Wend

End Sub