سلام دوستان
تا حالا شده بخواين يك متن يا عدد يا هر چيزي رو بفرستين تو كليپ بورد يا از كليپ بورد پيست كنين؟
اين كد ها به شما كم خواهند كرد:
ذخيره در كليپ بورد:
پيست كردن از كليپ بورد:
البته دقت داشته باشيد كه اين كدها رو براي رويداد كليك كردن يك دكمه قرار بدين تا درست عمل كنن
تا حالا شده بخواين يك متن يا عدد يا هر چيزي رو بفرستين تو كليپ بورد يا از كليپ بورد پيست كنين؟
اين كد ها به شما كم خواهند كرد:
ذخيره در كليپ بورد:
کد:
Dim MyDataObj As New DataObject
With MyDataObj
.SetText YOUR TEXT
.PutInClipboard
End With
کد:
Dim DataObj As New MSForms.DataObject
Dim S As String
DataObj.GetFromClipboard
S = DataObj.GetText
Debug.Print S
کامنت