vba - Excelでフォルダーから画像を動的に表示する

Question

いくつかの値を持つセルがいくつかあります。この値は、フォルダー内の画像の名前です。セル「値」をクリックすると、「値」という適切な画像を表示したいと思います。名前の値を持つセルがクリックされたときに画像を追加すると、画像が表示されるように、動的に実行したいと思います。どこから始めればよいか教えていただけますか？これを行う方法を示すチュートリアルはありますか? たくさん見つけましたが、リストを使用し、写真をExcelワークシートに保存しています。例はありますか？

Answer 1

Private Sub CommandButton2_Click()
           On Error Resume Next
          Dim imageFolder As String 'this is the folder where the image is located
    Dim imagePath As String


    Cells.Find("Code").Offset(1).Select
Range(Selection, Selection.End(xlDown)).Select
For Each cell In Selection
imageFolder = cell.Value
imagePath = "C:\Documents and Settings\kollol\My Documents\Quotes\Image\" & imageFolder

cell.Offset(0, 2).Select

ActiveSheet.Pictures.Insert(imagePath & "\" & "1.jpeg").Select ' here the name of the image is 1.jpg


 With Selection
.Placement = xlMoveAndSize
 .ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Width = ActiveCell.ColumnWidth
 .ShapeRange.Height = ActiveCell.RowHeight - 5
.ShapeRange.IncrementLeft 10.5
.ShapeRange.IncrementTop 4#
 End With

Next cell

End Sub