سلام دوستان
تا حالا شده بخواين يك متن يا عدد يا هر چيزي رو بفرستين تو كليپ بورد يا از كليپ بورد پيست كنين؟
اين كد ها به شما كم خواهند كرد:
ذخيره در كليپ بورد:
پيست كردن از كليپ بورد:کد: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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)