Código:
Gracias desde ya por las respuestas.Dim Ancho As Single, Alto As Single, Porcentaje As Single Dim Imagen As Picture Private Sub Command1_Click() mshflexgrid1.ColWidth(1) = 1600 Set Imagen = LoadPicture(App.Path & "\prueba.jpg") Ancho = Imagen.Width Alto = Imagen.Height PIMUESTRA.AutoRedraw = True MostrarImagen Set mshflexgrid1.CellPicture = PIMUESTRA.Image End Sub Private Sub MostrarImagen() Dim centro1 As Single, centro2 As Single PIMUESTRA.Cls If Ancho <> PIMUESTRA.Width Or Alto <> PIMUESTRA.Height Then If Ancho > Alto Then Porcentaje = (PIMUESTRA.Width * 100) / Ancho Else Porcentaje = (PIMUESTRA.Height * 100) / Alto End If End If Ancho = (Ancho * Porcentaje) / 100 Alto = (Alto * Porcentaje) / 100 centro1 = (PIMUESTRA.Width - Ancho) / 2 centro2 = (PIMUESTRA.Height - Alto) / 2 PIMUESTRA.PaintPicture Imagen, centro1, centro2, Ancho, Alto End Sub
Saludos