verschil invoegen .bmp en .jpg

[fulco25]

Beste forum leden,

Onderstaande code voegt een afbeelding in een cel en centreerd deze netjes.
Wanneer ik deze met een BMP bestand laat uitvoeren is er niks aan de hand.
Bij het invoegen van een jpg afbeelding krijg ik de fout melding dat dit niet met deze methode kan.
Vraag ik deze code op met de macro recorder krijg de ik zelfde code.
Heeft iemand een suggestie welke code ik dan moet gebruiken?

de Error melding heb ik uitstaan ivm het programmeren en testen!

Sub test2()

 For Each shp In Sheets("Blad1").Shapes
        shp.Delete
 Next shp
 
 For Rij = 2 To 8
  Map = "G:\Werkvoorbereiding\Stuklijst\afbeeldingen\"
  Naam = Sheets("blad1").Cells(Rij, 1)
   naam_lang = Map & Naam & ".jpg"
    'On Error Resume Next
  Set pic = Sheets("blad1").Pictures.Insert(naam_lang)

       Set Rng = Sheets("blad1").Cells(Rij, 2)
        With pic
            Breedte_Afb = pic.Width
            Hoogte_Afb = pic.Height
        If Breedte_Afb > Hoogte_Afb Then
           Breedte = 80
          Else
           Breedte = ((Rng.Height - 10) / pic.Height) * pic.Width
          End If
           .Height = Rng.Height
           .Width = Breedte
            Breedte_Afb = pic.Width
            Hoogte_Afb = pic.Height
            Breedte_Cel = Rng.Width
            Hoogte_Cel = Rng.Height
            midden_Br_Cel = (Breedte_Cel - Breedte_Afb) / 2
            midden_Ho_Cel = (Hoogte_Cel - Hoogte_Afb) / 2
           .Top = (Rng.Top + midden_Ho_Cel)
           .Left = (Rng.Left + midden_Br_Cel)
           .Placement = xlMoveAndSize
        End With
    
  Next
End Sub

mvg

Fulco

 

[edmoor]

Je code werkt hier zonder problemen met zowel een .jpg als een .bmp in Office 2016.
Op welke regel krijg je dan die foutmelding?

 

[Warme bakkertje]

Ook geen probleem in Office 2007.

 

[Ginger]

...en de error afhandeling zou ik in dit geval niet doen met een On Error Resume Next omdat het doorlopen van de rest van de code redelijk onzinnig is. Beter lijkt mij een On Error GoTo [naam van je GoTo-punt aan het einde van je procedure] (bijvoorbeeld iets van "ErrorHandler").
Maar bestaat je opgegeven bestandsnaam wel? Zit er niet ergens een extra spatie aan het begin of einde waardoor er dus niet staat wat jij denkt dat er staat?

 

[HSV]

En ook belangrijk; wat staat er in de cellen 'cells(rij,1)'.

 

[fulco25]

@admoor op regel 12 kreeg ik de foutmelding, ik werk hier met office 2013.
@Ginger foutmelding staat ook uit en wordt ook anders, dit stuk code is een kleinstukje van een groter geheel.
@HSV, met de cel wordt tekst opgehaald, de naam van de afbeelding. in kolom A staat de naam, in Kolom B komt de afbeelding.

Dit wordt een stukje code waarmee stuklijsten importeert in een excel bestand waar vanuit de etiketten worden afgedrukt.

schiet mij maar lek, start excel opnieuw op om te kijken, werkt het

 

[edmoor]

De vraag van HSV is wat er letterlijk in de cel staat, niet waar de waarde vandaan komt of waar deze voor bedoeld is. Geef dus een voorbeeld van de inhoud van de betreffende cel op het moment dat het fout gaat.

Als daar iets niet goed is dan is het logisch dat het op regel 12 mis gaat.

 

[Ginger]

schiet mij maar lek, start excel opnieuw op om te kijken, werkt het

Volgens is het probleem al opgelost...

 

[edmoor]

Die regel had ik dus niet gezien