Avatar billede KATM Novice
11. oktober 2023 - 09:03 Der er 1 løsning

VBA indsæt billed fra drev

Hej
Jeg har denne VBA til at indsætte billed fra et derv

Sub Billede()
'Sub Indsæt_billede()
'
' Sub MacroInsætBillede()
 
       
    Filnavn = ActiveCell.Value
     
    ActiveCell.Offset(2, 0).Range("A1").Select 'bestemmer hvor billedet skal indsættes

    ActiveSheet.Pictures.Insert("I:\Axbilleder\" & Filnavn & ".jpg").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 120
    Billednavn = Selection.Name
   
 
    ActiveCell.Offset(0, 2).Range("A1").Select
End Sub

Den virker, men hvis der ikke er et billed i mappen går den selv fejl, hvor skal jeg lave en if, og hvordan skal den se ud?  Der skal bare ikke sættes et billed ind.
Avatar billede MaxZpaD Professor
11. oktober 2023 - 09:37 #1
Du kan f.eks. indsætte denne linje før billedet forsøges indsat:

If Dir$("I:\Axbilleder\" & Filnavn & ".jpg", vbNormal) = "" Then Exit Sub

Koden tjekker for, om billedfilen faktisk findes, og hvis ikke, så stoppes/forlades makroen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester