使用VBA在Excel中插入多个图像填充单元格，但保持纵横比

Sub InsertImages()
    Dim rng As Range
    Dim cell As Range
    Dim img As Picture
    Dim aspectRatio As Double
    
    ' 设置填充图像的范围
    Set rng = Range("A1:A10")
    
    ' 遍历每个单元格
    For Each cell In rng
        ' 插入图像
        Set img = cell.Parent.Pictures.Insert("C:\path\to\image.jpg")
        
        ' 计算图像的纵横比
        aspectRatio = img.ShapeRange.Width / img.ShapeRange.Height
        
        ' 调整图像大小，保持纵横比
        If aspectRatio < cell.Width / cell.Height Then
            img.ShapeRange.LockAspectRatio = msoFalse
            img.ShapeRange.Width = cell.Width
            img.ShapeRange.Height = cell.Width / aspectRatio
        Else
            img.ShapeRange.LockAspectRatio = msoFalse
            img.ShapeRange.Height = cell.Height
            img.ShapeRange.Width = cell.Height * aspectRatio
        End If
        
        ' 移动图像到单元格位置
        img.Top = cell.Top
        img.Left = cell.Left
    Next cell
End Sub