With ActiveSheet.Pictures.Insert(pct)

[RogerReijkers]

beste lezer,

enig idee wat er fout is in onderstaand:

[E v R]

Naam van het bestand staat niet op die lokatie?
Pad bestaat niet?
geen .jpg?

[edmoor]

Druk daar eens op F8 en laat hier de melding weten die dan verschijnt.

[SjonR]

Ik heb je code even nagemaakt (met eigen map uiteraard) en krijg hetzelfde probleem.

Zo werkt het echter wel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Dim pct As String
 
 If Target.Address = "$D$2" And Target.Value <> "" Then

 pct = "Y:\Facilitair beheer\Energie\Logo\" & Range("D2") & ".jpg"
 ActiveSheet.Pictures.Insert(pct).Select

With Selection
 .ShapeRange.LockAspectRatio = msoTrue
 .Width = 20
 .Height = 50
 .Left = 250
 .Top = 25
 .Placement = 1
 .PrintObject = True
 End With
End If
Exit Sub
End Sub

[RogerReijkers]

Hoi SjonR,

dank voor de code, maar helaas werkt deze niet. krijg ook geen melding.
is er een alternatief?

Mvg Roger

[edmoor]

Alternatief:
Zie #3

[RogerReijkers]

op F8 volgt geen enkele melding

[snb]

gebruik

shapes.addpicture

[RogerReijkers]

hoi snb,

het is mij niet duidelijk waar ik deze code moet plaatsen. graag een hint/aanwijzing.

[snb]

VbEditor (alt-F11), hulp (F1) of object browser (F2)

Zoek in dit forum op de code zie ik zond.

[Peter B]

Volgens mij werkt de code perfect (Excel 2013). Het enige wat ik zou doen is expliciet aangeven dat het gaat om de waarde uit de cel, dus "Range("D2").value".

Als aangegeven de enige manier waarop ik een fout krijg (Foutmelding Run-time error '1004': Unable to get the Insert property of the Picture class) is als aangegeven in post #3 als het bestand niet kan worden gevonden (pad bestaat niet, bestand bestaat niet).