Imagen con movimiento en Formulario
Dam, continuando con la ayuda anterior, quisiera saber si es posible lograr que la animación que se ve del velocímetro, se pudiera lograr, pero ya no en una Hoja; sino por el contrario se lograra en un control de un formulario y cuál sería el código a ejecutar.
Me refiero a la ayuda prestada en la pregunta: "Detener Bucle al igualar valor de otra celda".
Dicha acción debe responder a un botón.
1 Respuesta
H o l a:
En el módulo deja esta macro:
Sub velocidad() 'Por.Dante Amor UserForm1.Show End Sub
Crea un formulario, le pones un control Image.
Dentro del formulario pon este código:
Private Sub UserForm_Activate()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 0 To h1.[B15] * 100 Step 2
h1.[B16] = i / 100
selec
Next
h1.[B16] = h1.[B15]
selec
Application.ScreenUpdating = True
End Sub
'
Sub selec()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.DrawingObjects.Delete
ruta = ThisWorkbook.Path & "\"
With h1.DrawingObjects("1 Gráfico")
.Copy
ancho = .Width
alto = .Height
End With
'
h2.Shapes.AddChart
With h2.ChartObjects(1)
.Width = ancho
.Height = alto
.Chart.Paste
.Chart.Export ruta & "temporal.JPEG"
End With
UserForm1.Image1.Picture = LoadPicture(ruta & "temporal.JPEG")
DoEvents
End SubS a l u d o s . D a n t e A m o r. Recuerda valorar la respuesta.
H o l a:
Tienes que crear una hoja llamada "Hoja2"
S a l u d o s . D a n t e A m o r. Recuerda valorar la respuesta.
¡Gracias! , Excelente aporte.
Te molestaré con otra parte referente al mismo problema, pero como hace parte de otra ayuda lo haré en una nueva pregunta.
Saludos.
