Bu makalede, Word belgenizdeki satır içi resimleri kayan resimlere dönüştürmenin 3 yolunu sunacağız.
Bildiğiniz gibi, bir Word belgesine ne zaman bir resim eklesek, varsayılan olarak “Metinle aynı hizada” kaydırma stilini alır. Bu şekilde, bir resim büyük bir karakter olarak kabul edilir ve bu da onu basitçe tıklayıp sürükleyerek hareket ettirmemizi zorlaştırır. Buna göre, konumlarını kolayca ayarlamak için bu satır içi resimleri kayan resimlere dönüştürmemiz gerekiyor.
Her zaman olduğu gibi, almanız için 3 yöntemimiz var.
Yöntem 1: Bir Resmin Sarma Stilini Manuel Olarak Değiştirme
- İlk olarak, resme sağ tıklayın ve imleci içerik menüsündeki “Metin Kaydır” seçeneğinin üzerine getirin.
- Ardından, "Metinle uyumlu" dışında herhangi bir stil seçin. Ardından resmi istediğiniz yere sürükleyebileceksiniz.
Yöntem 2: Varsayılan Stili Değiştirin
Yukarıda bahsedildiği gibi, varsayılan kaydırma stili "Metin ile aynı hizada" olarak ayarlanmıştır. Ancak, aşağıdaki adımlarla resimleri eklemeden önce yapılandırmayı değiştirebilirsiniz.
- Başlamak için, önce "Dosya" sekmesine, ardından "Seçenekler" komutuna tıklayarak "Word Seçenekleri" iletişim kutusunu açın.
- Ardından sol sütundaki "Gelişmiş"i tıklayın.
- Don'u "Kes, kopyala ve yapıştır" kısmına kaydırın ve "Resmi farklı ekle/yapıştır" seçeneğini bulun.
- Bir sarma stili seçmek için açılır düğmeyi tıklayın.
- Son olarak, yeni ayarı kaydetmek için “Tamam”a tıklayın.
Gelecekte eklenen tüm resimler kayan sarma stilini alacaktır.
Yöntem 3: Birden Fazla Resmin Sarma Stilini VBA ile Değiştirme
- Öncelikle, VBA düzenleyicisini başlatmak için “Alt+F11” tuşlarına basın.
- Ardından, “Normal” seçeneğine tıklayarak “Normal” projesine gidin.
- Ardından menü çubuğundaki “Ekle” sekmesine tıklayın ve açılır menüden “Modül” seçeneğini seçin.
- Şimdi editörün sağ tarafındaki kodlama alanını ortaya çıkarmak için yeni modüle çift tıklayın.
- Aşağıdaki makroyu oraya yapıştırın:
Sub ChangeInLineWithTextPicToFloatingPic()
Dim objDoc As Document
Dim objInLineShape As InlineShape
Dim objShape As Shape
Set objDoc = ActiveDocument
With objDoc
For Each objInLineShape In .InlineShapes
objInLineShape.ConvertToShape
Next objInLineShape
For Each objShape In .Shapes
objShape.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapBehind
Next objShape
End With
End Sub
- Son olarak, "Çalıştır"a tıklayın veya "F5"e basın.
not:
Bu makro, etkin belgedeki tüm satır içi resimleri kayan resimlere değiştirir ve onları "Metin Arkası" stiline ayarlar. Bunları başka bir stilde biçimlendirmeniz gerekirse, "Selection.ShapeRange.WrapFormat.Type = wdWrapBehind" kod satırındaki sabiti değiştirmeniz yeterlidir. Ayrıntılı numaralandırma için bu bağlantıyı ziyaret edebilirsiniz: https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
Yedeklemeler Önemlidir
Söylendiği gibi, bir gram önleme, bir kilo tedaviye bedeldir. Dosyaları kurtarmanın yollarını bulabilmemize rağmen Kelime bozulmasıHer zaman çok geç gibi geliyor. En ideal çözüm elbette yedekleme almak gibi önleyici tedbirler almaktır. Yedeklemeleriniz elinizin altında olduğunda, veri kaybı endişesi duymadan işlemlerinizi daha rahat gerçekleştirebilirsiniz.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk xls hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com




