批注就那么点用处？来用批注实现一个带图片的花名册点击上方“Excel和VBA”，选择“置顶公众号” 致力于原创分享Excel的相关知识，源码，源文件打包提供 一起学习，一起进步~~ 最近一段时间学习了很多关于单元格的批注的操作，可能是因为在日常的工作中，大家对于批注的使用频率并不是很高，所以关注度也不太高，不过当然这是好事，批注某种程度上使用并不是很方便，尤其是后期的数据查阅和编辑都不是很方便，使用频率较低是好事 但是并不是说批注就一无是处，只要使用得当，批注也可以给我们的工作提供一些便利，比方说我们今天要介绍的，将图片放入花名册中，这样当鼠标滑过的时候，就可以展示员工的图片了，比方说这样的效果  这样的效果是不是很炫 批注不一定是文字，还可以是图片，来看看如何实现 场景说明 假设我们现在有这样的一个花名册， 里面有很多不同的名字，现在我们需要将它们对应的图片以批注的形式展示，那么我们还需要准备好他们对应的图片  图片我们这里已经准备好了，留意我标记出来的地方，有些是有操作重命名的，但是另外一些则没有，为什么会有一些需要命名呢？ 很明显的啦，你不命名，VBA代码怎么知道哪个是哪个呢？难道你觉得VBA代码能够知道路飞是谁？哈哈 来，接着看代码 代码区Sub tupian()Dim s, rng As Range, a As RangeSet rng = Application.InputBox("请选择要插入批注的单元格", "单元格区域选择", , , , , , 8)With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择图片所在的文件" If .Show = -1 Then Filename = .SelectedItems(1) End IfEnd Withs = MsgBox("请确保图片名称和单元格内容对应！", vbOKCancel)If s = 1 ThenFor Each a In rng If Not IsEmpty(a) Then a.AddComment a.Comment.Visible = False a.Comment.Text Text:="" a.Comment.Shape.Fill.UserPicture PictureFile:=Filename & "\" & a.Value & ".jpg" End IfNext aEnd IfEnd Sub是不是觉得代码有点长，既然我们要实现的是一些比较非常规的操作，自然代码要长一点 来看看代码的效果  是不是很完美，我们成功的利用了批注，将图片添加到批注中，实现了一个别样的花名册，当鼠标滑过的时候，会展示对应的图片人的图片，是不是非常的方便 代码解析来看看今天的代码 今天我们要实现的将图片插入批注中，核心代码自然是将图片插入批注中的代码 但是在操作之前，还有一些准备工作要做 图片需要重命名，重命名的原则是你花名册单元格中的内容要保持一致。  这一步是非常的重要的。 然后我们就可以写代码了。 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "请选择图片所在的文件" If .Show = -1 Then Filename = .SelectedItems(1) End IfEnd With这一段代码是我们在第一章学习的时候，学习过的FileDialog方法 通过一个对话框的方式让我们选择图片所在的文件夹  选择了图片所在的位置之后，我们就可以开始插入图片了。 那么插入图片到批注中的代码是什么呢？ a.Comment.Shape.Fill.UserPicture PictureFile:=Filename & "\" & a.Value & ".jpg"这里我们的图片都是JPG格式的，如果你的是png,你就需要将代码最后面的jpg替换成为PNG 这样的花名册是不是很别样 现在你还认为批注仅仅只能是文字了吗？ 你还觉得批注的用处不大嘛？ 学好VBA，你可以开发出很多你之前不知道的Excel功能 快跟我学习VBA，认识一个全新的VBA |
|
|
