excel vba对象定义的错误

我正在学习excel vba，并且我坚持了几个小时这个错误。我在这里阅读了一些解决方案，但我无法修复。此代码获取相片路径，并且插入在单元格A1excel vba对象定义的错误

Sub test() 
    Dim TheFile As String 
    TheFile = Cells(2, 14).Value 

    Range("A1").AddComment 
    Range("A1").Comment.Shape.Fill.UserPicture TheFile 

End Sub

这具有应用程序中定义或对象定义的错误的评论框的照片。我检查“TheFile”，它返回正确的字符串，它是文件路径

来源

2016-10-25 Shiro chan

你的代码的作品出现错误对我来说，只要'TheFile'具有完整路径_and_图片的名称 – user3598756

是的，如果我粘贴一个字符串而不是从单元格值中取路径。它的工作原理 –

您尝试在Range（“A1”），AddComment和Range（“A1”）之间添加'Range（“A1”）。Comment.Visible = True' Comment.Shape.Fill.UserPicture TheFile'？ –

也许你需要使用括号，或者添加注释althoug有alredy是一条评论

Sub test() 
    Dim TheFile As String 
    TheFile = Cells(2, 14).Value 

    'Only adds a comment if cell don´t already have one 
    If Range("A1").Comment Is Nothing Then Range("A1").AddComment   
    Range("A1").Comment.Shape.Fill.UserPicture (TheFile) 
End Sub

来源

2016-10-25 07:48:23 FatTony

谢谢。我添加了括号。仍然存在相同的错误 –

您是否尝试添加If语句我编写befor添加评论？ '如果范围（“A1”）。评论是没有那么范围（“A1”）。AddComment' – FatTony

对我来说代码完美的作品。你确定你从正确的单元格走的路？单元格（2,14）是单元格N2 – FatTony

excel vba对象定义的错误

回答

相关问题