Excel sayfası Word'e Özel Yapıştır yapılamıyor

[assenucler]

Değerli dostlar herkese merhabalar;


Office 2010 kullanıyorum. Excel sayfamı Word'a "Özel Yapıştır" ile "Resim" olarak yapıştırmak istiyorum.

Word sayfasına tıkladığımda sadece "Yapıştır" seçeneği gözüküyor. "Özel Yapıştır" seçeneği çıkmıyor.

Nedeni ne olabilir?

 

[necati]

Merhaba,
"Özel Yapıştır" komutu giriş ana menüsündeki yapıştır butonunun alt komutu olarak bulunuyor.
Ama istediğiniz şey özellikle farenin sağ tuşuna "Özel Yapıştır" komutu eklemekse, makrosunu verebilirim.

 

[assenucler]

Sayın Necati;

Öncelikle sorduğum soruya istemeyerek geç yanıt verdiğim için özür dilerim.

Rica etsem, farenin sağ tuşuna "Özel Yapıştır" komutu için makroyu verebilir misiniz?

Teşekkürler.

 

[necati]

Rica ederim, önemli değil.

Sub SagTusaKomutEkle()
'Farenin sağ klik tuşuna "özel yapıştır" komutu ekleyen makro
    Dim SagTus As CommandBar
    Dim komut As CommandBarButton
    Set SagTus = Application.CommandBars("Text")
    Set komut = SagTus.FindControl(, , "Özel Yapıştır", , True)
    If komut Is Nothing Then
      Set komut = SagTus.Controls.Add(msoControlButton, 755, , 4, True)    '4 demek menüdeki 4. sıra demektir. Boş olursa en sona ekler...'755 demek özel yapıştır'a ait kod numarasıdır
    End If							
End Sub

'Eğer istemezseniz tekrar ilk haline döndürmek için şunu kullanıyoruz:

Sub SagTusuResetleme()
'Eklenenleri resetler yani siler....
    Dim SagTus As CommandBar
    Set SagTus = Application.CommandBars("Text")
        With SagTus
            .Reset
        End With
End Sub

 

[assenucler]

Sağ olun var olun...