Ejecutar dos macros distintas con Private Sub Workbook_SheetBeforeDoubleClick

Hola buen día.
Tengo una duda, se pueden ejecutar dos macros distintas con un doble clic?; me explico mejor.

Por ejemplo: supongamos que necesito que mi hoja se abra en vista completa con un doble clic desde cualquier celda y al dar un segundo doble clic me vuelva a poner en vista normal.

en el ejemplo que propongo mi macro sería la siguiente:

' 1.- hago doble clic en cualquier celda y se abre mi hoja en vista de pantalla completa.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Application.DisplayFullScreen = False

' 2.- y ahora nuevamente con un doble clic, deseo que regrese mi hoja a vista normal.

(??????????) .....DoubleClick(

Application.DisplayFullScreen = True

Entiendo que en la parte de la macro donde puse (??????????) va una instrucción, siempre investigo y regularmente logro dar con la respuesta, pero en este caso no he tenido éxito alguno.

Gracias y buen día!

1 respuesta

Respuesta
1

Está sería la instrucción

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Else
Application.DisplayFullScreen = True
End If
End Sub

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas