Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: With ActiveSheet.Pictures.Insert(pct)

  1. #1
    Junior Member RogerReijkers's avatar
    Geregistreerd
    4 november 2015
    Locatie
    Huizen
    Afstand tot server
    ±73 km
    Vraag is niet opgelost

    With ActiveSheet.Pictures.Insert(pct)

    beste lezer,

    enig idee wat er fout is in onderstaand:
    Klik op afbeelding voor grotere versie

Naam:  ActiveDheet.PNG
Bekeken: 38
Grootte:  20,9 KB

  2. #2
    Naam van het bestand staat niet op die lokatie?
    Pad bestaat niet?
    geen .jpg?
    Gr. Eric

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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.

  4. #4
    Mega Senior
    Verenigingslid

    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    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
    Niemand is slim genoeg om zijn eigen domheid te bevatten!

    Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!

  5. #5
    Junior Member RogerReijkers's avatar
    Geregistreerd
    4 november 2015
    Locatie
    Huizen
    Afstand tot server
    ±73 km
    Hoi SjonR,

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

    Mvg Roger

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    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.

  7. #7
    Junior Member RogerReijkers's avatar
    Geregistreerd
    4 november 2015
    Locatie
    Huizen
    Afstand tot server
    ±73 km
    op F8 volgt geen enkele melding
    M.v.g. Roger

  8. #8
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    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/showthread.php/635117-Tips-om-de-helpers-in-deze-sectie-van-dienst-te-zijn
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  9. #9
    Junior Member RogerReijkers's avatar
    Geregistreerd
    4 november 2015
    Locatie
    Huizen
    Afstand tot server
    ±73 km
    hoi snb,

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

  10. #10
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    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/showthread.php/635117-Tips-om-de-helpers-in-deze-sectie-van-dienst-te-zijn
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  11. #11
    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 ...

  12. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen