Makro Kodunu Eklenti Haline Getirmek

[ragnorak]

Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select an image file"
        .Filters.Clear
        .Filters.Add "JPG", "*.JPG"
        .Filters.Add "JPEG File Interchange Format", "*.JPEG"
        .Filters.Add "Graphics Interchange Format", "*.GIF"
        .Filters.Add "Portable Network Graphics", "*.PNG"
        .Filters.Add "Tag Image File Format", "*.TIFF"
        .Filters.Add "All Pictures", "*.*"
        
If .Show = -1 Then
Dim img As Object
Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))


With Selection

img.Top = .Top
img.Width = .Width
img.Height = .Height
img.Left = .Left + (.Width - img.Width) / 2
img.Placement = xlMoveAndSize

End With

Else

End If
End With
End Sub

Yukarıdaki Kod ile Seçili Hücreye Resim Ekliyorum. Bu kodu herhangi bir excel dosyasında kullanabilmek için excel eklentisi haline getirmek istiyorum. Excel eklentileri hakkında çok bilgim yok. Yardımlarınız için şimdiden teşekkür ederim.

 

[kulomer46]

Değerli Arkadaşım

Yazılan bir makroyu bilgisayarınızdaki tüm excel dosyalarında kullanmak isterseniz, bu makroyu Xlstart klasöründeki PERSONAL dosyasına kaydetmelisiniz.





Excelde çalışırken, tüm excel dosyaları bu PERSONAL dosyasındaki kayıtlı makrolara ulaşabilir ve kullanabilir.

Örneğin ben sizin makronuzu tüm excel dosyalarımda otomatik kullanmak için, PERSONAL Dosyama Diğer_Uygulamalar adında bir modül ekleyerek Sub Seçili_Hücreye_Bilgisayardan_Resim_ekleme() adı altında makronuzu PERSONAL Dosyama ekledim.




Makroyuda aşağıdaki resimde görüldüğü üzere excel menülerinden kendi oluşturduğum Makro 3 Sekmesine atadım.
Artık tüm excel dosyalarımdan bu makroyu istediğim zaman otomatik kullanabilirim.

Kolay Gelsin..
Selamlar...

 

[ragnorak]

Sekmeye Makroyu nasıl atadınız? Orayı tam anlayamadım.

 

[kulomer46]

Sekmeye Makroyu nasıl atadınız? Orayı tam anlayamadım.

Merhaba

Excelde ensolüsteki Dosya menüsünü tıkladığınızda aşağıdaki ekran gelir. Burada aşağıdaki seçenekler kısmını tıklayınız.




sonra gelen ekrandan Şeridi Özelleştir tıklanır.



gelen ekranda sağ alt tarafta Yeni sekme tıklanarak yeni excel menüsü excele eklenmiş olur.



sonra yenisekme (New tab (Özel) tıklı iken Popüler Komutlar tıklanıp makrolar seçeneği seçilir.




Açılan makrolardan kendi makromuzu seçip ortadaki Ekle>> tıklandığında seçtiğimiz makro yeni açtığımız excel menüsüne eklenir.

Selamlar.
Kolay Gelsin...

 

[ragnorak]

Çok açıklayıcı oldu. Geri dönüş geç oldu kusura bakmayın. Çok işime yaradı. Teşekkür ederim.

 

[kulomer46]

Çok açıklayıcı oldu. Geri dönüş geç oldu kusura bakmayın. Çok işime yaradı. Teşekkür ederim.

Selamlar...