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