EXL vb选择单元格B2B4的图片并切换为嵌入单元格图片

您可以使用以下VBA代码来选择单元格B2:B4中的图片，并将其切换为嵌入单元格图片：

Sub EmbedPictures()
    Dim rng As Range
    Dim pic As Picture

    ' 选择要切换的单元格范围
    Set rng = Range("B2:B4")

    ' 循环处理选择的单元格
    For Each cell In rng
        ' 检查单元格中是否有图片
        If cell.Pictures.Count > 0 Then
            ' 获取单元格中的图片对象
            Set pic = cell.Pictures(1)
            
            ' 切换为嵌入单元格图片
            pic.ShapeRange.LockAspectRatio = msoFalse
            pic.ShapeRange.Width = cell.Width
            pic.ShapeRange.Height = cell.Height
            pic.Left = cell.Left
            pic.Top = cell.Top
            pic.Placement = xlMoveAndSize
        End If
    Next cell
End Sub

要使用此代码，请按照以下步骤操作：

1. 打开Excel文件并按下ALT + F11打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块。
3. 将上述代码复制粘贴到模块中。
4. 关闭VBA编辑器。
5. 在Excel中，选中要切换为嵌入单元格图片的单元格范围（B2:B4）。
6. 按下ALT + F8打开宏对话框。
7. 选择“EmbedPictures”宏并点击“运行”。

这将循环处理选定的单元格范围，并将其中的图片切换为嵌入单元格图片。请注意，此代码仅适用于单元格中已经存在图片的情况