表格用 vb 把悬浮的图片更改为 切换为嵌入单元格图片

要在Excel中使用VBA将悬浮的图片更改为切换为嵌入单元格图片，你可以使用以下代码：

Sub ChangeFloatingToInline()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将 "Sheet1" 替换为你的工作表名称
    
    ' 循环遍历工作表中的所有形状
    For Each shp In ws.Shapes
        ' 检查形状是否为图片
        If shp.Type = msoPicture Then
            ' 检查形状是否为悬浮形状
            If shp.Placement = xlMoveAndSize Then
                ' 将悬浮形状切换为嵌入单元格形状
                shp.Placement = xlMove
            End If
        End If
    Next shp
End Sub

请注意，将代码中的 "Sheet1" 替换为你实际使用的工作表名称。运行此代码后，它将遍历指定工作表中的所有形状，并将悬浮的图片更改为嵌入单元格图片