久しぶりにVBA

ちょっと仕事で使う為に久しぶりにExcelVBAを触った。
簡易的なイメージビューアー的なものを作った。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '選択範囲を変更したときに実行
    MIN_ROW = 2
    If (Not Cells(Target.Row, Target.Column).Value = "") And Target.Row >= MIN_ROW And Target.Column = 3 Then
        Image1.Picture = LoadPicture(ThisWorkbook.Path + "\" + Cells(Target.Row, Target.Column).Value)
        Cells(1, 11).Value = Cells(Target.Row, Target.Column).Value
    End If
End Sub

ソースはただこれだけ、だけど。
３カラム目に対象画像ファイル名を入れて、Excelファイルと同一フォルダに入れておけばOK！
あと、Imageコントロールが必要。

徹夜明けでちょっと文章がおかしいかも･･･。