• ベストアンサー

大量の画像へのハイパーリンクを貼りたい

今マイドキュメントの中に「写真」というフォルダを作り、3000枚ほどのデジカメで撮った写真が入ってます。ファイル名は あ-01 、あ-02、あ-03、・・・、あ-31 い-01、い-02、い-03、・・・、い-51 う-01、う-02, ・ ・ A-01、A-02、・・、A-35 B-01、・・ ・ ・ という具合になってます。 ここでエクセルのA列にずらっと、上記のファイル名を順番に記入(手作業+オートフィル)したとして、それぞれの写真を「写真」フォルダの中の画像にハイパーリンクを設定したいのですが、どうしたらいいでしょうか? A列から直接リンクしてもいいですし A列にはファイル名のみで、B列などからリンクさせてもいいです。 できれば、ファイル名は変えないでここままやりたいのですが、なるべく楽にハイパーリンクを設定できる方法があればお願いします。 ちなみにエクセル2000です。

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

  • ベストアンサー
回答No.1

・A列に入力されている文字列がファイル名と全く同じ ・拡張子はすべて .jpg の場合ですが、B1に =HYPERLINK("C:\My Documents\写真\"&A1&".jpg","Jump") と入力して、下方にコピーします。

michirin
質問者

お礼

さっそくのお返事ありがとうございます。 やってみたところ・・おお! ばっちりです。 これで大分楽になりそうです。 ありがとうございました。

その他の回答 (3)

  • surounin
  • ベストアンサー率28% (30/106)
回答No.4

要点のみですが^^; ファイル数100 記述は2行目からで A列にファイル名が記述されている 拡張子はJPG Dim I as integer Dim Ps as string Dim Fname as string for I=2 to 101 Dim I As Integer Dim Pth, Fname As String Sub AutoLink() For I = 2 To 5 Cells(I, 1).Select 'パス Pth = "ここまでのパス\My Documents\写真\" Fname = Cells(I, 1).Value Cells(I, 2).Select ActiveSheet.Hyperlinks.Add        Anchor:=Selection, Address:= _ "" + Pth + Fname + ".JPG", TextToDisplay:="" + Fname Next I End Sub

michirin
質問者

お礼

さっそくのお返事ありがとうございます。 ちょっと申し訳ないのですが、私の力では解読不能のようです・・・ ですが、せっかく書いていただいたので、時間はかかるかもしれませんが勉強していければと思います。 ありがとうございました。

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.3

こんにちは。 A1にファイル名が入力されているなら、 B1に以下の関数式を入力します。 =HYPERLINK("C:\Picture\" & A1 & ".jpg",A1) ここで、C:\Picture\ は画像フォルダのパスになっています。ここは変更して下さい。 あとは、B1をオートフィルでコピーすればOKです。

michirin
質問者

お礼

さっそくのお返事ありがとうございます。 No.1さんと同じ方法だと思うのですが、このやり方でうまくいきました。ありがとうございました。

  • FlyingAce
  • ベストアンサー率44% (214/485)
回答No.2

あんまりスマートな方法じゃないですが・・・ A1セルからずらーっと下にファイル名があり、画像ファイルの拡張子は「.jpg」としたら、 B1セルに「=CONCATENATE(A1,".jpg")」と入れて下へオートフィルします。 次に、B列全て選択してコピー、C列に値のみ貼り付けし、 D1セルに「=HYPERLINK(C1,"open")」と入れて下へオートフィルします。 ここで一旦「写真」フォルダにこのエクセルファイルを保存します。 D列のopenをクリックするとA列のファイル名の画像が開くと思います。 「open」は「開く」とか「見る」とか記号とか、なんでもご自由に・・・ B、C列が目障りなら、非表示にしておくとよいですね。

michirin
質問者

お礼

さっそくのお返事ありがとうございます。 この方法も試してみたのですが、なぜかうまくいきません・・ B列が#NAME? になってしまいました。 もうちょっといじってみたいと思います。

michirin
質問者

補足

追記:よく見ると、綴りを間違って入力してました^^; しっかりと、いけました。 画像とエクセルファイルを同じフォルダに入れとくと簡単になりそうです。 A列も最初から、あ-001.jpg のように入れておいたほうがいいみたいですね。 ありがとうございました。

関連するQ&A