Windows XP
Excel2000
現在エクセルに、gif画像へのハイパーリンクを設定しています。
その画像そのものは自社のシステムから、アップロードされたもので、
gif画像へのURLは、http://xxxxxxx/xxxx/xxxx.gifのような形式になっています。
ハイパーリンクをクリックすると、Microsoft Photo Editorが勝手に
起動します。
しかし、エディターの仕様なのか、せっかくのgif画像が動きません。
VBAでも何でもかまいませんので、強制的にIEで開くように変更できませんか?
もしくは、エディターのままでもいいので、gif画像が動くように
設定変更する等・・・
ちなみに、gif画像の関連付けをIEに設定してみてもダメでした。
通常使用しているブラウザはIEです。
どなたかお知恵を貸してください。よろしくお願いします。
No.1ベストアンサー
- 回答日時:
HyperLinkは諦めて、セル選択のイベントマクロを使うというのは如何でしょうか。
セル範囲の限定やエラー処理は盛り込んでありませんので、雛形とお考え下さい。シートモジュールに記述します。Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myURL As String
Dim objIE As Object
myURL = Target.Text
If myURL = "" Then Exit Sub
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate myURL
End Sub
なお、ご参考までにハイパーリンクは次の様に削除できます。
Sub deleteHyperLink()
ActiveSheet.UsedRange.Hyperlinks.Delete
End Sub
いただいたコードを貼り付けてみたところ、IEで開きました!
ありがとうございます。
エラーの書き方がわからなかったので、とりあえず、以下のような形で
Y列にのみ設定するように変更してみました。
といっても、1行足してみただけなのですが・・・
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myURL As String
Dim objIE As Object
If Target.Column = 25 Then
myURL = Target.Text
If myURL = "" Then Exit Sub
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate myURL
End If
End Sub
動いてはいますが、書き方として正しいですか?
No.3
- 回答日時:
ANo.1です。
misa0928さんの環境に合わせれば、それが最善と思います。もし、同じ列内に、(元)ハイパーリンク以外のものが含まれているなら、Target.Textの頭が"http"でなければ抜けるといった処理を盛り込めば良いと思います。ありがとうございます。
うまくいかなった頃はいちいちセルの中身のURLをコピーして
IEに貼り付けて・・・としていたのがだいぶ楽になりました。
ちなみに、Y列にはhttp://~以外のものは入ってませんので、
その必要はありません。
No.2
- 回答日時:
既に#1ご回答で済んでいると思いますが
http://officetanaka.net/excel/vba/tips/tips42.htm
が見つかりましたので紹介します。参考に。
#1は>IEを指定して開く方法(2)に当たると思います。
ーー
簡単に
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then
MsgBox "IEで開く"
Call Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " & Range("A6"), vbNormalFocus)
End If
End Sub
ーー
でも1行で出来ました。
前提はA6に
C:\Documents and Settings\XXX\My Documents\My Pictures\無題.GIF
と文字列が入れてあり、A2をクリックすると
IEで上記gifファイルがIEで出てきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- フリーソフト 画像貼り付け、URLに飛べる軽いメモ帳 3 2022/05/12 07:42
- PHP $filePath = './user_img/' . $file['name'];? 1 2022/12/10 07:29
- その他(ブラウザ) IE・edgeで日増しに観られるサイトが減ってくる。 1 2022/10/04 22:40
- ノートパソコン gifアニメ―ションを動画(mp4でOK)にしたい 1 2022/08/14 09:51
- ノートパソコン Outlookメールで本文中のgif動画をDTに保存したい 3 2023/03/09 21:38
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Ameba(アメーバブログ) アメブロは、HTMLのタグの入力を許さないブログ・サイトですか? 1 2023/06/18 18:48
- ホームページ作成・プログラミング アメーバ・ブログは"HTMLタグ"を許可してないのですか? 2 2023/06/17 21:08
- モニター・ディスプレイ Displayport接続時にディスプレイ設定の一部の項目がチラついて変更できない 3 2022/07/31 10:06
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について教えて...
-
Excelカスタム関数(アドイン登...
-
Excelデータをコピペして、ペー...
-
Excel関数-文字列で自動作成さ...
-
スプレッドシート、Excelでの数...
-
Excelで50個のセルに同じ文字を...
-
Microsoft Officeの中古は信用...
-
スプレッドシートで使う数式を...
-
エクセルVBA、別ブックへ転記す...
-
エクセルで会社の従業員のデー...
-
エクセルで不等号記号(≠)が上に...
-
エクセルの表で1年間の曜日を...
-
A列とB列を参照してC列に連番を...
-
エクセルの空欄をつめて、次の...
-
エクセルでの特別な文字を上に...
-
エクセルでセルに標準で入力さ...
-
エクセル日付 文字列の関数がエ...
-
エクセル2013で月間勤務表から...
-
エクセルの日付を編集する
-
EXCELの質問です 119から足した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報