Jeg har nedenstående script til at tilføje billeder i mit dokument - men hvis man annullere midt i processen (på den annuller knap windows laver) laver den en fejl.

Nogen der kan hjælpe med hvordan jeg slipper for dette?

Private Const Hoejde = "255" 'Hvis højde skal tilpasses cellens højde, ændres den til ""
Private Const Bredde = "465" 'Hvis bredde skal tilpasses celles højde, ændres den til ""
Private Const Placering = "b18" 'Hvis billedes skal være i aktive celle, ændres den til ""

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActCell = ActiveCell.Address
If Placering <> "" Then Range(Placering).Select
Set Billede = ActiveSheet.Pictures.Insert(Application.GetOpenFilename("Alle filer,*.*"))
With Billede
    .ShapeRange.LockAspectRatio = msoFalse
        If Hoejde = "" Then
                .Height = ActiveCell.Height
            Else
                .Height = Hoejde
            End If
        If Bredde = "" Then
                .Width = ActiveCell.Width
            Else
                .Width = Bredde
            End If
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
End With
Set Billede = Nothing
Range(ActCell).Select
Application.ScreenUpdating = True
End Sub

SUPER det virker som det skal - takker 1000

Hej Allan

Et lille tillægsspørgsmål - det ser ud til at når man ligger et billede ind og gemmer filen gemmer den ikke billedet - dvs. at den kun har lavet en link til billedet.

Kan man ændre det så billedet bliver i filen ???

Hej Allan - super jeg tester lige i løbet af dagen.