Dalam artikel ini, kami akan memberi anda 3 cara untuk menukar gambar sebaris menjadi gambar terapung dalam dokumen Word anda.
Seperti yang mungkin anda ketahui, setiap kali kita memasukkan gambar ke dalam dokumen Word, secara default, gaya pembungkus "Selaras dengan teks". Dengan cara ini, gambar dianggap sebagai watak besar, yang membuat kita sukar untuk memindahkannya hanya dengan mengklik dan menyeret. Oleh itu, kita perlu mengubah gambar sebaris ini menjadi gambar terapung untuk menyesuaikan lokasi mereka dengan mudah.
Seperti biasa, kami mempunyai 3 kaedah untuk anda gunakan.
Kaedah 1: Tukar Gaya Pembalut Satu Gambar Secara Manual
- Pertama, klik kanan pada gambar dan gerakkan kursor ke atas pilihan "Wrap Text" pada menu kontekstual.
- Seterusnya pilih gaya apa pun selain "Selaras dengan teks". Kemudian anda akan dapat menyeret gambar ke mana sahaja anda mahu.
Kaedah 2: Ubah Gaya Lalai
Seperti yang disebutkan di atas, gaya pembungkus default ditetapkan dalam "Sejajar dengan teks". Walau bagaimanapun, anda boleh mengubah konfigurasi sebelum memasukkan gambar dengan langkah-langkah berikut.
- Untuk bermula, klik tab "Fail" kemudian arahan "Pilihan" untuk membuka kotak dialog "Pilihan Word".
- Klik seterusnya "Lanjutan" di lajur kiri.
- Tatal don ke bahagian "Potong, salin dan tampal" dan cari pilihan "Masukkan / tampal gambar sebagai".
- Klik pada butang drop-down untuk memilih gaya pembungkus.
- Akhir sekali, klik "OK" untuk menyimpan tetapan baru.
Semua gambar yang dimasukkan pada masa akan datang akan mengambil gaya pembungkus terapung.
Kaedah 3: Tukar Gaya Pembalut Berganda Gambar melalui VBA
- Untuk bermula, tekan "Alt+ F11" untuk memulakan editor VBA.
- Seterusnya, pergi ke projek "Normal" dengan mengklik "Normal".
- Kemudian klik tab “Insert” pada menu bar dan pilih “Module” pada menu drop-down.
- Sekarang klik dua kali pada modul baru untuk mengeluarkan ruang pengekodan di sebelah kanan editor.
- Tampal makro berikut:
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
- Akhirnya, klik "Run" atau tekan "F5".
Nota:
Makro ini akan mengubah semua gambar sebaris dalam dokumen aktif menjadi gambar terapung dan menetapkannya dalam gaya "Di Sebalik Teks". Sekiranya anda perlu memformatnya dengan gaya lain, cukup ubah pemalar dalam baris kod "Selection.ShapeRange.WrapFormat.Type = wdWrapBehind". Untuk penghitungan terperinci, anda boleh melayari pautan ini: https://docs.microsoft.com/en-us/office/vba/api/Word.WdWrapType
Perkara Sandaran
Seperti yang dikatakan bahawa satu ons pencegahan bernilai satu pon penawar. Walaupun kita dapat mencari cara untuk menyelamatkan fail setelahnya Rasuah perkataan, ia sentiasa kelihatan sudah terlambat. Sudah tentu, yang paling ideal adalah untuk membuat langkah pencegahan, seperti membuat sandaran. Dengan adanya langkah-langkah tersebut, anda akan berasa lebih selesa untuk melakukan tindakan tanpa perlu risau kehilangan data.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk korup xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com




