Centrar imagen en el formulario Excel
DAM, ¿cómo te va mi amigo?
He estado leyendo libro que encontré sobe algunos controles de formulario, y me puse a practicar con esto.
Agrandar o disminuir tamaño de una imagen dentro del formulario,
Al DblClick se agranda y al Click se minimiza según las propiedades de cada evento.
Si aplico las propiedades, funciona pero, a las que están estipuladas en el evento
Quiero que en vez de usar las propiedades del evento que use solo la que me centre totalmente la imagen dentro del formulario, aunque existan algunos otros controles, ¿si los tapa? No importa.
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) With Image1 ' .StartUpPosition = 2 .Height = 338 ' .Left = 10 .Width = 501 ' .Top = 6 End With End Sub Private Sub Image1_Click() With Me.Image1 '.StartUpPosition = 2 .Height = 101 ' .Left = 30 .Width = 150 ' .Top = 6 End With End Sub Private Sub UserForm_Initialize() Image1.PictureSizeMode = fmPictureSizeModeZoom End Sub
1 Respuesta
Respuesta de Dante Amor
1
Eso mismo que expresas es lo que quiero.
TE lo envíe así termine de crear el tema
Te anexo el código para centrar
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Act.Por.Dante Amor With Image1 .Height = 338 .Width = 501 .Top = Int((Me.Height - .Height) / 2) - 12 .Left = Int((Me.Width - .Width) / 2) End With End Sub ' Private Sub Image1_Click() 'Act.Por.Dante Amor With Me.Image1 .Height = 101 .Width = 150 .Top = Int((Me.Height - .Height) / 2) - 12 .Left = Int((Me.Width - .Width) / 2) End With End Sub ' Private Sub UserForm_Initialize() Image1.PictureSizeMode = fmPictureSizeModeZoom End Sub
sal u dos
