Çift Tıklama ile Hücre Boyutunda Resim Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
Örnek olarak, aşağıdaki resimde göreceğiniz şekilde birden fazla hücreyi birleştirdik.
Birleştirdiğimiz hücreye çift tıklıyoruz ve açılan pencereden ilgili bir klasördeki resmi seçiyoruz ve Aç diyoruz.
Gördüğünüz gibi, seçtiğiniz resim birleştirilen hücre boyutu kadar eklenecektir.
Faydalanılması temennisiyle
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
Hazır Kod
VBA:
Private Sub Worksheet_BeforeDoubleClick(ByVal Hedef As Range, Cancel As Boolean)
Dim resimYolu As String
Dim resim As Picture
Dim hücreGenişliği As Double, hücreYüksekliği As Double
' Resim yolu seçimi
resimYolu = Application.GetOpenFilename("Resim Dosyaları (*.jpg;*.jpeg;*.gif;*.bmp),*.jpg;*.jpeg;*.gif;*.bmp")
If resimYolu = "False" Then Exit Sub ' İptal edilirse çık
' Hücrenin boyutlarını al
hücreGenişliği = Hedef.Width
hücreYüksekliği = Hedef.Height
' Hücreyi temizle ve resmi ekle
Hedef.ClearContents
Set resim = ActiveSheet.Pictures.Insert(resimYolu)
With resim
.Top = Hedef.Top
.Left = Hedef.Left
.Width = hücreGenişliği
.Height = hücreYüksekliği
.Placement = xlMoveAndSize
End With
Cancel = True ' Çift tıklama olayını iptal et
End SubAçıklama
Üstteki kodlar, bir Excel sayfasının herhangi bir hücresine çift tıkladığınızda ilk olarak resim eklemenize olanak sağlayacak pencereyi açacaktır.Örnek olarak, aşağıdaki resimde göreceğiniz şekilde birden fazla hücreyi birleştirdik.
Birleştirdiğimiz hücreye çift tıklıyoruz ve açılan pencereden ilgili bir klasördeki resmi seçiyoruz ve Aç diyoruz.
Gördüğünüz gibi, seçtiğiniz resim birleştirilen hücre boyutu kadar eklenecektir.
Faydalanılması temennisiyle
