EXCEL2000VBAでハイパーリンクの有無を調べたい。

おはつです。どなたか、知ってらっしゃる方がいらしゃいましたら、よろしくお願い致します。
[環境]
Windows2000
EXCEL2000

[質問]
・下記のソースで、ハイパーリンクが設定されている項目
をcmdボタンイベントから設定を外しました。しかし、ハイ
パーリンクが元データに設定されていない場合、Errが返り
ます。
selectで指定されたセルのハイパーリンク有無を調べる
方法を教えて頂けないでしょうか？

If Not IsNull(Trim(Range("E105").Text)) Or Trim(Range("E105").Text) <> "" Then
sURL1 = Trim(Range("E105").Text)
Range("E105:AG108").Select
Selection.Hyperlinks(1).Delete
End If

No.1 ベストアンサー 回答者： GuruGuru22 回答日時： 2003/12/03 17:08

selection.hyperlinks.count

でリンクの数を取得すればよいかと。

この回答へのお礼

あらっ。。。
あっさり解決しました。(^^;


EXCELのVBAに慣れていなくCOUNTも↓
selection.hyperlinks(1).count
なんてアホ！な事を永遠と試したりしてErrでまくって
ました。 ホント助かりました。
またお願いします。。。

お礼日時：2003/12/03 17:57