Excel VBA: 将单元格范围中的图片嵌入单元格

您可以使用以下 VBA 代码来选择单元格 B2:B4 中的图片，并将其切换为嵌入单元格图片：\n\nvba\nSub EmbedPictures()\n Dim rng As Range\n Dim pic As Picture\n\n ' 选择要切换的单元格范围\n Set rng = Range("B2:B4")\n\n ' 循环处理选择的单元格\n For Each cell In rng\n ' 检查单元格中是否有图片\n If cell.Pictures.Count > 0 Then\n ' 获取单元格中的图片对象\n Set pic = cell.Pictures(1)\n \n ' 切换为嵌入单元格图片\n pic.ShapeRange.LockAspectRatio = msoFalse\n pic.ShapeRange.Width = cell.Width\n pic.ShapeRange.Height = cell.Height\n pic.Left = cell.Left\n pic.Top = cell.Top\n pic.Placement = xlMoveAndSize\n End If\n Next cell\nEnd Sub\n\n\n要使用此代码，请按照以下步骤操作：\n\n1. 打开 Excel 文件并按下 ALT + F11 打开 VBA 编辑器。\n2. 在 VBA 编辑器中，插入一个新的模块。\n3. 将上述代码复制粘贴到模块中。\n4. 关闭 VBA 编辑器。\n5. 在 Excel 中，选中要切换为嵌入单元格图片的单元格范围（B2:B4）。\n6. 按下 ALT + F8 打开宏对话框。\n7. 选择“EmbedPictures”宏并点击“运行”。\n\n这将循环处理选定的单元格范围，并将其中的图片切换为嵌入单元格图片。请注意，此代码仅适用于单元格中已经存在图片的情况。