Excel VBA: 将悬浮图片更改为嵌入单元格图片

要在 Excel 中使用 VBA 将悬浮的图片更改为切换为嵌入单元格图片，你可以使用以下代码：\n\nvb\nSub ChangeFloatingToInline()\n Dim ws As Worksheet\n Dim shp As Shape\n \n ' 设置工作表\n Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将 "Sheet1" 替换为你的工作表名称\n \n ' 循环遍历工作表中的所有形状\n For Each shp In ws.Shapes\n ' 检查形状是否为图片\n If shp.Type = msoPicture Then\n ' 检查形状是否为悬浮形状\n If shp.Placement = xlMoveAndSize Then\n ' 将悬浮形状切换为嵌入单元格形状\n shp.Placement = xlMove\n End If\n End If\n Next shp\nEnd Sub\n\n\n请注意，将代码中的 "Sheet1" 替换为你实际使用的工作表名称。运行此代码后，它将遍历指定工作表中的所有形状，并将悬浮的图片更改为嵌入单元格图片。