Excelde VBA kullanarak bir hücreye resim nasıl eklenir

Excel elektronik tablolarına kolayca görseller ekleyebilir ve bunları makro koduyla düzenleyebilirsiniz. Excel'de VBA kullanarak bir hücreye nasıl resim ekleyeceğinizi burada bulabilirsiniz .

VBA olarak kısaltılan Visual Basic for Applications, Visual Basic 6'nın Microsoft Office programlarına entegre edilmiş bir şeklidir. VBA, kodlama yoluyla Excel dahil Office uygulamaları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 harfler ve rakamlarla dolu olduğu anlamına gelmez. Excel'deki VBA ile bir hücreye veya hücre aralığına resim eklemenizi sağlayan bir makro oluşturabilirsiniz. İşte VBA kullanarak Excel'deki hücrelere resim ekleme hakkında bilmeniz gerekenler.

Excel'de VBA kullanarak hücrelere resim nasıl eklenir

• 1. Geliştirici araçlarını açın
• 2. Makrolar oluşturun ve kod ekleyin
• 3. Bölünmüş kod

VBA kullanarak bir Excel hücresine resim ekleyen bir makro oluşturmak için gerçekten herhangi bir ileri düzey Visual Basic bilgisine ihtiyacınız yoktur. Tek yapmanız gereken Geliştirici araçlarını açmak, bir makro oluşturmak ve uygun kodu yapıştırmak. Elbette VBA kullanmadan da Excel'e resim ekleyebilirsiniz. Ancak bu yazıda VBA'ya odaklanacağız.

1. Geliştirici araçlarını açın

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

1. Excel'i açın .
2. Dosya menüsüne gidin .
3. Ekranın altındaki Seçenekler'e tıklayın . Excel Seçenekleri penceresi görünecektir.
4. Excel Seçenekleri'nde Şeridi Özelleştir sekmesine gidin .
5. Ana Sekmeler'de Geliştirici'yi işaretleyin .

Artık VBA erişimi de dahil olmak üzere Geliştirici araçları etkinleştirildi. Excel'de VBA'yı her kullanmak istediğinizde bunu yapmanıza gerek yoktur. Geliştirici araçları, siz onları devre dışı bırakana kadar her zaman etkin olacaktır.

2. Makrolar oluşturun ve kod ekleyin

1. Excel'de Geliştirici sekmesine gidin .
2. Kod bölümünde Makrolar'ı seçin .
3. Yeni pencerede Makro adı alanına makro adınızı girin . Makalede insertPhotoMacro kullanılacaktır .
4. Oluştur'u tıklayın .

Oluştur'a tıkladıktan sonra VBA penceresi açılacak ve makronuzun kodunu gösterecektir. Şu anda kod 2 satırdan oluşacaktır: makroyu başlatmak için bir Sub ve onu bitirmek için bir End Sub .

Bu makroya küçük bir kod ekleyin. İki satırın arasına aşağıdaki kod satırını ekleyin:

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

Son kod şöyle görünecek:

Bu işlemi kaydetme konusunda endişelenmenize gerek yok. VBA'da yaptığınız değişiklikler anında kaydedilir.

Şimdi kodu çalışırken görmenin zamanı geldi:

1. VBA penceresini kapatın.
2. Excel'deki Geliştirici sekmesine gidin.
3. Kod bölümünden Makrolar'ı seçin .
4. Yeni oluşturduğunuz makroyu vurgulayın.
5. Çalıştıra tıkla .

Şimdi eklemek istediğiniz resim dosyasını bulmanızı isteyen bir mesaj açılacaktır. Fotoğrafı seçin ve ardından Aç'ı tıklayın. Artık resmi A1 hücresinde göreceksiniz.

Excel'in görüntüyü A1 hücresine sığacak şekilde küçülteceğini unutmayın. Görüntüleri diğer hücrelere, hatta bir dizi hücreye eklemek için onu değiştirebilir ve kodu değiştirebilirsiniz. Bir sonraki bölümde kodu ayırıp parametreleri açıklayacağız.

3. Bölünmüş kod

VBA kodunun istediğiniz şekilde çalışması için onu anlamanız gerekir. Bunu yaparken, herhangi bir hücreye herhangi bir boyutta resim eklemek için kodu değiştirebilirsiniz.

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

Kod başladığında değişken türünü belirlemek için Dim ifadesi kullanılır. İki değişken türümüz var: photoNameAndPath ve photo . Önce değişken, sonra görüntü.

Buradan, photoNameAndPath değişkeni çalışır ve fotoğraf dosyasının konumunu almak için bir uygulama açar. Bu, Application.GetOpenFileName aracılığıyla yapılır . Başlık parametresi isteğe bağlıdır. İçindeki içerik pencere adı olarak görüntülenir.

If photoNameAndPath = False Then Exit Sub komutunu kullanarak geçersiz ya da boş adres verilirse işlem sonlandırılacaktır. Ancak uygun bir dosya sağlanmışsa Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) resmin orijinal olarak tanımlandığı gibi bir değişken olarak ayarlanması gerektiğini belirtir. Aktif çalışma sayfasına eklenecektir.

Son olarak Fotoğrafla seçeneğini ve ardından gelen 5 satırı kullanarak fotoğrafın konumunu belirleyin. .Sol ve .Üst başlangıç ​​konumunu belirtirken, .Genişlik ve .Yükseklik bitiş konumunu belirtir. Başka bir hücreye veya aralığa resim eklemek istiyorsanız değiştirmeniz gereken satırlar bunlardır.

.Yerleşim, resmin hücreye sığacak şekilde yeniden boyutlandırılması veya serbest biçime yerleştirilmesi gerektiğini belirtir. 1'e ayarlamak hücreye göre yeniden boyutlandırılacaktır.

Son olarak yukarıdaki kod, makroyu kapatmak için End With ve ardından End Sub öğesini kullanır. Artık photoNameAndPath ve photo değişkenlerini istediğiniz başka bir adla değiştirebilirsiniz . Adları kod boyunca tutarlı tutmayı unutmayın.

Yukarıda, Excel'deki hücrelere resim eklemek için VBA'nın nasıl kullanılacağı açıklanmaktadır . Umarım makale sizin için faydalıdır.