OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

エクセル2000で画像リンク

  • すぐに回答を!
  • 質問No.172190
  • 閲覧数115
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 73% (71/96)

エクセルでデータ-表を作成しているのですが、
このデータ-表に2000枚以上ある画像データを取り込みたいorリンク
させたいのですが、どの本をみても1データずつ取り込む方法しか
記載されていません。
なんとか、一括で画像をエクセル2000に取り込むorリンクさせることはできないでしょうか?
教えてください。お願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

ファイルがどの様に保存されているか分かりませんし、画像の種類も不明なため、下記は、フォルダを指定し、jpgファイルを処理する例です。
セルB2から下に画像リンクしたファイル名を表示していきます。(Excel2000で確認)
応用してみてください。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュールで挿入した標準モジュールのコードウインドウに貼り付けます。

Sub HyperLinksSet()
  Dim myDrvDir As String '画像があるドライブ、フォルダ
  Dim myPicPat As String '画像の拡張子
  Dim rgTop As Range '表示するセルの先頭

  Dim myPic As String '検索した画像
  Dim Pcot As Integer '画像のカウンタ

  myDrvDir = "D:\001\Gazou" '*** これをセット ***
  myPicPat = "*.jpg"     '*** これをセット ***
  Set rgTop = Range("B2")  '*** これをセット ***

  myPic = Dir(myDrvDir & "\" & myPicPat) '検索する
  While myPic <> ""
    ActiveSheet.Hyperlinks.Add _
      rgTop.Offset(Pcot, 0), myDrvDir & "\" & myPic, TextToDisplay:=myPic

    Pcot = Pcot + 1
    myPic = Dir '次の検索
  Wend
End Sub
お礼コメント
kenta1005

お礼率 73% (71/96)

大変ありがとうございました。すっごく参考になりました。
と言うかおかげ様で出来ました。涙ものです。
投稿日時 - 2001-11-21 15:36:13
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ