Indsætte et billede i Excel via en formel

Du skal ind og kigge på .Width og .Height når du har fat i billedobjekterne.

VH. GrN.dk

Tak, men i første omgang skal jeg lige have hentet/indsat billederne :-)
- har du mulighed for at hjælpe med den del også?

Med udgangspunkt i http://www.eksperten.dk/spm/968103 har jeg fået lavet denne kode, som indsætter billedet fra en bestemt mappe 5 celler til højre for den markerede celle, hvor billedenavnet står i en celle (uden sti eller extention):

Sub MacroInsætBillede()
   
         
    Filnavn = ActiveCell.Value
       
    ActiveCell.Offset(0, 5).Range("A1").Select 'bestemmer hvor billedet skal indsættes
'her mangler en if-kommando....
    ActiveSheet.Pictures.Insert("R:\Company\Previews\" & Filnavn & ".bmp").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue 'bibeholder forholdet mellem højde og bredde på billedet
    Selection.ShapeRange.Height = 165 'justeres så billedet får den rigtige størrelse
    Billednavn = Selection.Name 'henter billedenavnet
    ActiveCell.Value = Billednavn 'skriver billedenavnet i den markerede celle (bag billedet)
   
    ActiveCell.Offset(0, -5).Range("A1").Select
   
End Sub


Jeg har uden held forsøgt at tilføje nedenstående, hvor 'der mangler en if-kommando, for at slette evt allerede eksisterende billede inden det nye sættes ind.

    If ActiveCell.Value <> "" Then
        BilledTilSlet = ActiveCell.Value
        ActiveSheet.Shapes.Range(Array("BilledeTilSlet")).Delete
        Selection.ClearContents
    End If

Nogen der kan hjælpe mig videre?

Løsningen er fundet via http://www.eksperten.dk/spm/1004515

If ActiveCell.Value <> "" Then
        BilledTilSlet = ActiveCell
        ActiveSheet.Shapes(BilledTilSlet).Delete
        Selection.ClearContents
    End If

Hej
Jeg så denne fantastiske streng, som er startet for lang tid siden.
Jeg vil også gerne bed om filen, hvis du vil sende den til igj@fisker.as

På forhånd tak.