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

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: With ActiveSheet.Pictures.Insert(pct)

  1. #1
    Junior Member
    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: 19
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!

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