Cómo crear un Mario en Excel con VBA
Автор: Exoluciones Y más
Загружено: 2020-10-25
Просмотров: 1833
Описание:
https://drive.google.com/file/d/116QY...
• El Nappa contra el Cell
Módulo de clase
Sub mover_derecha()
Dim mario As Shape
Set mario = ActiveSheet.Shapes("Mario")
'mario.Select
mario.Left = mario.Left + 10
End Sub
Sub mover_izquierda()
Dim mario As Shape
Set mario = ActiveSheet.Shapes("Mario")
'mario.Select
mario.Left = mario.Left - 10
End Sub
Sub saltar()
Dim mario As Shape
Dim limite As Integer
Dim x As Integer
Set mario = ActiveSheet.Shapes("Mario")
limite = 120
mario.Top = mario.Top - 120
DoEvents
For x = 1 To limite
mario.Top = mario.Top + 1
Next x
End Sub
Módulo estándar:
Sub mover_a_la_derecha()
Dim m As CMario
Set m = New CMario
m.mover_derecha
End Sub
Sub mover_a_la_izquierda()
Dim m As CMario
Set m = New CMario
m.mover_izquierda
End Sub
Sub saltar_arriba()
Dim m As CMario
Set m = New CMario
m.saltar
End Sub
Sub asginar_teclas()
Application.OnKey "{RIGHT}", "mover_a_la_derecha"
Application.OnKey "{LEFT}", "mover_a_la_izquierda"
Application.OnKey "x", "saltar_arriba"
End Sub
Повторяем попытку...
Доступные форматы для скачивания:
Скачать видео
-
Информация по загрузке: