![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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ランキング
-
-1234 を (1234) と表記する由...
-
エクセルで現場ごとに機材の移...
-
他部署からもらう データで、 ...
-
Excel 1の位の数字で処理を分岐...
-
とびとびの大量セルを選択した...
-
MACにおけるエクセルの入力トラ...
-
Excelのセルの色を変えた行(す...
-
エクセルの数式バーのフォント...
-
エクセルの数式について教えて...
-
exselの質問です
-
エクセルの問題です。絶対値の...
-
半角カタカナをヘボン式ローマ...
-
Excelについて
-
Excelでの記号と特殊文字につい...
-
WPS OFFICEでの縦書きについて
-
Excel関数について教えてくださ...
-
職場の人から聞かれており、こ...
-
【マクロ】関数をセルに入力す...
-
Excelの数式について教えてくだ...
-
ある表にフィルターをかけて出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報