求高手帮助：批量插入同名照片到批注,如何设置批注显示图片为图片默认大小

花匠的植物园

这个是对应的一部分图片，请帮我设计一下哈{:soso_e154:}

花匠的植物园

由于图片一次性上传不鸟太多，所以又加3张图片。

花匠的植物园

需要添加图片的货号

KCFONG

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

End Sub

花匠的植物园

用上了，非常感谢！！！！

其实，我还有问题，，如果文件夹里既有JPG格式的图片，还有PNG格式的，也能用吗？

花匠的植物园

KCFONG 发表于 2012-3-13 13:38
Sub 插图片到批注保留原尺寸()
    Dim cell As Range, fd, t
    Selection.ClearComments

oh！发现有个地方出错了！明明没图片的货号显示成了下一个货号的图片，而下一个货号应该是有图片的，但是却没显示出来。错位了，怎么解决

KCFONG

UPload your files

东亚五金

楼主的要求比我的还高，支持

东亚五金

过几天在来学习。。。。

ww0000

好东西，做个记号，以后学习