Menülere Sayfadan resim eklendiğinde panoya kopyalanan verinin kaybolmaması için ne y

[hsayar]

Aşağıdaki kodlar xla belgemde bulunmakta ancak Ozelmenuekle prosodürümüz gerek açılışta gerek cls_workbook aktivatede çağrıldığı için öncesinde kopyalanan veri kaybolmaktadır bunun için

ctrl + c ile kopyalanan veriyi kodun başında
TempCopy gibi bir değere atayıp kodun sonunda tekrar ctrl+ v ile yapıştırlabilir hale getirmek mümkünmüdür. Yeşil yazı ile kodun içine de yazdım.

Sub Ozelmenuekle()
Call MenuDgr
Call OzelmenuKaldır
[B][COLOR=Green]TempCopy = Kitap Açılmadan veya aktif edilmeden önce kopyalanan veri tahminen Clipboard.[/COLOR][/B]
..................
      With .Controls.Add(msoControlButton, , , sirnoDegYap + 1) 'bir sonrasına kendi komutumuzu yerleştirdik....
            .Caption = "&Excelden Worde Yapıştır..."
            .OnAction = "Worde_Yapistir"
      '       ThisWorkbook.Sheets(1).Shapes("icoWordGonder").Copy:            .PasteFace
            .Tag = "HsrXLA02B"
        End With
    
        With .Controls.Add(msoControlButton, , , sirnoDegYap + 2) 'bir sonrasına kendi komutumuzu yerleştirdik....
            .Caption = "&Wordden Excele Yapıştır..."
            .OnAction = "Wordden_Al_Excele_Yapistir"
   '         ThisWorkbook.Sheets(1).Shapes("icoWordAl").Copy:                 .PasteFace
            .Tag = "HsrXLA02C"
        End With
'    '==========Hafızadaki Resmi Silmek için(Haluk)
'        Dim myClipboard As New DataObject
'        myClipboard.SetText Empty
'        myClipboard.PutInClipboard
'        Set myClipboard = Nothing
[B][COLOR=Green]Clipboard[/COLOR][/B][B][COLOR=Green]= [/COLOR][/B][B][COLOR=Green]TempCopy  >>>[/COLOR][/B][B][COLOR=Green]Kitap Açıldıktan sonra ctrl + v ile yapıştırlabilir hale getir.[/COLOR][/B]
.......................

 

[hsayar]

Günaydın
Güncel Yardım edebilirseniz sevinirim.