[原创]批量插入图片到批注（4楼升级）

andysky · 发表于 2007-10-20 13:38

QUOTE:

Sub 批量插入同名照片到批注()
    Dim cell As Range, fd, t
    Selection.ClearComments
    If Selection(1) = "" Then MsgBox "不能选择空白区。", 64, "提示": Exit Sub
    On Error GoTo err
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)    '允许用户选择一个文件夹
    If fd.Show = -1 Then
        t = fd.SelectedItems(1)    '选择之后就记录这个文件夹名称
    Else
        Exit Sub    '否则就退出程序
    End If
    For Each cell In Selection
        With cell.AddComment
            .Visible = True
            .Text Text:=""
            .Shape.Select True
            Selection.ShapeRange.Fill.UserPicture t & "\" & cell.Text & ".jpg"
            cell.Offset(1, 0).Select
            .Visible = False
        End With
    Next
    Exit Sub
err:
    ActiveCell.ClearComments
    MsgBox "未找到同名的JPG图片！", 64, "提示"
End Sub

[此贴子已经被作者于2008-2-11 9:05:39编辑过]

[ 本帖最后由 andysky 于 2009-8-14 16:59 编辑 ]

zz5151353 · 发表于 2007-10-20 13:46

有用非常讚

謝謝 andysky 版主提供分享 !!!

[em17][em17][em17]

[em23][em23][em23]

[em24][em24][em24]

[em27][em27][em27]

LangQueS · 发表于 2007-10-20 14:09

谢谢andysky版主！

andysky · 发表于 2007-10-20 15:22

升级一下

加入调整大小的功能

xowi99 · 发表于 2007-10-20 16:16

学习了

谢谢andysky版主

胡剑0227 · 发表于 2007-10-20 20:16

2007的吗？好漂亮呀，呵呵，还没用过

雪地山羊 · 发表于 2007-10-20 22:08

晚上出来逛一圈好东西谢谢 andysky 版主

先收藏

andysky · 发表于 2007-10-20 23:42

QUOTE:

以下是引用胡剑0227在2007-10-20 20:16:21的发言：
2007的吗？好漂亮呀，呵呵，还没用过

如果是excel2007的功能,你还有机会看到原代码吗?

红衣公主 · 发表于 2007-10-21 21:43

楼主的东西怎么时效都这么短呢？

andysky · 发表于 2007-10-22 07:44

QUOTE:

以下是引用红衣公主在2007-10-21 21:43:08的发言：
楼主的东西怎么时效都这么短呢？

什么意思？

升级太快？

[此贴子已经被作者于2007-11-6 9:37:31编辑过]

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