こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBA によるハイパーリンクセル挿入

よろしくお願い致します。
Excelで写真データの管理出来るシートを作成しようとしています。
基本項目として、5項目+今回のハイパーリンクパスです。
1データ横一行に入力を行い、必要条件に応じシートから抽出し行末のハイパーリンクをクリックし写真を確認出来る様な事を想定しています。
ネットにて調べたのですが、ハイパーリンクを入力したいセルを選択後マクロボタンを押し「msoFileDialogFilePicker」を使用して該当ファイルを選択した物のハイパーリンクパスをセルに納める様に出来ればと思っています。当ファイルの使用は私以外の者が使用する為、上記VBAのFileDialogのインターフェースを使いたいと思っています。
何分当方VBA初心者の為、皆様のお力を頂きたくよろしくお願い致します。

投稿日時 - 2009-11-25 00:31:07

QNo.5473850

困ってます

質問者が選んだベストアンサー

Sub Hyperlink挿入()
Dim FLDname As String
Dim fname As String
FLDname = "E:\写真\*.jpg"
fname = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = FLDname
.AllowMultiSelect = False
If .Show = True Then
fname = .SelectedItems(1)
End If
End With
if fname<>""
ActiveCell.Value = fname
ActiveSheet.Hyperlinks.Add ActiveCell, fname
end if
End Sub
こんな感じでいかがでしょう。

投稿日時 - 2009-11-25 11:54:05

補足

rivoisu様

出来ました!!
ご教授頂いた、内容を十分なりに変更しました。
参考になりました。ありがとう御座いました。

Sub Hyper_insert()
Dim fname As String

With Application.FileDialog(msoFileDialogFilePicker)
If .Show = True Then
fname = .SelectedItems(1)
Else
Exit Sub
End If
End With
ActiveCell.Value = fname
ActiveSheet.Hyperlinks.Add ActiveCell, fname
End Sub

投稿日時 - 2009-11-26 01:14:41

お礼

rivoisu様
お世話になっております。
ご指示頂いた、スクリプトをマクロ登録し実行しましたが13行目の
if fname<>"" の所でコンパイルエラー 構文エラーとなってしまいます。4行目のFLDnameの""内は当方の画像ファイルを集約しているパスに変更しました。
ご教授いただけますでしょうか。お手数をお掛けいたしますがよろしくお願い致します。

投稿日時 - 2009-11-26 00:54:16

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問