高齢者、Excelで画像ファイルへのリンク一覧を作って写真を管理

はじめに

たくさんの写真のを整理する必要があるってありませんか？
多数の写真から見たい写真を見つけ出すのは結構大変です。
「このように写真一覧が簡単に作れたなら」と思いませんか？

簡単に作成できますので、手順をご覧ください。
高齢者でもこの技術を修得しておけば、重宝する場面は多いと思います。

🖱マウス操作、⌨キーボード操作は、行頭にアイコンを表示します。

画像ファイルへのリンク一覧の作成手順

１．目次ページを作る

　１．🖱Excelを起動し、最初のページを空白ページとします。
　２．⌨シート名を「画像リンク一覧」とします。

２．画像リンク一覧作成ボタンを作る

　開発タブから順に次のボタンを押します。
　１．🖱開発タブを押します。
　　　開発ボタンがない場合の対処方法を記事の最後に書いておきました。
　２．🖱挿入ボタンを押します。
　３．🖱ActiveXコントロールのボタンアイコンを押します。

🖱カーソルが「＋」になるので、画面左上でクリックします。
CommandButton1と書かれたボタンが作られます。

１．🖱CommandButton1ボタンを右クリックする。
２．🖱メニューからコマンドボタン オブジェクトを選ぶ。
３．🖱編集を選ぶ。

⌨カーソルが表示されるので「画像リンク一覧作成」に修正します。

２．画像リンク一覧作成ボタンにプログラムを書く

🖱目次作成ボタンをダブルクリックします。
Visual Basic編集画面が現れます。

🖱Visual Basic編集画面に下記プログラムをコピペします。
プログラムは先の高齢者、Excelでシートの目次を作って情報をすっきり管理とほとんど同じです。
シートへのリンクを画像ファイルへのリンクに変更しただけです。

 Private Sub CommandButton1_Click()
    Dim FolderPath As String
    Dim FileName As String
    Dim i As Integer
    Dim iRow    As Integer
    
    iRow = 4
    iColumn = 2
    FolderPath = "C:\Users\WindowsUser\コンピュータ\"
    FileName = Dir(FolderPath & "*.jpg")
    Do While FileName <> ""
         ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iColumn), Address:=FolderPath & FileName, TextToDisplay:=FileName
        iRow = iRow + 1
        FileName = Dir
    Loop
End Sub

画像リンク一覧の作成操作

🖱目次作成ボタンをクリックします。
(B, 4)から下方向にリンク一覧が作成されます。

リンクをクリックすると画像が表示されます。

出来上がった目次の見栄えが気に入らなかった場合、目次完成後に手直しすれば良いと思います。
例えば、
　もっと左寄りにしたい場合はA蘭を狭くします。
このようにデザインを変更してもプログラムには影響しません。

困った場合の対応

困った１：[開発]タブが表示されていない

以下の操作で表示されるようになります。
１．[ファイル] で、[オプション] を選択します。
２．[リボンのユーザー設定] を選択します。
３．[メイン タブ] の [開発] チェック ボックスをオンにして、[OK] を選択します。

まとめ

最近は高齢者でもパソコンを使う人が多くなりました。
写真を整理したり、記録用にまとめたりと、画像を整理したい場面が多くありませんか？
一覧を作る方法を修得しておけば、写真が分かり易くまとめられます。

---

【マガジン】ＩＴ技術
ＡＩは年寄りに若者の気持ちを教えるツールになれる？
去年前半の生成AIは嘘つきだった、去年後半の生成AIはバカだった、今年の生成AIにあなたは何を期待しますか？
トップの座を脅かすとこのような試練が訪れる（前編）
PhotoSwiper V5を使っておしゃれな写真集ウェブページを簡単に作成する
Blazor.BrowserExtension.Templateでブラウザ拡張機能を作る
６年前に新品10万円台だったパソコンを1万円台中古パソコンに買い替える
高齢者、Excelでシートの目次を作って情報をすっきり管理
高齢者、Excelで画像ファイルへのリンク一覧を作って写真を管理（本記事）