转载自品略图书馆  http://www.pinlue.com/article/2020/03/2914/4410066052558.html
 
 
 
朋友在后台提了这样一个问题，能不能根据名称一键将图片批量插入到单元格的批注中去，酱紫的话，当鼠标划过单元格，Excel就会自动显示图片了，很酷很实用……
 
比如下面动态图所展示的这样：
 
哎呦，不错哦~~
 
实现代码如下：
 
Sub CommentPic()
 
"ExcelHome VBA编程学习与实践 看见星光
 
Dim Arr, i&, k&, n&, pd&
 
Dim PicName$, PicPath$, FdPath$
 
Dim Rng As Range, Cll As Range
 
Application.ScreenUpdating = False
 
On Error Resume Next
 
"
 
"用户选择图片所在的文件夹
 
With Application.FileDialog(msoFileDialogFolderPicker)
 
.AllowMultiSelect = False "不允许多选
 
If .Show Then FdPath = .SelectedItems(1) Else: Exit Sub
 
End With
 
If Right(FdPath, 1) <> "\" Then FdPath = FdPath & "\"
 
"
 
Set Rng = Application.InputBox("请选择需要插入图片到批注中的单元格区域", Type:=8)
 
"用户选择需要插入图片到批注中的单元格或区域
 
If Rng.Count = 0 Then Exit Sub
 
Set Rng = Intersect(Rng.Parent.UsedRange, Rng)
 
"intersect语句避免用户选择整列单元格，造成无谓运算的情况
 
Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")
 
"用数组变量记录五种文件格式
 
"
 
For Each Cll In Rng
 
"遍历选择区域的每一个单元格
 
Cll.Comment.Delete "删除旧的批注
 
PicName = Cll.Text "图片名称
 
If Len(PicName) Then "如果单元格存在值
 
PicPath = FdPath & PicName "图片路径
 
pd = 0 "pd变量标记是否找到相关图片
 
For i = 0 To UBound(Arr)
 
"由于不确定用户的图片格式，因此遍历图片格式
 
If Len(Dir(PicPath & Arr(i))) Then
 
"如果存在相关文件
 
Cll.AddComment "增加批注
 
With Cll.Comment
 
.Visible = True "批注可见
 
.Text Text:=""
 
.Shape.Select True "选中批注图形
 
Selection.ShapeRange.Fill.UserPicture PicPath & Arr(i)
 
"插入图片到批注中
 
.Shape.Height = 150 "图形的高度，可以根据需要自己调整
 
.Shape.Width = 150 "图形的宽度，可以根据需要自己调整
 
.Visible = False "取消显示
 
End With
 
pd = 1 "标记找到结果
 
n = n + 1 "累加找到结果的个数
 
Exit For "找到结果后就可以退出文件格式循环
 
End If
 
Next
 
If pd = 0 Then k = k + 1 "如果没找到图片累加个数
 
End If
 
Next
 
MsgBox "共处理成功" & n & "个图片，另有" & k & "个非空单元格未找到对应的图片。"
 
Application.ScreenUpdating = True
 
End Sub
 
小贴士：
 
1，代码运行后，首先弹出操作界面，要求用户选择图片所存放的文件夹，注意是选择文件夹，不是选择图片，双击打开文件夹后看不到图片是正常现象……。
 
2，图片的名称需要和单元格的值相匹配；小代码如果找不到单元格的值所对应的图片，会直接跳过，处理下一个单元格；代码运行结束后，会发出信息，告知一共处理成功了几个图片以及未成功几个非空单元格的图片。
 
3，代码中使用了intersect语句，Set Rng = Intersect(Rng.Parent.UsedRange, Rng)，因此用户可以选择整列（比如整个A列）或多列单元格区域运行代码，而不用担心因为无谓的运算量过大，造成程序假死的情况。
 
4，代码导入的图片格式支持五种常见的类型，Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")
 
5，批注图片的高度和宽度可以根据自身情况做调整，相关代码如下：
 
.Shape.Height = 150 "图形的高度，可以根据需要自己调整
 
.Shape.Width = 150 "图形的宽度，可以根据需要自己调整

个人制作的 VBA 代码加密混淆器，帮你加密你的宏代码，让它不再那么易读。因 VBA 的方便一直以来都喜欢用它写一些小工具，了解多了也就知道这种代码编写的工具完全没有安全性可言，工程密码形同虚设，很容易破解。（见我的文章中的第三点破解工程代码：Excel 各种密码的破解，大全建议收藏！）。
 
  我的这个工具的做法就是仿网上的一些 Java，Python 的代码混淆器，用很难辨别的字符串去替换代码中用到的变量、函数或过程名，并转译代码中用到的字符串。谷歌能找到一些付费的软件，做的比我更好，支持控件名混淆、字符串的加密，但我供不起那一两千刀的价格，不划算。于是自己写了一个小工具满足自己的小需求，如果你有需要，在这里只需支付 199 RMB 就可以使用。
 
  工具的测试版在我的百度网盘下载，测试版支持部分变量混淆，不转译字符串。
 下载链接：https://pan.baidu.com/s/18hk2S1PGWQbxVO00puwDoQ ，提取码：rtfb。如需正式版请关注我的微信公众号，通过里面的邮箱地址联系我。
 
1. 代码混淆后的效果
 
下面我先 show 一下代码加密后的效果，待加密代码的部分截图：
 
 混淆完成之后如下图：
 
 变量名称、字符串不再那么容易辨别了，一串串的数字，头晕，容我喝杯水先！哈哈。
 
2. 代码编码注意事项
 
  工具做的比较简单，不能处理太诡异的代码，这里有一些注意事项在混淆前要对你的代码对照检查一下：
 
变量声明的注意事项： 
  
所有变量使用前必须声明，包含 For 语句中用到的变量
变量的类型必须指定，类型未定的声明为 Variant
不能在一行代码中声明多个变量，如下
Dim strFirstName As String, strLastName As String
 
变量名称不能过于简单，如下是不建议的
Dim I As Integer
 建议修改为匈牙利命名法的变量，例如：
Dim intIndex As Integer
 
常量，变量必须声明作用域，即用关键词 Public, Private 或 Dim 声明，不允许如下：
Const SUB_PROCESS = 20
 
暂不支持字符串类型的常量，请用变量取代
 
注意关键字的大小写，例如不要把 Dim 写成 dim
代码中不要包含多余的空格、制表符，尤其是在变量之间
注意代码行的单引号，有时会被解析为注解。可用 Chr(39) 替换
函数、过程名在不指定的情况下默认不混淆
不支持多个模块的代码一起混淆
 
3. 工具使用方法
 
  进入工具的文件夹，你会看到四个文件，如下：
 
   在 frmMain.vbs 中放入待混淆的代码。Variables.txt 文件中放入那些要进行混淆的函数、过程名、错误处理断点、或工具未能检测到的变量，如无此要求请清空此文件（不能删除）。
   上述的内容提供完后双击 VBAObfuscate.exe 开始混淆你的代码，随后会出现黑黑的一个窗口提示你代码混淆完毕，请按任意键关闭，如下：
 
 混淆后的结果存储在文件 frmOutput.vbs。请用这些代码替换你的源代码，替换前记得备份哦！
   VBA 代码再怎么混淆、加密都很难做到完全的安全，核心代码建议你用 C 或 C++ 编写成 dll 文件，然后用 VBA调用。
 
全文完！欢迎评论，如你满意工具的功能, 请记得点赞哦，谢谢！
 
本文为作者原创文章，未经作者允许不得转载。
 

 

历时一个月的紧张开发，VBA代码助手专业版终于问世了，对原加载宏版VBA代码助手进行了全面升级，焕然一新的代码助手重装上阵，希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该会很快上手，操作体验基本和老版代码助手一致，主要是改进了稳定性和保存速度，新朋友请认真阅读使用说明书，自己多多体会，相信也能很快入手。
同类产品，vba代码宝，vbe2019，vba开发助手，office开发助手等等很多插件都要求开启VBE工程信任，这是对病毒敞开大门 ，请大家务必慎重不要轻易开启这个设置 ，本插件无需开启VBE工程信任请放心使用！！本插件内置代码均为本人12年开发经验总结精华代码，不作任何加密 ，可自由导出，后续不断升级，欢迎无偿使用！！
 安装包下载链接: https://pan.baidu.com/s/1MYGsskVxKWqlIDP5nDGJzQ 提取码: kp33
***更  新  日  志*******************
 
3.1.8 2019.11.01 重磅更新 中键弹出菜单顶部实现搜索栏,快速搜索插入代码
3.1.9 2019.11.03 多关键字搜索,右键菜单快捷键,整节点删除,F2重命名
3.2.0 2019.11.04 安装新版可保留旧版数据库 插件自动在线检测升级版
3.2.1 2019.11.05 重大更新 支持节点名称拼音首字母模糊搜索!!
3.2.6 2019.11.08 你们要的工具条 如你所愿!!(延迟加载,不会影响启动速速)
3.2.7 2019.11.11 修复整节点删除后搜索出错，中键搜索框默认为20字符宽，去掉保存提示
3.2.8 2019.11.12 加入代码排版对齐，删除空行等辅助工具，在工具栏和右键菜单调出
3.2.9 2019.11.13 重磅VBA工程密码解锁功能，破解VBA密码，无视密码直接查看代码
3.3.0 2019.11.14 加入批量删除注释功能，既然加密无用起码不给你注释！！
3.3.0.1 2019.11.15 调整排版工具到右键顶部，新建节点默认处于编辑状态
3.3.0.2 2019.11.16 修复子节点很多的根节点双击会插入代码的bug
3.3.1.0 2019.11.16 重新安装时，激活信息保留，数据库可选择是否覆盖
3.3.2.0 2019.11.18 重磅升级,加入隐藏ExcelVBA模块和工程不可查看功能
3.3.3.0 2019.11.19 修复2016卸载后导致2010版以及wps工具栏不能加载的bug
3.3.3.1 2019.11.20 中键菜单加入小工具,Office2010 64位版无工具栏也可以使用所有功能
.....持续更新中
务必先看下方使用说明，不要跑来问怎么安装如何激活如何使用！！
***使 用 必 看 + 安 装 说 明********** 
本程序是VBE编辑器的代码管理插件，支持各种具有VBA编辑功能的软件（例如Office、WPS、AutoCAD...） 本人只能保证Office环境下全部功能支持使用，其他环境请自行测试
 本程序数据库及配置文件在 安装目录\date\ 可自己手工硬备份，在需要恢复的时候替换原数据即可
注意：程序在安装时需要Windows的登录账户具有管理员权限，最好是右键管理员安装，安装程序会将插件信息写入注册表，以确保插件启动。如果杀毒软件报警，请点击允许或者关闭杀毒软件。软件默认安装在
 
%UserProfile%\AppData\Roaming\VBA代码助手专业版
可直接复制到资源管理器地址栏打开
 
**VBA代码助手专业版 操作说明********使用环境：
所有Windows系统下的VBE宿主环境都可以，Excel，word，ppt，Outlook，Access，cad....主要功能：满足VBA开发欢迎中的
代码插入，鼠标中键呼出插入菜单，极速插入代码。
代码收藏管理，树节点无限层级管理。
插件内置编辑器可代码高亮上色及折叠代码块，查看长代码更方便。
树节点鼠标拖放管理，可跨级别拖放，管理更自由。
快捷键呼出插入面板，无需右键及移动鼠标，插入代码速度更快。
管理面板中搜索代码，双击搜索结果插入，双击树节点插入。
【鼠标中键单击】呼出快捷插入菜单（Alt+1键盘呼出也可以）
代码排版对齐，删除空行等辅助工具，在工具栏和右键菜单调出
VBA工程密码解锁功能，破解VBA密码，无视密码直接查看代码
隐藏ExcelVBA模块和工程不可查看功能

快捷键呼出面板方式在代码区中下面3种方式
 
【鼠标中键单击】呼出快捷插入菜单 顶部带搜索框可直接搜索代码
【Alt+1】   呼出快捷插入菜单
【Alt+2】   呼出代码管理面板,也可以在快捷插入菜单点击调出管理面板
 
窗口布局介绍
 
搜索栏：面板左上角
树节点窗口：面板左侧中间
代码窗口：面板右侧
快捷菜单：在代码窗口任意位置，鼠标中键单击后者Alt+1，呼出快捷插入菜单，点击直接插入
管理功能：代码窗口右键弹出菜单点击或者Alt+2
代码管理功能说明词汇说明：
 
节点== 1个具有下级分支的管理节点
代码== 1个具有名称的代码块,就是收藏的最终目标
模块== 标准模块,类模块或者窗体模块总称 注意这3类收藏后不要修改,以免造成无法导入
操作说明
 
树形节点单击显示详情,双击写入到VBE里,也可选中后点上方输出到VBE写入
搜索窗口中，可全文搜索，包含代码名,标签和代码内容。
搜索列表双击或者回车插入代码，Esc或者右键返回树节点
节点窗口中，按Delete键删除节点。
节点窗口中，拖拽节点可以排序,可跨节点跨级别拖放,注意拖放操作是即时保存,请大改前提前备份代码库
树节点窗口【鼠标右键】弹出菜单,功能如下【修改名称,新建同级,新建下级,新建节点   收藏模块,收藏函数,收藏选择,删除节点,全部折叠,全部展开】 本工具默认都在所选的节点下方进行操作
代码名称或者内容修改后请点击保存代码库,这些操作非实时保存   注意窗体模块保存后不要修改，会造成无法插入，需要备注可在标签栏填写

下载地址:
 安装包下载链接: https://pan.baidu.com/s/1MYGsskVxKWqlIDP5nDGJzQ 提取码: kp33

缘由
 
今天有人问我如何在Excel里面设置聚光灯高亮，我一般很少有Excel，随手查了一下，无非就是excel外挂一个插件，写几句代码就完事了。。。
 
步骤
 
（1）安装wps或微软excel
 
（2）安装Visual Basic for Applications官方地址。
 （3）打开excel，点击alt+f11，如下所示：
 
 （4）双击ThisWorkbook
 
 （5）填入如下代码：
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = -4142
Rows(Target.Row).Interior.ColorIndex = 36
Columns(Target.Column).Interior.ColorIndex = 36
Application.ScreenUpdating = False
End Sub
 
如下：
 
 然后关闭上面代码窗口即可。