セル

質問

セル
１２３　←このセルにマウスをおくと図１２３ファイルがコメントで表示される。クリックすると文１２３ファイルがリンク表示される。
４５６　←このセルにマウスをおくと図４５６ファイルがコメントで表示される。クリックすると文１２３ファイルがリンク表示される。
７８９　←このセルにマウスをおくと図７８９ファイルがコメントで表示される。クリックすると文１２３ファイルがリンク表示される。

ようにしたいのですが、

全てのセルで図７８９が表示されてしまいます・・・

Sub setCommentToHyperLinks3()

'特許公報クリア()

Dim c As Range
Dim s As String

Dim myRange As Range
Dim item As Hyperlink

'公開公報クリア()

Range("E6:E10").Select

For Each c In Selection
If c.Value <> "" Then
'↓フォルダ名を指定してください。
s = "P:\74B\【06 その他】\特許ＤＢ\登録公報\公開公報\" & c.Value & "\" & c.Value & "-frame.htm"

With ActiveSheet

For Each item In ActiveSheet.UsedRange.Hyperlinks
If UCase(Right(item.Address, 3)) = "HTM" Then

Set myRange = item.Parent
With myRange
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture "P:\74B\【06 その他】\特許ＤＢ\登録公報\公開公報\" & c.Value & "\000002.gif"
End With
End If

Next

End With

End If
Next

End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.2

mitarashi · ベストアンサー

ご参考にどうぞ。
http://okwave.jp/qa/q5640681.html

下記で、しばらく悩みました。
>Range.Comment.Shape.Fill.UserPicture　の引数のファイル名は、constもしくは、
>string*50といった形でぴったりサイズに宣言した文字列変数でないと、
>エラーになります。（少なくとも当方のXL2000の場合は）
>このファイルは読み込んでしまえば、中味が変わっても可なので、使い回ししております。

お礼

ありがとうございます。

まさに、こちらのリンクを以前見て、利用させていただきました。

この場合、実際に試していないのですが、リンクごとに異なる図が表示されるのでしょうか。

回答No.1

xtort

この部分で画像が固定されているからではないですか？

Comment.Shape.Fill.UserPicture "P:\74B\【06 その他】\特許ＤＢ\登録公報\公開公報\" & c.Value & "\000002.gif"

文字列拾ってくるとか何でもいいんですが、対応した画像にそれぞれ変更されるようにしないと、コメント内の画像が変化しないですよ。

お礼

ご解析ありがとうございます。

なるほど、ここがあやしかったのですね。

素人の目にはどれも同じように見えてしまい、なんだかわけがわかりません。

もう少し、具体的な解決方法などございませんでしょうか。

素人が難しいことをしてなんだか生意気なようですが、

何卒、ご指導のほどよろしくお願いします。

補足

ちなみにこの部分

" & c.Value & "\000002.gif"

は、図000002が、上段のフォルダ（c.value)ごとに異なっており、この部分は問題ないようです。

１つずつのセルで、それぞれ表示してくれればよいのですが・・・