|
▼arajin さん:
>設定した内容でそのまま開くなら、Followメソッドでいいのでは?
>
>With ws.Cells(Row_Num,Col_Num).Hyperlinks
> If .Count = 0 Then
> MsgBox "ハイパーリンクが設定されてません"
> Else
> .Item(1).Follow
> End If
>End With
>
>もし、設定情報を加工の上、処理したいってことだったらすみません。
arajinさん
早々の返信有難う御座います。Followメソッドも一度は検討したのですが、ワークシートの対象セルの表示をファイル名等の表示に変更したいのは、単にフルパス状態をすっきりさせたいだけなのですが、Helpを読んで見たのですが、ワークシート上のメニュ操作でハイパーリンクを設定する際に、設定ウインドウが表示され上部に表示文字列(TextToDisplay)と下部にアドレス(Address)がデフォルトで同じ設定になって現れます。ここでTextToDisplayを編集することが出来ますし、ワークシート上のセルには、TextToDisplayの表示内容になります。このセルにカーソルをもって行くと数式バーにはやはり、TextToDisplayの内容が表示されます。この状態の場合、今回のERRORとなりました。フルパスのアドレスはどうやって呼び出せばよいのかがわからなくなり今回の質問となりました。
arajinさん、このパイパーリンクの構造をご教授頂けないでしょうか。
|
|