Excel総合相談所 155

834 ：名無しさん＠そうだ選挙にいこう：2024/01/25(木) 23:01:05.14 .net

>>832
セルの表示文字列は01-1や01-2で、アドレスを直接入れてはいないため2行になっているということはないです。

>>831
>ハイパーリンクはセルじゃなくてワークシートに対して設定される物
Activeworksheet.Hyperlinks.Add anchor:=Range("A1")
となるのはそういうことだったんですね。

>1セルに1リンクというのは正解
>2つ設定しようとしても1つ目を明示的に削除してからじゃないと再設定はできない
該当のセルで右クリック→ハイパーリンクの編集をクリックすると出てくるウィンドウの下の方にある「アドレス(E)」には「\\.\.\あいう-01-2.JPG」しか表示されないため「\\.\.\ABC-01-1.JPG」は削除されているというか、表示されないのですが、VBAで下記の処理をすると「Hyperlinks(1)」が「\\.\.\ABC-01-1.JPG」になっているため青い太字になってしまいます。
※「rng2」は走査するセル範囲

Dim wb As Workbook
Set wb = ActiveWorkbook
Dim fileName As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

With CreateObject("WScript.Shell")
.currentdirectory = wb.Path
End With

If rng2.Hyperlinks.Count > 0 Then
fileName = fso.GetAbsolutePathName(rng2.Hyperlinks(1).Address)
If fso.FileExists(fileName) Then
Else
rng2.Font.Color = vbBlue
rng2.Font.Bold = True