年会上随机选择照片抽奖的ppt

artin88 · 发表于 2013-2-4 09:52

z94213715 发表于 2013-2-3 11:47
单位年会只抽一种奖项10个人，想请教楼主一下，我把除了B4、f4相关的留下其它都删掉。
Case 0 To 23: Fun ...

10个人比较少，可以一张一张显示出来。
程序可以不做任何更改，变通一下使用就行了。
1、在B4文件夹下放24张jpg图片，随便什么图片都行
2、在B3文件夹下放10张随便什么Jpg图片
3、在B2文件夹下放16张随便什么jpg图片
4、开始你的抽奖，程序在下面这一句计算出filecount=50，所以会按照最原始的设定，在第51-60个人一张一张显示出来，分别存放在B1 B0 和BB文件夹里面。这相当于你要抽取的十个人就是原先第51~60人。
filecount = f4.Files.count + f3.Files.count + f2.Files.count + f1.Files.count + f0.Files.count + ff.Files.count '已选出中奖人数，初始值为0

andy_chengang · 发表于 2013-2-5 22:38

学下了，谢谢！！！！！！！！

ning0123 · 发表于 2013-12-9 09:54

请问，打开以后只有三页，第一页左下角显示导入照片，具体该怎么操作呀！！！！！

ning0123 · 发表于 2013-12-9 10:00

artin88 发表于 2012-12-24 14:35
去年年会使用过，效果不错。
又到年会时间，更新一下。
忘记写使用说明了。

还是不太会啊~~楼主能帮帮忙不？

魏小红不红 · 发表于 2014-1-6 17:15

为什么我装上了，却在开发工具的加载项里找不到呢？(┬＿┬)请各位大侠帮忙给看看，感激不尽呀~~
如图捕获.PNG

ps：程序已经安装成功，但在excel的菜单栏里没有显示，点开开发工具的加载项也没有显示...不知道怎么办了...

企鹅先森 · 发表于 2021-1-30 18:04

artin88 发表于 2012-12-24 14:35
去年年会使用过，效果不错。
又到年会时间，更新一下。
忘记写使用说明了。

谢谢收藏了

183492205 · 发表于 2021-6-14 17:06

为什么我导入图片点击文字没有反应啊

helen0613 · 发表于 2023-2-13 10:41

感谢楼主分享

		自动登录	找回密码
密码			免费注册