表格中用vb代码将 悬浮的图片 更改为 切换为嵌入单元格图片

您可以使用以下VB代码将悬浮的图片更改为切换为嵌入单元格图片：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cell As Range
    Dim Pic As Picture

    ' 删除所有嵌入的图片
    For Each Pic In Me.Pictures
        Pic.Delete
    Next Pic

    ' 在选定单元格中添加图片
    For Each Cell In Target
        If Cell.Column = 1 Then
            ' 获取选定单元格的左上角坐标
            Dim LeftPosition As Double
            Dim TopPosition As Double
            LeftPosition = Cell.Offset(0, 0).Left
            TopPosition = Cell.Offset(0, 0).Top

            ' 在选定单元格中插入图片
            Set Pic = Me.Pictures.Insert("C:\路径\图片文件名.jpg")
            With Pic
                .Left = LeftPosition
                .Top = TopPosition
                .ShapeRange.LockAspectRatio = msoFalse
                .ShapeRange.Width = Cell.Width
                .ShapeRange.Height = Cell.Height
            End With
        End If
    Next Cell
End Sub

在这段代码中，您需要将"C:\路径\图片文件名.jpg"替换为您的图片文件的完整路径和文件名。此外，代码目前会将图片插入到选定单元格的左上角，并调整图像的大小以匹配单元格的大小。

将此代码复制并粘贴到您要更改图片的工作表的代码窗口中。当选定单元格发生更改时，代码将删除所有嵌入的图片，并在选定单元格中添加新的图片。您可以根据需要更改代码中的条件（例如，更改If Cell.Column = 1 Then以适应特定的列）。

请确保将代码中的路径和文件名替换为您实际使用的图片