[原创]★带照片证件的制作方法★

xs591222

多谢版主分享！收藏了慢慢学习。

xs591222

Sub 刷新照片()
y = Range("F3")
    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.UserPicture y
    Range("D3").Select
End Sub

当缺某一张照片时，执行上述宏，会出错，调试为上面红色一句，如何加一判断跳过？

LangQueS

试验一下：

On Error Resume Next

ljx63426

多谢版主分享！收藏了慢慢学习,好好领会其中的奥妙

飞刀再见飞刀

还是不太好用，一张纸打一个太浪费了，如何打四个怎么办？

LangQueS

QUOTE:

以下是引用飞刀再见飞刀在2008-3-14 9:01:14的发言：
还是不太好用，一张纸打一个太浪费了，如何打四个怎么办？

1楼已经增加了相关附件。

[此贴子已经被作者于2008-3-21 22:48:05编辑过]

wengjl

偶作了一点小的改进：

IFi4ECDc.rar (227.04 KB, 下载次数: 768)

2008-3-14 13:07 上传

点击文件名下载附件
[原创]★带照片证件的制作方法★

maozhm

谢谢！又学习了新东西

zzddhyq

谢谢,这东东不错

msyj

很实用，谢谢分享。