Avatar billede spoi Nybegynder
13. april 2007 - 10:20 Der er 1 kommentar og
1 løsning

lidt hjælp til makro be be

Const label = "\\sti\Label\"
   
   
    Range("B61").Select
    ActiveSheet.Pictures.Insert( _
        "F:\Pakkeinstruktioner\Instruktioner\label\" & [c3] & ".JPG").Select
  Range("A1").Select

i c3 står et kundenummer i mappen const label har jeg en masse biller hvis c3 fra filen eksisterer som billede i mappen så skal dette billede sættes ind ellers skal billedet mangler.jpg sættes ind.
Nogen der vil hjælpe med denne løkke?

LN
Avatar billede koppelgaard Praktikant
13. april 2007 - 10:45 #1
Sub test()   
    billedeFullName = "c:\" & [c3] & ".JPG"
    If Dir(billedeFullName) <> "" Then
        ActiveSheet.Pictures.Insert (billedeFullName)
    Else
        ActiveSheet.Pictures.Insert ("c:\" & "mangler" & ".JPG")
    End If
End Sub
Avatar billede spoi Nybegynder
13. april 2007 - 11:35 #2
fik løst det selv
Men tak for indsatsen.

LN
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
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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