Seçilen hücreye nesne ekleme

[Esteban34]

Merhaba

Forumda çok aradım ancak aradığım özellikte bir makro bulamadım.

Seçilen hücreye makro butonu ile adresi değişken( makro adresi soracak ekran açacak) bir klasörden nesne seçilecek ve seçilmiş hücrenin içersine ( dışına taşmayacak şekilde ) bu nesne eklenecektir.

diğer konu çalışma yaptığım dosyaya manuel olarak nesne ekliyorum ama her eklediğim nesne numarası gittikçe artıyor. Örn: Nesne 13435, Nesne 13436
bu sayıyı nasıl resetleyebilirim.

Yardımlarınızı rica ederim

 

[Esteban34]

Önerisi olan yok mu? Yoksa bu olanaksız mı?

 

[Korhan Ayhan]

Merhaba,

Forumda bu konuyla ilgili birçok örnek çalışma var. Arama yaparsanız bulabilirsiniz. Sanırım nasıl arayacağınızı bilemediniz.

Aşağıdaki kod yapısı ile işleminizi yapabilirsiniz.

Sub SEÇİLEN_ALANA_RESİM_EKLE()
    Dim Dosya_Yolu, Resim As Object
    
    Dosya_Yolu = Application.GetOpenFilename( _
                 FileFilter:="Tüm Resimler (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _
                 Title:="Resim Seçiniz")
    
    If Dosya_Yolu = False Then
        MsgBox "İşleminiz iptal edilmiştir.", vbInformation
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    
    Set Resim = ActiveSheet.Pictures.Insert(Dosya_Yolu)
    With Resim
        .Height = Selection.Height
        .Width = Selection.Width
    End With
    
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub