msflexgrid单元格中插入一个图像，图像能不能适应单元格的大小？

Question

RT，原始图片较大，想在单元格中以较小的方式显示，有这个设置吗？

Answer 1

可以插入图片，但速度很慢，不可取。Option ExplicitPrivate Sub Form_Load()
    With MSFlexGrid1
        .Rows = 5
        .Cols = 5
        .Row = 2
        .Col = 2        Set .CellPicture = LoadPicture("C:\Users\Public\Pictures\Sample Pictures\Hydrangeas.jpg")
    End With
    
End Sub

Answer 2

Private Sub Form_Load()
MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 0
MSFlexGrid1.Cols = 10
MSFlexGrid1.FixedCols = 0MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.RowHeight(0) = 1000
Picture1.Picture = LoadPicture("D:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1, 0, 0, 1000, 1000, Picture1.Width, Picture1.Height
Set MSFlexGrid1.CellPicture = Picture2.Image
End Sub