Visual Basic for Application, kısaca VBA, Microsoft Office programlarına entegre edilmiş bir Visual Basic 6 biçimidir. Kodlama yoluyla VBA, Excel de dahil olmak üzere Office programlarındaki görevleri otomatikleştirmenize olanak tanır. Bazı durumlarda, VBA'yı kullanarak Excel'e yeni özellikler bile ekleyebilirsiniz.

VBA'yı kullanmak için kodla çalışmanız gerekse de bu, VBA'nın tamamen harf ve rakamlardan oluştuğu anlamına gelmez. Excel'deki VBA ile, bir hücreye veya hücre aralığına resim eklemenizi sağlayan bir makro oluşturabilirsiniz. Her şeyi öğrenmek için okumaya devam edin!

Excel'de VBA Kullanarak Hücreye Resim Ekleme

VBA'yı kullanarak Excel hücrelerine resim eklemek üzere bir makro oluşturmak için aslında herhangi bir gelişmiş Visual Basic bilgisine ihtiyacınız yoktur. Tek yapmanız gereken Geliştirici araçlarını etkinleştirmek, makroyu oluşturmak ve doğru kodu yapıştırmak.

Ancak, bir gün VBA öğrenmek ve kendi kodunuzu yazmakla ilgileniyorsanız, üçüncü bölümde VBA kodunu parçaladık. Tabii ki, sen de yapabilirsin

instagram viewer
resimleri VBA kullanmadan Excel'e ekleyin. Ancak bu makale, bunu VBA aracılığıyla yapmakla ilgili. İşe başlayalım!

VBA'yı Excel'de kullanmak için, Excel'de Geliştirici araçlarını etkinleştirmeniz gerekir. Bu, şeritte varsayılan olarak devre dışı bırakılan Geliştirici sekmesini etkinleştirir.

  1. Excel'i açın.
  2. Gitmek Dosya Menü.
  3. Tıklamak Seçenekler Ekranın alt kısmında Bu, Excel Seçenekleri penceresini açacaktır.
  4. Excel Seçeneklerinde şuraya gidin: Şeridi Özelleştir sekme.
  5. Altında Ana Sekmeler, kontrol etmek Geliştirici.

Artık VBA'ya erişim de dahil olmak üzere Geliştirici araçları sizin için etkinleştirilmiştir. Excel'de VBA'yı her kullanmak istediğinizde bunu yapmanız gerekmez. Geliştirici araçları, siz onları devre dışı bırakana kadar etkin kalacaktır.

2. Makro Oluşturma ve Kodu Ekleme

Şimdi makroyu oluşturmaya başlamanın zamanı geldi. Alternatif olarak, ayrıca VBA kullanarak bir düğme oluşturun Bu görev için, ancak makrolara bağlı kalacağız.

  1. Excel'de şuraya gidin: Geliştirici sekme.
  2. İçinde kod bölüm, seç makrolar.
  3. Yeni pencerede, altındaki makronuz için bir ad girin. makro adı. kullanacağız EkleFotoMakro.
  4. Tıklamak Yaratmak.

Oluştur'a tıkladığınızda, VBA penceresi açılır ve makronuzun kodunu görüntüler. Şu anda, kod iki satırdan oluşacaktır: A Alt makroyu başlatmak için ve Aboneliği Sonlandır bitirmek için

Bu makroya biraz kod ekleyelim. İki satır arasına şu kodu ekleyin:

Soluk fotoğrafNameAndPath Gibi varyant
Fotoğrafı karart Gibi Resim
photoNameAndPath = Uygulama. GetOpenFilename (Başlık:="Seçme Fotoğraf ileSokmak")
Eğer fotoğrafAdıVeYolu = YANLIŞ Daha sonra çıkış Alt
Ayarlamak fotoğraf = ActiveSheet. Resimler. Ekle (photoNameAndPath)
İle Fotoğraf
 .Sol = Etkin Sayfa. Menzil("A1").Sol
 .Üst = Etkin Sayfa. Menzil("A1").Tepe
 .Genişlik = Etkin Sayfa. Menzil("A1").Genişlik
 .Yükseklik = Aktif Sayfa. Menzil("A1").Yükseklik
 .Yerleştirme = 1
Sonİle

Son kodunuz aşağıdakine benzer bir şey olmalıdır:

İlerlemenizi kaydetme konusunda endişelenmenize gerek yok. VBA'da yaptığınız her değişiklik anında kaydedilir.

Şimdi kodu çalışırken görme zamanı.

  1. VBA penceresini kapatın.
  2. Gitmek Geliştirici Excel'deki sekme.
  3. Seçme makrolar dan kod bölüm.
  4. Az önce oluşturduğunuz makroyu vurgulayın.
  5. Tıklamak Koşmak.

Şimdi, eklemek istediğiniz görüntü dosyasını bulmanızı isteyen bir istem açılacaktır. Resminizi seçin ve ardından tıklayın Açık. Artık fotoğrafınızı A1 hücresinde görmelisiniz!

Eklenen resmin A1 hücresine sığacak şekilde küçültüldüğüne dikkat edin. Bunu değiştirebilir ve ayrıca resmi diğer hücrelere veya hatta bir hücre aralığına eklemek için kodu değiştirebilirsiniz. Bir sonraki bölümde, kodu parçalara ayıracağız ve işteki parametreleri açıklayacağız.

3. Kodu Parçalamak

Bu VBA kodunun sizin için istediğiniz gibi çalışmasını sağlamak için onu anlamanız gerekir. Bunu yaptıktan sonra, herhangi bir boyuttaki herhangi bir hücreye fotoğraf eklemek için kodu değiştirebilirsiniz. Anlaşılmasını kolaylaştırmak için kodu yavaş yavaş inceleyeceğiz.

Alt insertPhotoMacro()
Soluk fotoğrafNameAndPath Gibi varyant
Fotoğrafı karart Gibi Resim
photoNameAndPath = Uygulama. GetOpenFilename (Başlık:="Seçme Fotoğraf ileSokmak")
Eğer fotoğrafAdıVeYolu = YANLIŞ Daha sonra çıkış Alt
Ayarlamak fotoğraf = ActiveSheet. Resimler. Ekle (photoNameAndPath)
İle Fotoğraf
.Sol = Etkin Sayfa. Menzil("A1").Sol
.Üst = Etkin Sayfa. Menzil("A1").Tepe
.Genişlik = Etkin Sayfa. Menzil("A1").Genişlik
.Yükseklik = Aktif Sayfa. Menzil("A1").Yükseklik
.Yerleştirme = 1
Sonİle
Son Alt

Kod başladıktan sonra, loş değişkenin türünü belirlemek için ifade. Burada iki değişkenimiz var: fotoğrafAdıVeYolu Ve Fotoğraf kendisi. İlkini belirledik varyant ve ikincisi olarak Fotoğraf.

Oradan, photoNameAndPath değişkeni çalışır ve resim dosyasının nerede olduğunu öğrenmek için bir uygulama açar. Bu aracılığıyla yapılır Başvuru. GetOpenFileName. bu Başlık parametre isteğe bağlıdır ve içindeki içerik, pencere adı olarak görüntülenir.

kullanma photoNameAndPath = False ise Sub'dan Çıkın, geçersiz veya boş bir adres verilirse işlemin sonlandırılacağını belirtiriz. Ancak, uygun bir dosya beslenirse, o zaman Fotoğrafı ayarla = ActiveSheet. Resimler. Ekle (photoNameAndPath) resmin daha önce tanımladığımız fotoğraf değişkeni olarak ayarlanması gerektiğini ve etkin elektronik tabloya eklenmesi gerektiğini belirtir.

Sonunda kullanarak Fotoğrafla ve onu takip eden beş satır, görüntünün konumunu ayrıntılı olarak ele alıyoruz. .Sol Ve .Tepe başlangıç ​​konumlarını belirtirken, .Genişlik Ve .Yükseklik bitiş noktalarını belirtin. Görüntüyü diğer hücrelere veya bir aralığa eklemek istiyorsanız, değiştirmeniz gereken satırlar bunlardır.

.Atama resmin hücrelerle mi boyutlandırılması gerektiğini yoksa serbest biçimde mi eklenmesi gerektiğini belirtir. ayarlanıyor 1 onu hücrelerle boyutlandıracak.

Sonuçta, kullanıyoruz İle bitmek ve daha sonra Aboneliği Sonlandır makroyu kapatmak için değiştirebileceğinizi unutmayın. fotoğrafAdıVeYolu Ve Fotoğraf değişkenleri istediğiniz başka bir adla değiştirin. Adları kod boyunca tutarlı tutmayı unutmayın.

VBA ile Excel'de Daha Fazlasını Yapın

Excel, verileri düzenlemek ve analiz etmek için gerçekten harika bir araçtır, ancak bu, grafikler söz konusu olduğunda Excel'in beceriksiz olduğu anlamına gelmez. Fotoğraflar ve bit eşlemler Excel'in en güçlü yönü olmasa da, Excel yine de bunları mükemmel bir şekilde idare etme yeteneğine sahiptir.

Diğer Office uygulamalarında yaptığınız gibi arabirimi kullanarak Excel'e resim ekleyebilseniz de, bunu VBA kullanarak da yapabilirsiniz. VBA ile bu görevi otomatikleştirebilir ve hatta aynı anda çalıştırmak için diğer görevlerle birleştirebilirsiniz. Excel'de VBA ile olasılıklar sonsuzdur.