[已解决]可不可以设置弹窗向批注中插入图片

一沫昔阳虹w

     Application.Dialogs(342).Show                   '这个弹出窗口选择的图片，直接插入到工作表上了；
     [b15].Comment.Shape.Fill.UserPicture filename   '向批注中插入图片
     如何能够的到，我选择的图片的路径呢，如果能得到弹窗中选中的图片的路径，就行了
    这个方法行不通，是不是，有其他方法呢？
    谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2016-9-16 14:28

Sub TEST()
    Filename = Application.GetOpenFilename(fileFilter:="图片,*.jpg;*.jpeg;*.png;*.bmp;*.wmf;*.jpe,All Files(*.*),*.*")    '选择图片
    With [B1].AddComment
        .Shape.Fill.UserPicture Filename   '向批注中插入图片
        .Shape.Height = 150            '调整高度
        .Shape.Width = 150             '调整宽度
    End With
End Sub

跳转到最佳答案楼层

蓝桥玄霜

http://club.excelhome.net/thread-1250122-1-1.html

zjdh

Sub TEST()
    Filename = Application.GetOpenFilename(fileFilter:="图片,*.jpg;*.jpeg;*.png;*.bmp;*.wmf;*.jpe,All Files(*.*),*.*")    '选择图片
    With [B1].AddComment
        .Shape.Fill.UserPicture Filename   '向批注中插入图片
        .Shape.Height = 150            '调整高度
        .Shape.Width = 150             '调整宽度
    End With
End Sub

zjdh

若仅仅是插入图片（已有批注了），则
将
With [B1].AddComment
改为
With [B1].Comment

一沫昔阳虹w

zjdh 发表于 2016-9-16 14:28
Sub TEST()
    Filename = Application.GetOpenFilename(fileFilter:="图片,*.jpg;*.jpeg;*.png;*.bmp;*. ...

非常感谢，就是要这个效果！

一沫昔阳虹w

蓝桥玄霜 发表于 2016-9-16 10:48
http://club.excelhome.net/thread-1250122-1-1.html

感谢！

一沫昔阳虹w

zjdh 发表于 2016-9-16 14:31
若仅仅是插入图片（已有批注了），则
将
With .AddComment

感谢！