VBA: Kopiere indhold af billede til udklipsholder

Prøv med denne her.
Løsningen er ikke så elegant, men den virker (testet på Excel XP)

Indsæt følgende kode i et VBA modul:

------------------------
Dim billedeSti As String

Private Sub Image1_Click()
       
    Dim tempArk As Worksheet
    Dim startArk As Worksheet
   
    Set startArk = ActiveSheet
    Set tempArk = Sheets.Add(After:=Worksheets(Worksheets.Count))
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    tempArk.Range("A1").Select
    tempArk.Pictures.Insert(billedeSti).Select
    Selection.Copy
    tempArk.Delete
    startArk.Activate
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
       
    MsgBox "Billede: " & billedeSti & " er kopieret til udklipsholderen."
   
End Sub

Private Sub UserForm_Activate()
    billedeSti = "c:\windows\Zapotec.bmp"
    Set UserForm1.Image1.Picture = LoadPicture(billedeSti)
End Sub

------------------

Det kræver også lige at du opretter en userform med et billede på...
Husk også at ændre billedstien.