轻松办公，表格图片想插就能插~~

mimi_rice

自动化办公利器——懒人办公插件

本文由按键学院提供技术支持

按键学院交流群（1群已满）：376122403

零基础学按键精灵群（2群）：372671254

这几天有一些小白用户一直来问小编如何能够实现在表格里插入图片的功能，按键自带的办公插件能力实在有限，要怎样才能表格内容丰**呢？

按键精灵除了在游戏领域，其实在办公领域也能发挥很大的作用，特别是数据统计录入分析之类的。一些商业作者是专门接办公脚本的定制的，并且有可能会接到企业级别的定制需求，这样看来办公类脚本实在是 “钱”途无量啊

插件介绍

懒人办公插件可以说是按键精灵办公领域里第三方插件的佼佼者。它包含了丰富的表格和文档以及Access 数据库处理的命令，基本上表格上需要的操作都能通过懒人插件来实现。比如：读取和写入单元格内容，根据条件筛选所需要的内容，在表格里插入图片、超链接，执行宏命令等等功能。

学院院刊之前也有对这个插件做了简单的介绍：
该链接无法确定安全

这次小编就通过编写一些函数来给大家了解下插件的具体应用

↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓  ↓


命令介绍

命令名称：	ExcelOpen
命令功能：	打开EXCEL文档,若EXCEL已经手动打开，则本命令仅返回操作所需的索引值而不影响表格
命令参数：	【参数1】EXCEL完整路径 【参数2（可选）】打开方法，0不可见,1为可见。默认为0 【参数3（可选）】打开权限密码，无密码则不需填写 【参数4（可选）】修改权限密码，无密码则不需填写 【参数5（可选）】设为1以只读模式打开
返回值：	索引值，本插件对多个EXCEL进行操作时需要。索引值为从1开始计数的正整数

命令名称：	ExcelColumns
命令功能：	EXCEL列操作
命令参数：	【参数1】整数型的标签索引号或者字符串型旧的标签名称 【参数2】操作范围 【参数3】操作对象，可填的项目包括 "水平对齐"， "垂直对齐"，"自动换行"，"缩小字体填充"，"合并单元格"， "拆分单元格"，"字体"，"字形"，"字号" ，"字体颜色"， "背景颜色"， "行高" ， "列宽" ， "删除线"，"清除"， "删除"， "插入"，"隐藏”，"精确查找" ，"模糊查找" ，"复制" ，"格式" 【参数4（可选）】操作内容，对应不同的操作对象，本处可填写的内容各不相同 【参数5（可选）】索引值 ，如果只用本插件打开了一个EXCEL，则可以留空
返回值：	索引值，本插件对多个EXCEL进行操作时需要。索引值为从1开始计数的正整数

命令名称：	ExcelRead
命令功能：	读取单元格内容
命令参数：	【参数1】工作表页，可用整数型数值表示是第几个工作表标签，也可用字符串型的标签名称 【参数2】行，整数型 【参数3】列，整数型数值表示是第几列，或者直接使用列名称 【参数4（可选）】索引值 ，如果只用本插件打开了一个EXCEL，则可以留空
返回值：	索引值，本插件对多个EXCEL进行操作时需要。索引值为从1开始计数的正整数

命令名称：	ExcelCells
命令功能：	EXCEL全表操作
命令参数：	【参数1】整数型的标签索引号或者字符串型旧的标签名称 【参数2】操作对象，可填的项目包括 "水平对齐"， "垂直对齐"，"自动换行"，"缩小字体填充"，"合并单元格"， "拆分单元格"，"字体"，"字形"，"字号" ，"字体颜色"， "背景颜色"， "行高" ， "列宽" ， "删除线"，"清除"， "删除"， "插入"，"隐藏”，"精确查找" ，"模糊查找" ，"复制" ，"格式" 【参数3（可选）】操作内容，对应不同的操作对象，本处可填写的内容各不相同，详见下面参数说明中的对照表 【参数4（可选）】索引值 ，如果只用本插件打开了一个EXCEL，则可以留空
返回值：	所有可以设置的操作对象，均可尝试将值设为空字符串（""）以获取状态返回值 操作对象为"精确查找”或"模糊查找”时返回数组，第一个元素为找到的个数，其后为位置

命令名称：	ExcelPicInsertEX
命令功能：	选定区域插入图片（自动调节图片大小）
命令参数：	【参数1】工作表页，可用整数型数值表示是第几个工作表标签，也可用字符串型的标签名称 【参数2】图片左上角单元格，格式如"A1" 【参数3】图片右下角单元格，格式如"A1" 【参数4】图片路径 【参数5（可选）】索引值 ，如果只用本插件打开了一个EXCEL，则可以留空
返回值：	返回插入图片的索引值 用此命令插入的图片，位置大小跟随设定的单元格变化

实例应用


范例1

这个函数功能是自动把相应的图片插入到表格中，并且可以对图片进行一些备注信息
参数说明：
行, 列：表示需要在第几行插入图片。
图片路径：表示需要插入的图片的路径
附带信息：表示要给图片备注什么信息
文档路径：表示需要编辑的文档的路径
范例：Call 插入图片(3, 3, "c:\11.jpg","这是截图","C:\测试.xlsx") 表示在 测试.xlsx 文档中的第3行第3列的位置插入11.jpg图片

1. Function 插入图片(行, 列, 图片路径,附带信息,文档路径)
   
2.     index = Plugin.LazyOffice.ExcelOpen(文档路径, 0)
   
3.     If 列 = 1 Then  //如果列数为1，则会在从第二列开始插入图片，给左边留出一列填入附带信息
   
4.         aa = Plugin.LazyOffice.LocToAdd(行, 列 + 1)
   
5.         //设置全表格居中对齐
   
6.         Call Plugin.LazyOffice.ExcelCells (1,"水平对齐", "居中", index)
   
7.         Call Plugin.LazyOffice.ExcelCells(1, "垂直对齐", "居中", index)
   
8.         // 下面的行高和列宽的数值可以根据自己的图片的大小进行设置
   
9.         Call Plugin.LazyOffice.ExcelRange(1, aa, "列宽", 50, index)
   
10.         Call Plugin.LazyOffice.ExcelRange(1, aa, "行高", 170, index)
    
11.         //在指定的单元格内插入图片
    
12.         Call Plugin.LazyOffice.ExcelPicInsertEX(1, aa, aa, 图片路径)
    
13.         //在图片的左侧单元格内写入附带的信息
    
14.         call Plugin.LazyOffice.ExcelWrite (1,行,列-1,附带信息,index)
    
15.     Else
    
16.         aa = Plugin.LazyOffice.LocToAdd(行, 列)
    
17.         Call Plugin.LazyOffice.ExcelCells (1,"水平对齐", "居中", index)
    
18.         Call Plugin.LazyOffice.ExcelCells (1,"垂直对齐", "居中", index)
    
19.         Call Plugin.LazyOffice.ExcelRange(1, aa, "列宽", 50, index)
    
20.         Call Plugin.LazyOffice.ExcelRange(1, aa, "行高", 170, index)
    
21.         Call Plugin.LazyOffice.ExcelPicInsertEX(1, aa, aa, 图片路径)
    
22.         call Plugin.LazyOffice.ExcelWrite (1,行,列-1,附带信息,index)
    
23.     End If
    
24.     Call  Plugin.LazyOffice.ExcelClose(index)
    
25. End Function

复制代码

范例2

这里是已下面图中所示的图表为例子，咱们来做一个通过搜索指定的装备名称，从而获取到指定的装备信息的函数。

这个函数支持精确查找和模糊查找装备名称，最后的结果会返回数组，数组里存放的是指定的装备信息。
参数说明：
装备名称：输入想要查询的装备名称
装备信息：表示想要查询装备的哪些信息，可以同时查找多条信息，不同信息之间用“|”竖线隔开 。
查找方式：0表示使用精确查找，需要输入装备的精确名称；1表示模糊查找，可以只输入装备部分名称来查找所有符合条件的装备
范例：Call 搜索("暗影剑", "属性|获得途径",0)

1. Function 搜索(装备名称, 装备信息,查找方式)
   
2.     patch = "C:\Users\Administrator\Desktop\世界RPG装备大全_v1.5.xls"  //需要读取的文档的路径
   
3.     index = Plugin.LazyOffice.ExcelOpen(patch, 1)
   
4.     //设置查找的方式，精确查找和模糊查找
   
5.     If 查找方式 = 0 Then
   
6.         查找方式 = "精确查找"
   
7.     ElseIf 查找方式 = 1 Then
   
8.         查找方式 = "模糊查找"
   
9.     End If
   
10.     myarry = Plugin.LazyOffice.ExcelColumns(1, 1,查找方式, 装备名称)  //按照条件查找列，返回的是数组
    
11.      //循环遍历查找到的符合条件的每一行内容
    
12.     For j = 1 To UBound(myarry)
    
13.         行 = myarry(j)
    
14.         装备名称 = Plugin.LazyOffice.ExcelRead(1, 行, 1)//读取查找到的符合要求的装备名称
    
15.         // 查找符合要求的装备信息
    
16.         If instr(装备信息, "|") <> 0 Then
    
17.             aa = split(装备信息, "|")
    
18.             For i = 0 To UBound(aa)
    
19.                 Select Case aa(i)
    
20.                 Case "品质"
    
21.                     列 = 2
    
22.                 Case "属性"
    
23.                     列 = 3
    
24.                 Case "等级"
    
25.                     列 = 4
    
26.                 Case "获得途径"
    
27.                     列 = 5
    
28.                 End Select
    
29.                 Tmptext = Plugin.LazyOffice.ExcelRead(1, 行, 列)
    
30.                 text = Tmptext &"|" & text  //把查找到的信息都使用 | 符号连接在一起
    
31.             Next
    
32.             // 把模糊查找到的不同装备的信息分别放到数组里保存
    
33.             aaa = "物品名称：" & 装备名称 & "：装备信息：" & text
    
34.             bbb = aaa & "*" & bbb
    
35.             搜索 = split(bbb,"*")
    
36.         Else
    
37.             Select Case 装备信息
    
38.             Case "品质"
    
39.                 列 = 2
    
40.             Case "属性"
    
41.                 列 = 3
    
42.             Case "等级"
    
43.                 列 = 4
    
44.             Case "获得途径"
    
45.                 列 = 5
    
46.             End Select
    
47.             text = Plugin.LazyOffice.ExcelRead(1, 行, 列)
    
48.             aaa = "物品名称：" & 装备名称 & "：装备信息：" & text
    
49.             bbb = aaa & "*" & bbb
    
50.             搜索 = split(bbb,"*")
    
51.         End If
    
52.         text = ""  // 这里需要把之前查找到的信息清空下，否则再次循环时之前的装备信息会重复叠加
    
53.     Next
    
54. End Function

复制代码

为了方便童鞋们测试这个函数的效果，可以点击下载这个表格： 世界RPG装备大全_v1.5.rar (1.07 MB, 下载次数: 11)

2015-4-13 15:55 上传

点击文件名下载附件

联系我时，请说是在 挂海论坛 上看到的，谢谢！

hjwgjd

好厉害的样子

daojue

貌似很不错的样子

qqshqq

这个我要收藏一下

眼角存留的泪

高手云集 马上来看看

语楪ゝ 淡蓝

謝謝，希望以後多些

奈何桥、寂寞

顶你一下，好贴要顶！

wulu666666

haolihai 111111

huangxk

通过百度找的论坛，看了几篇帖子，真心都不错！