Estoy intentando realizar un UserForm que cumpliría con la función de cronometro. Pero al pulsar cualquier botón del crono me aparece el mensaje de error siguiente:
"Error en tiempo de ejecución de BASIC
Se ha producido una excepción
Type:com.sun.star.container.NoSuchElementException
Message:."
La línea implicada es:
buttonStart = form.GetByName("PushButtonStart")
Código: Seleccionar todo
Sub reInit()
doc0 = ThisComponent
fa = CreateUnoService("com.sun.star.sheet.FunctionAccess")
sheet = doc0.Sheets(0)
form = sheet.DrawPage.Forms(0)
buttonStart = form.GetByName("PushButtonStart")
buttonStart.enableVisible = True
buttonPause = form.GetByName("PushButtonPause")
buttonPause.enableVisible = False
buttonPlay = form.GetByName("PushButtonPlay")
buttonPlay.enableVisible = False
buttonStop = form.GetByName("PushButtonStop")
buttonStop.enableVisible = False
buttonReset = form.GetByName("PushButtonReInit")
buttonReset.enableVisible = True
cellDisplay = sheet.GetCellByPosition(3, 6)
cellDisplay.String = ""
lastStopElapsed = 0.0
isInit_ed = True
End Sub
Gracias