![]()
今天会说到三个关于图片管理的办法,当然,这三个办法都有相当的难度.使用VBA自动生成.比较智能的管控的你的图片库.(文件链接在最下方.)
1，批注内显示图片
![]()
当你将鼠标放置在某个单元格,图片批注将会产生,移开鼠标,批注消失.
2，单元格内显示图片
![]()
将图片放置在单元格内,这样你可以随时看到这个图片.
例如下图:
![]()
大家或许会手动去添加放置在某个地方然后批量的更改图片的大小,当有新的图片需要添加,你继续手动复制,
我所讲到的就是利用一个按钮,将图片导入进来,然后自动条件所有的格式.
3，选择某个系列,图片自动放大显示在表格旁边.
![]()
当我选择某一行的某一个单元格,这一行被颜色标记,并且放大版的图片显示在右侧的某个位置,每次选择,都会自动放大这个图片,并且可以N次切换.根据项目的不同,图片也会被来回切换.
整个做完之后的效果很好看,这样的图片管理,你几乎就不会失误.
![]()
但是想要实现这样的一些功能,也着实不是那么简单的.
我也感慨,其实好的表格,真的是要成套的去学,去领悟,把所学的东西体系化,而不是越学越散.
当然中间会遇到一些苦难,而最好的学习方法其实不是你看了一本书,而是碰到一个问题解决一个问题,实践多了,你也基本都有概念了.
我并没有批判一书的价值,而是这本书应该怎么引导你.观点和形式是不是有特点?千篇一律的书籍,就别买了..........这是我的建议.
回归正题.
关于选择,标记的这一块,我的一些非VBA系列里的专辑中说过了,大家可以看看之前的视频.
整个这个文件需要很多的VBA代码来实现,
文字解析:
![]()
这段代码必须写在SHEET里面,而不是模块里.
基本含义:
如果选择目标大于1则退出整段SUB
当目标在RANGE(E5:L16)之间,也就是我们整个填写数据的范围之内的时候,
则给到A4单元格,我们选取目标的行数.
![]()
而这个行数值,我们再把它放到我们的条件格式中,
![]()
![]()
通过条件格式以及上述VBA代码,实现,选择一个单元格,那么这个单元格所在的行数能够发生整行的标记,比如说我选择第二行,第二则被标记,来提高你的视觉性.
![]()
![]()
![]()
图片右侧显示,这一段会在模块中的SUB中体现,
意思就是,当你选择某一行的时候,图片会在右侧自动显示,
如果你的选择目标不在RANGE(E5:L16)中,也就是你的数据填写范围.那么A4单元格的变化行数值,则不会有显示,换而言之就是你的数据区域,不会有蓝色的标记显示.
被选择的图片被删除,这张图片代表的是右侧显示的图片.因为这个时候,你并没有选择数据区域的某一行.
![]()
建立一个DIALOG来打开文件选择对话框.
![]()
当选择一张图片时,这个文件的路径会被导入EXCEL的单元格中.
![]()
![]()
上述的代码表示,图片被插入到图片单元格,并且自动调整图片的大小和位置.点击(单元格增加图片)按钮.
当然这个过程,大家可以看一看我红色线条标记的位置.
我们先要删除之前的图片,然后再增加一个图片,
图片的名称都是一样的.
恐防没有图片,而执行DELETE这个过程,中间加一段,
ON ERROR RESUME NEXT 来进行防呆处理.
![]()
这个是我们的表格单元格增加批注的代码,
点击这个按钮,
![]()
批注自动生成.
![]()
![]()
这一段SUB应该为事件的执行过程,
而我们把他和第一段SUB联系在一起,
![]()
来使得我们在表单SelectionChange的同时触发事件执行过程中的跳转.
![]()
![]()
最后一段代码,意思就是如果你的DIALOG都输入完成,但是没有单个的插入图片,可以按照地址批量的直接将图片插入至表单所在的固定位置.
![]()
视频:
[iframe]https://v.qq.com/iframe/preview.html?width=500&height=375&auto=0&vid=o0881zx3d9r[/iframe]
课件链接:
https://share.weiyun.com/5krPhVp
|
|
转播
