Formule zoekt Afbeelding

[Sebastiaanb]

Hoi,

Is het mogelijk om een formule te schrijven die automatisch naar afbeeldingen zoekt?
Ik moet vaak op maat gemaakte Excel bestanden maken waar de afbeelding klein in staat. Nu is dit veel handmatig werk.
Inmiddels kan ik alles geautomatiseerd doen met formules maar de afbeelding is me nog niet gelukt.

Graag zou ik een formule willen die automatisch naar een bestandsnaam zoekt in een cell en hier de afbeelding plaatst.

Weet iemand of dit mogelijk is en hoe dit mogelijk is?

Groetjes, Sebastiaan

 

[sylvester-ponte]

Sebastiaan, neem eens een macro op terwijl je een afbeelding invoegt.
en kijk eens hoe hij er uit ziet.

 

[Sebastiaanb]

Bedankt voor je reactie. Nu heb ik onderstaande macro

Sub Afbeelding()
'
' Afbeelding Macro
'

'
ActiveSheet.Pictures.Insert("C:\Users\sebastiaan\Desktop\0055.jpg").Select
Selection.ShapeRange.ScaleWidth 0.0935431082, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.0935431366, msoFalse, _
msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -324.75
Selection.ShapeRange.IncrementTop -537.75
Rows("1:1").RowHeight = 68.25
Columns("A:A").ColumnWidth = 18.14
Range("C3").Select
End Sub

Hoe kan ik deze macro tegelijk op meerdere cellen en dat hij de cellwaarde als bestandsnaam gebruikt?

 

[sylvester-ponte]

dubbel klik op A1

 

[HSV]

Zonder selection en met foutafhandeling + cancel.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target = "" Or IsNumeric(Target) Then Exit Sub
    Target.RowHeight = 68.25
    Target.ColumnWidth = 18.14

         If Not Dir(Target.Value, vbDirectory) = vbNullString Then
                With ActiveSheet.Pictures.Insert(Target.Value)
                    .Top = Target.Top
                    .Left = Target.Left
                    .Width = Target.Width
                    '.Height = Target.Height
                End With
         Else
                MsgBox "Ongeldig padnaam"
         End If
  Cancel = True
End Sub

Ps. haal de aanhalingstekens weg in cel A1.