arkadaşlar tek sütunda alt alta her iki resmin arasına # karakteri konulacak şekilde 100 tane resim yapıştırmak istiyorum bunu makro atıyarak yapabiliyoruzda ben beceremedim yardımcı olurmusunuz.şekli ekde gönderiyorum.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
word e toplu resim yapıştırma
- Konbuyu başlatan davut80
- Başlangıç tarihi
- Katılım
- 15 Nisan 2007
- Mesajlar
- 3,471
- Excel Vers. ve Dili
- Office 2010 & 2013 tr
Merhaba,
Ekteki dosyayı resimlerinizin bulunduğu klasöre kopyalayın ve içindeki res_al makrosunu çalıştırın.
Ekteki dosyayı resimlerinizin bulunduğu klasöre kopyalayın ve içindeki res_al makrosunu çalıştırın.
Kod:
Sub res_al()
yol = ThisDocument.Path & "\ZOR\"
Dosya = Dir$(yol & "*.jpg")
Do While Dosya <> ""
Selection.InlineShapes.AddPicture FileName:=yol & Dosya, LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection = "#"
Dosya = Dir$
Loop
MsgBox "İşlem tamam.", vbInformation, "l e u m r u k"
End Sub