dugme yardımıyla seçili hücreye resim atama

[egemenadem]

selam arkadaslar....

makronun çalışma prensibi : fare ile seçili hücreye, düğmeye bastıgımız zaman tanımlı şekili atmasını istiyorum... nasıl yapabilirim?

 

[Levent Menteşoğlu]

selam arkadaslar....

makronun çalışma prensibi : fare ile seçili hücreye, düğmeye bastıgımız zaman tanımlı şekili atmasını istiyorum... nasıl yapabilirim?

Sorunuz yeteri kadar açık değil bir örnek dosya ekleyin.

 

[Mahmut Bayram]

Bir program ekliyorum.
Refeditle yapılmıştır.
Birden fazla hücre seçebilirsiniz.
Kolay gelsin.

 

[egemenadem]

!

levent bey

dosya ekte....siteden ekleyemedim o yuzden rapide eklemek zorunda kaldım...

partner bey sizin yaptıgınız cok daha kapsamli ve guzel birde siz dosyayı incelermisiniz?

http://rapidshare.com/files/10606811/adddddddd.xls.html

 

[kombo]

Sn egemenadem

İstediğiniz şöyle birşey mi....

AÇIKLAMA EKLEME
addddd.xls dosya yolu kullandığınız dosya adı olacak.

Sub kopyala()
Application.ScreenUpdating = False
ActiveWindow.NewWindow
ActiveSheet.Shapes("Group 8").Select
Selection.Copy
Windows("addddd.xls:1").Activate 'örnek dosyada kopyala.xls olacak
ActiveCell.Select
ActiveSheet.Paste
Windows("addddd.xls:2").Activate 'örnek dosyada kopyala.xls olacak
ActiveWindow.Close
Range("B11").Select
Application.ScreenUpdating = False
End Sub

 

[Mahmut Bayram]

Sn egemenadem
İstediğiniz şöyle birşey mi....

Sanırım istediğiniz şu kadarlık bir kod

Sub kopyala()
    ActiveSheet.Shapes("Group 8").Select
    Selection.Copy
    ActiveCell.Select
    ActiveSheet.Paste
End Sub

 

[kombo]

Sanırım istediğiniz şu kadarlık bir kod

Sub kopyala()
    ActiveSheet.Shapes("Group 8").Select
    Selection.Copy
    ActiveCell.Select
    ActiveSheet.Paste
End Sub

Sn partner
Doğru söylüyorsunuz. O şekilde denedim yapamamıştım. Ama hatamı buldum. Copy komutu ile değil Cut komutu ile çalışıyordum. Cut/Paste yapınca her seferinde Şekil adı değiştiği için makro hata veriyordu. Bende bu şekilde çözüm bulmuştum.

 

[egemenadem]

sevgili partner..

istedigim ne kadarlik bi kod bilmiyorum ve bilmedigim içinde bana zor geliyo.. size kolay geliyoki (istediğiniz şu kadarlık bi kod" ) diyebiliyorsunuz )) haklısınızdır sanırım..

soru sormaya korkar oldu gençlik...