Loncat ke daftar isi utama

Bagaimana cara mengubah semua gambar yang ditautkan menjadi tertanam di dokumen Word?

Ketika Anda mengirim dokumen Word berisi gambar yang ditautkan ke orang lain, gambar tersebut akan hilang dan ditampilkan di komputer penerima seperti gambar di bawah ini. Bagaimana cara mengonversi semua gambar yang ditautkan menjadi tertanam sekaligus sebelum dikirim ke orang lain? Artikel ini memberikan metode VBA untuk mengatasinya.

Ubah gambar yang ditautkan menjadi disematkan dengan kode VBA


Ubah gambar yang ditautkan menjadi disematkan dengan kode VBA

Harap terapkan kode VBA di bawah ini untuk mengonversi semua gambar tertaut dalam dokumen menjadi tersemat.

1. Buka dokumen Word yang berisi gambar terkait yang akan Anda ubah menjadi gambar yang disematkan. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Dan kemudian salin kode VBA di bawah ini ke file Modul jendela. Lihat tangkapan layar:

Kode VBA: Konversi semua gambar yang ditautkan menjadi disematkan sekaligus

Sub convert_all_inline_shapes()
'Updated by Extendoffice 20180906
    Dim xIShape As InlineShape
    For Each xIShape In ActiveDocument.InlineShapes
        With xIShape
            If .Type = wdInlineShapeLinkedPicture Then
                .LinkFormat.SavePictureWithDocument = True
                .LinkFormat.BreakLink
            End If
        End With
    Next
End Sub

3. tekan F5 kunci untuk menjalankan kode.

Kemudian semua gambar yang ditautkan dalam dokumen saat ini diubah menjadi gambar yang disematkan pada saat yang bersamaan.

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten  /  Menulis Ulang Teks  /  Meringkas Dokumen  /  Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...)  /  Konversi Batch ke PDF  /  Ekspor Halaman sebagai Gambar  /  Cetak Banyak File sekaligus...

Pengeditan Isi: Temukan dan Ganti Batch di Banyak File  /  Ubah Ukuran Semua Gambar  /  Ubah Urutan Baris dan Kolom Tabel  /  Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra  /  Bagian Istirahat  /  Semua Header  /  Teks box  /  Hyperlink  / Untuk alat penghapus lainnya, kunjungi kami Hapus Grup...

Sisipan Kreatif: Memasukkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  / Temukan lebih lanjut di Sisipkan Grup...

🔍 Pilihan Presisi: Tepat halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  / Tingkatkan navigasi dengan lebih Pilih fitur...

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi...

👉 Ingin mencoba fitur-fitur tersebut? Kutools for Word menawarkan a Uji coba gratis 60-hari, tanpa batasan! 🚀
 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, exactly what I was looking for.Chris.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations