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: 32
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.
    "As far as I know, my computers have never had an undetected error. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

  4. #4
    Senior Member
    Verenigingslid

    Geregistreerd
    10 november 2016
    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!

  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
    "As far as I know, my computers have never had an undetected error. "
    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
    gebruik

    Code:
    shapes.addpicture
    VBA voor smarties

    VBA is een taal die je moet leren met een grammatica- en een woordenboek.
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
    overmorgen

  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
    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.
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
    overmorgen

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

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