使用VBA将图片从一个工作表移动到另一个工作表

标签：VBA

今天跟大家分享的技巧来自thesmallman.com，一个分享Excel技巧技术的网站。

下面的Excel VBA示例将使用少量的Excel VBA代码将图片从一个工作表移动到另一个工作表。为了实现这个目的，要考虑以下事情：

1.要移动的图片的名称。

2.当我们捕获到名称后，想把图片放到哪里。

3.如何处理所选内容要替换的图片？

这里，使用数据验证列表来选择一个国家（的国旗），而Excel VBA将完成其余的工作。以下是示例文件的图片，以方便讲解。

图1

所有图片（旗帜）都有一个名称（如中国、加拿大、巴哈马等），并将其添加到验证列表中。只需从蓝色下拉列表中选择要移动的图片名称，然后单击移动按钮，就可将相应的图片（旗帜）移动到另一个工作表。当然，这里可以调整让工作表事件来处理。

“移动”按钮调用的VBA程序如下：

Sub MovePicture()

Dim sh As Worksheet

Dim Pic As Object

Set sh = Sheet2

Application.ScreenUpdating = False

'先删除目标工作表中的所有图片

For Each Pic In Sheet1.Pictures

Pic.Delete

Next Pic

'复制下拉列表中选择的名称对应的图片

sh.Shapes([e13].Value).Copy

'粘贴到目标工作表

Sheet1.[d8].PasteSpecial

Application.ScreenUpdating = True

End Sub

上面简单的程序分为两个部分，首先从目标工作表中删除所有图片（Sheet1是目标工作表）。然后将单元格E13中名称对应的图片复制到工作表1的单元格D8。演示如下图2所示。

图2

有兴趣的朋友可以到原网站下载原始示例工作簿。也可以到知识星球App完美Excel社群下载汉化后的示例工作簿。