Word uygulamasında istediğiniz işlevi yerine getirebilmek için VBA (Visual Basic for Applications) makrosu yazmamız gerekecek. Bu makro, Ctrl+V ile yapıştırdığınız resimleri alacak, her birini belirli bir boyuta getirecek ve her iki resmi yan yana, sonra alt alta sıralayacaktır.
İşte istediğiniz işlevi gerçekleştirecek bir VBA makrosu:
- Word'ü açın.
- Alt + F11 tuşlarına basarak VBA editörünü açın.
- Sol taraftaki VBAProject kısmında, "Normal" üzerine sağ tıklayın ve Insert > Module seçeneği ile yeni bir modül oluşturun.
- Aşağıdaki kodu modüle yapıştırın:
vba
Kopyala
Sub YapistirVeSirala()
Dim resim As InlineShape
Dim i As Integer
Dim resimBoyutu As Single
Dim satir As Integer
Dim kolon As Integer
' Yapıştırılan resimlerin boyutunu ayarlamak için
resimBoyutu = 100 ' Burada boyutu değiştirebilirsiniz (örneğin, 100 piksel)
' Resimleri ve düzenlemeyi başlatıyoruz
satir = 1
kolon = 1
' Yapıştırılan tüm resimleri al
For Each resim In ActiveDocument.InlineShapes
' Resmin boyutunu belirle
resim.LockAspectRatio = msoFalse
resim.Width = resimBoyutu
resim.Height = resimBoyutu
' Yan yana sıralama
If kolon = 1 Then
resim.ConvertToShape
resim.Top = 0 ' Resmi üstte tut
resim.Left = (kolon - 1) * (resim.Width + 10) ' Arada 10 px boşluk bırakarak
kolon = kolon + 1
Else
resim.ConvertToShape
resim.Top = 0
resim.Left = (kolon - 1) * (resim.Width + 10)
kolon = 1
satir = satir + 1
End If
Next resim
End Sub
- F5 tuşuna basarak bu makroyu çalıştırabilirsiniz.
Açıklama:
- Bu makro, yapıştırdığınız resimleri 100 piksel boyutuna ayarlayacaktır. (Bu değeri ihtiyacınıza göre değiştirebilirsiniz).
- Resimler 2'şer sıralanacak şekilde yan yana yerleştirilecektir. İkinci satırda ise aynı işlem alt alta yapılacaktır.
Hocam ChatGPT'ye yazdım böyle bir cevap verdi ama işini görür mü?
