Lave tekst til udklipsholderen.

Eksempel:

Const Grå = &H8000000F
Const Hvid = &HFFFFFF

Dim MyData As DataObject
Private Sub CommandButton1_Click()
    sætIudklipsHolder "Med venlig hilsen"
    Me.CommandButton1.BackColor = Hvid
    CommandButton2.BackColor = Grå
End Sub
Private Sub CommandButton2_Click()
    sætIudklipsHolder "Supertekst"
    CommandButton2.BackColor = Hvid
    CommandButton1.BackColor = Grå
End Sub
Private Sub sætIudklipsHolder(tekst)
    Set MyData = New DataObject
   
    MyData.SetText tekst
    MyData.PutInClipboard
End Sub

Hej.

Mange tak for svaret. Jeg er sikker på at jeg nu finder en løsning.

Mvh.
Hans

Selv tak..