• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

With ActiveSheet.Pictures.Insert(pct)

Status
Niet open voor verdere reacties.
Naam van het bestand staat niet op die lokatie?
Pad bestaat niet?
geen .jpg?
 
Druk daar eens op F8 en laat hier de melding weten die dan verschijnt.
 
Ik heb je code even nagemaakt (met eigen map uiteraard) en krijg hetzelfde probleem.

Zo werkt het echter wel:

Code:
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
 
Hoi SjonR,

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

Mvg Roger
 
Alternatief:
Zie #3
 
gebruik

Code:
shapes.addpicture
 
hoi snb,

het is mij niet duidelijk waar ik deze code moet plaatsen. graag een hint/aanwijzing.
 
VbEditor (alt-F11), hulp (F1) of object browser (F2)

Zoek in dit forum op de code zie ik zond.
 
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).
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan