

Naam van het bestand staat niet op die lokatie?
Pad bestaat niet?
geen .jpg?
Gr. Eric
Druk daar eens op F8 en laat hier de melding weten die dan verschijnt.
"Hardware: The parts of a computer system that can be kicked. "
Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
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
Lees hier wat handige tips voor het plaatsen van een vraag over Excel & VBA
Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!
Blij met de oplossing? Klik dan hier en maak onze penningmeester blij!
Hoi SjonR,
dank voor de code, maar helaas werkt deze niet. krijg ook geen melding.
is er een alternatief?
Mvg Roger
Alternatief:
Zie #3
"Hardware: The parts of a computer system that can be kicked. "
Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
op F8 volgt geen enkele melding
M.v.g. Roger
gebruik
Code:shapes.addpicture
VBA voor smarties
VBA is een taal die je moet leren met een grammatica- en een woordenboek.
http://www.helpmij.nl/forum/announcement.php?f=5
Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
hoi snb,
het is mij niet duidelijk waar ik deze code moet plaatsen. graag een hint/aanwijzing.
M.v.g. Roger
VbEditor (alt-F11), hulp (F1) of object browser (F2)
Zoek in dit forum op de code zie ik zond.
VBA voor smarties
VBA is een taal die je moet leren met een grammatica- en een woordenboek.
http://www.helpmij.nl/forum/announcement.php?f=5
Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
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).
Mogelijk moet je door mij voorgestelde formules vertalen. Bv. via deze link.
Ik ben dan wel senior maar niet te oud om te leren. Ik weet dus ook niet alles ...