[54-2] 动态图片-------------------------已结

ldy

跟切割图片 有相通之处，用VBA方法比较好做，但本题要求宏安全性为“非常高”，任何代码都无效了。

这道题是目前限制条件最少的竞赛题，达到动画效果即可。 如动画不能显示，请运行附件中的Gif文件

2分题            
      
附件中只有一幅图片，为方便显示边框设为红色。      
请按照动画所示完成答题，需要什么请自行添加      
并附简要制作过程说明      
      
答题完成后，保存，把EXCEL安全性设为“非常高”，关闭EXCEL。      
重新运行文件，在EXCEL安全性设为“非常高”的情况下，也可以使用      
除此之外没有任何限制      
      
没有提示也没有限制，所有要求都在动画中 ，   注意细节        
      
（答案中滚动条的颜色可以和动画不同）      

答题者请跟帖占位
      
请看清下面的要求，不符合要求的答案，可能会被忽略      
请把Excel文件命名为  54-2基础+论坛ID.xls      
请把文件发送到26258103@163.com 邮件标题为  54-2基础 + 论坛ID      
答题截止日期 2009-11-20


Excel+ GIF 动画


仅Excel


以下为已收到答案的邮箱截图，请答题者自行核对，如下面截图中没有你的邮件，请重发。
此图每周6更新

	技术分	财富分	过程说明
冻豆腐	2	20	无	正确答案
zm0115	1	30	无	控件使用不当
jatzhang	2	20	无	正确答案
shlzml	1	30+20	有	公式不当，达不到动画结束时的效果
biaotiger1	1	0	无	控件使用不当，公式不当，达不到动画结束时的效果
xiangzi728	1	30+20	有	公式不当，达不到动画开始时的效果，有说明
我是沙	1	30+20	有	控件使用不当，有说明
xowi99	2+1	20+20	详尽	优秀作品，有完善的说明，发现并提出BUG问题
wshcw	1	0	无	控件少了两个，公式不当，图像变形
lbzcc	2	20	无	正确答案
Alzeng	1	0	无	控件使用不当，公式不当，达不到动画结束时的效果

[ 本帖最后由 ldy 于 2009-11-23 04:19 编辑 ]

冻豆腐

邮件已发！

[ 本帖最后由 ldy 于 2009-11-21 19:45 编辑 ]

neverquest

汗...发另外一题的邮件误点成此题了....版主手下留人！

[ 本帖最后由 neverquest 于 2009-11-2 15:43 编辑 ]

zm0115

邮件已发,版主的都回复了才想起来占位,呵呵.



[ 本帖最后由 ldy 于 2009-11-21 19:28 编辑 ]

jatzhang

邮件已发，占位啦~
请版主批阅·



[ 本帖最后由 ldy 于 2009-11-21 19:30 编辑 ]

biaotiger1

又搞了一个“注意细节” 却不知道是否遗漏
邮件已发，请斑竹费心审阅
谢谢



管理界有句话叫 “细节决定成败” -ldy




[ 本帖最后由 ldy 于 2009-11-21 19:32 编辑 ]

xiangzi728

邮件已发，请版主批阅！

制作过程：
1、定义名称：
Picture=OFFSET(INDIRECT("sheet1!"&ADDRESS(30-答题区!$D$4,52-答题区!$D$5)),,,答题区!$D$6,答题区!$D$7)
2、制作图片：
在控件工具箱中选择“标签”控件，调整合适大小，编辑栏里输入：=Picture
3、插入控件：
插入4个滚动条控件，设置各个滚动条的起始值、链接单元格分别为答题区D4至D7，调整控件的颜色、大小及位置。
4、设置落款：
在Sheet1图片上插入“标签”控件，编辑里里输入：=$A$26
选中Sheet1!A26单元格，编辑栏里输入=答题!M2
5、完成

[ 本帖最后由 ldy 于 2009-11-21 19:34 编辑 ]

我是沙

邮件即刻发给老师,先发贴是为了报楼层!

1.画四个窗体滚动条控件,并放入合适的位置并分别链接到辅助区域:M2:N3,
2.把原表完全放入AF2:AO16区域
(绘图里设置自动靠齐网格线)
3.定义名称:
竖1 =OFFSET(Sheet1!$AF$1:$AO$1,IF(16-Sheet1!$N$2>Sheet1!$N$3,Sheet1!$N$2,16-Sheet1!$N$3),,Sheet1!$N$3)
4.插入任意一个图片,并=竖1,得到过渡图片
5.定义名称:
横1 =OFFSET(Sheet1!$P$2:$P$16,,IF(11-Sheet1!$M$2>Sheet1!$M$3,Sheet1!$M$2,11-Sheet1!$M$3),Sheet1!$N$3,Sheet1!$M$3)
6.再插入任意一个图片,并=横1,得到结果图片
7.为图片添加落款,落款处用了间接引用,并为落款裁掉边框等
落款=Sheet1!$AV$1

[ 本帖最后由 ldy 于 2009-11-21 19:38 编辑 ]

shlzml

邮件已发，请版主查阅
谢谢

简要说明(源图片在sheet2中)   
   
1.滚动条用控件工具箱里的,链接的单元格分别是A40:A43，min为1，max为10，相关作用见B40:B43说明；
   
2.自定义名称中定义了一个P，
引用位置是函数=OFFSET(Sheet2!$A$1,Sheet1!$A$42-1,Sheet1!$A$43-1,Sheet1!$A$41,Sheet1!$A$40)；   
   
3.图片显示的方法是插入对象，编辑栏中改为=p；   
   
4.Sheet2!A50中有函数=IF(Sheet1!M6="""","""",Sheet1!M6),作用是链接M6的落款，并且避免了当M6为空白时图片上显示0。
用照相机拍下Sheet2!A50单元格，将图片背景与边框都设置成无，放到sheet2中的源图片合适位置。  
   
   
     
   

[ 本帖最后由 ldy 于 2009-11-23 04:15 编辑 ]

xowi99

邮件已发，请版主查阅！

1 在“源图片”工作表中调整一定的行列的高宽，以便其组成 的单元格区域正好容纳下源图片。
本例选择26行×28列单元格区域A1:AB26。
2 将源图片复制粘贴至“答案”工作表，调整行高列宽以使单 元格区域B2:J30能完整显示源图片。
删除“答案”工作表中的图片。

3 在第一行、第一列分别添加两个滚动条（控件工具箱中的）
设置滚动条的属性。
垂直滚动条属性：
垂直滚动条LinkedCell分别为：A2,A3
水平滚动条LinkedCell分别为：B1,C1
4 选中“答案”工作表中B2单元格，在按下Shift键的同时单击
菜单栏中编辑－复制图片，然后单击粘贴。粘贴后的图片与B2单元格对齐。
5 定义名称
cols
rows
pic
cols：“源图片”工作表中图片区域占用的列数
rows：“源图片”工作表中图片区域占用的行数

6 选中第4步的图片，在编辑框输入公式：=pic 至此用滚动条控制图片移动功能基本实现了。
7 制作落款。
在“源图片”中添加一个文本框，取消文本框的填充、线条颜色。
将文本框放到图片的右下角。
选中文本框，在编辑栏中输入公式：＝答案!L3
有一点未实现：答案工作表L3单元格内容改变时，图片中落款未能及时刷新，需按下F9键或单击滚动条才能更新。

END

[ 本帖最后由 ldy 于 2009-11-23 02:19 编辑 ]