excel vbaオブジェクト定義のエラー

Question

私はexcel vbaを学習していますが、私はこのエラーで数時間立ち往生しています。私はここでいくつかの解決策を読んだが、私はそれを修正できない。このコードは写真パスを取得し、セルA1のコメントボックスに写真を挿入します。

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

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

End Sub 

これはアプリケーション定義またはオブジェクト定義エラーです。私はそれがファイルパス

Answer 1

で正しい文字列を返します。たぶん、あなたは括弧を使用する必要がある、またはエラーがalredyそこalthougコメントを追加することで発生する、「TheFile」をチェックすると、コメントが

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