这个图片的动态更新是怎么完成的

yangyang127

研究了很久，也不知道这个照片的动态更新是怎么完成的，请版主和高手帮我详细指点一下。尤其是那个函数的设置，跟图片控件是怎么设置的。万分感谢！

LangQueS

参考：

[原创]★带照片证件的制作方法★        http://club.excelhome.net/dispbb ... replyID=&skin=0

yangyang127

谢谢版主这么快的回复。代码我不懂，我想搞清楚实战技巧精粹中的技巧83中，那个照片是怎么用控件按钮实现的，我用的是2007版的EXCEL。请指教！！

LangQueS

我将附件中的照片位置放了一个绘图工具栏中的矩形框，通过修改矩形框的填充效果（并录制成宏），更换照片。

得到的代码：（删除了代码中的无用行）

Sub 矩形框刷新照片()
    ActiveSheet.Shapes("Rectangle 90").Select
    Selection.ShapeRange.Fill.UserPicture "E:\信件\A001.JPG"
    Range("J3").Select
End Sub

代码中调用照片的文件夹位置和照片名称可以用range来动态引用单元内容。

[ 本帖最后由 LangQueS 于 2009-4-12 13:04 编辑 ]

PYBp

表格做得真的是太棒了  

PYBp

真的希望可以做个朋友 QQ：284344244