画像ファイルへのハイパーリンクのリストの作成を自動化しようとしています。私のワークシートには列 A にファイル名がリストされており、それらのファイル (ワークシートの親フォルダーに保存されている) へのハイパーリンクを列 B に配置したいです。私は VBA の初心者ですが、これはかなり単純なはずですが、これを行う方法を見つけるために。
Macro Recorder を使用してみましたが、次のようになりました。
Sub Hyperlink()
'
' Hyperlink Macro
'
' Keyboard Shortcut: Ctrl+l
'
ActiveCell.Offset(0, -1).Range("Table1[[#Headers],[ACTIVITY '#]]").Select
ActiveCell.FormulaR1C1 = "file(a)"
ActiveCell.Offset(0, 1).Range("Table1[[#Headers],[ACTIVITY '#]]").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"..\file(a).JPG", TextToDisplay:="..\file(a).JPG"
ActiveCell.Offset(1, 0).Range("Table1[[#Headers],[ACTIVITY '#]]").Select
End Sub
どんな助けでも大歓迎です。乾杯。