Loncat ke daftar isi utama

Bagaimana cara menyisipkan gambar atau gambar dari pemindai atau kamera di Word?

Anda mungkin mendapat masalah saat memasukkan gambar dari pemindai atau kamera di Word 2007 dan versi yang lebih baru karena Microsoft menghapus opsi untuk menyisipkan gambar dari pemindai atau kamera yang baru tersedia di Word 2003. Tutorial ini akan menunjukkan beberapa metode memasukkan gambar dari pemindai atau kamera di Word 2007 dan versi yang lebih baru.

Sisipkan gambar dari pemindai atau kamera di Word dengan menggunakan pintasan

Sisipkan gambar dari pemindai atau kamera di Word dengan membuat Makro

Masukkan gambar dari pemindai atau kamera di Word dengan Kutools for Word


Sisipkan gambar dari pemindai atau kamera di Word dengan menggunakan pintasan

Jika Anda menggunakan Word 2007 atau Word 2010, Anda dapat mengakses file Sisipkan Gambar dari Scanner atau Kamera utilitas sebagai berikut:

1. Silahkan tekan dulu lain kunci di Word 2007 atau Word 2010, dan kemudian lanjutkan mengetik urutan tombol menu ips
pada keyboard Anda, dan itu akan menampilkan Sisipkan Gambar dari Scanner atau Kamera dialog.

Setelah mengetik lain pertama dan i kunci, Anda akan melihat a Tip Super sebagai berikut:

Setelah mengetik p dan s kunci, itu akan memunculkan Sisipkan Gambar dari Scanner atau Kamera dialog.

Kemudian Anda dapat memilih gambar dari perangkat melalui Sisipkan Gambar dari Scanner atau Kamera dialog.


Sisipkan gambar dari pemindai atau kamera di Word dengan membuat Makro

1. Pertama, Anda harus membuat file Makro untuk dokumen Word Anda. Silakan klik View > Macro > Lihat Makro. Lihat tangkapan layar:

doc memasukkan gambar dari pemindai 1

2. Setelah mengklik Lihat Makro, akan ada a Macro dialog muncul. Dibawah Nama makro, ketik "Memindai”; Pilih Normal. titik (global pola) dari Makro masuk daftar drop-down. Lalu klik membuat. Lihat tangkapan layar:

doc memasukkan gambar dari pemindai 2

3. Dan sekarang, a Jendela Microsoft Visual Basic for Applications muncul, silakan salin dan tempel kode berikut ke lokasi dialog antara Sub scan dan Akhiri sub garis.

Kode pada 2013 dan versi yang lebih baru:

On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
     strDateiname = Environ("temp") & "\Scan.jpg"
     If Not objImage Is Nothing Then
       Kill strDateiname
       objImage.SaveFile strDateiname
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

doc memasukkan gambar dari pemindai 3

Kode pada 2007 dan 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc memasukkan gambar dari pemindai 4

4. Sekarang, Anda harus mengklik Tools > Referensi untuk pergi ke Referensi-Normal kotak dialog, lalu pilih dan centang Perpustakaan Akuisisi Gambar Microsoft Windows opsi, lihat tangkapan layar:

doc memasukkan gambar dari pemindai 5

5. Lalu klik OK untuk menutup kotak dialog, dan sekarang, tekan F5 kunci untuk menjalankan kode ini.

Note: Pastikan pemindai hidup dan terhubung ke komputer


Masukkan gambar dari pemindai atau kamera di Word dengan Kutools for Word

Dengan Kutools for Word'S Dari Scanner atau Kamera utilitas, Anda dapat menyingkirkan operasi yang mengganggu dan dengan mudah memasukkan gambar dari pemindai atau kamera dalam kata.

Kutools for Word : dengan lebih dari 100 add-in Word yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. 

1. Letakkan kursor di tempat Anda ingin menyisipkan gambar.

2. Kemudian silakan terapkan utilitas ini dengan mengklik Kutools > More > Dari Scanner atau Kamera. Lihat tangkapan layar:

3. Setelah mengklik Dari Scanner atau Kamera, itu akan menampilkan Sisipkan Gambar dari Scanner atau Kamera dialog.

J: Di bawah alat, pilih perangkat terkait tempat Anda ingin mengimpor gambar.

B: Pilih salah satu Resolusi Anda inginkan.

C: Klik Menyisipkan untuk mulai memasukkan.

Note: Utilitas ini tidak dapat diterapkan untuk Word 2013 dan versi yang lebih baru.

Klik untuk mengunduh Kutools for Word dan uji coba gratis sekarang!

Untuk informasi lebih rinci tentang Kutools for Word'S Dari Scanner atau Kamera utilitas, silakan kunjungi: Dari Scanner atau Kamera.


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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This should work in most versions 64 or 32 bit Add reference to Microsoft Windows Image Acquisition x2.0 Sub Scan() Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strScanName As String ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strScanName) "" Then Kill strScanName objImage.SaveFile strScanName 'save into temp file DoEvents 'Word Selection.InlineShapes.AddPicture strScanName ' insert in doc End If End Sub
This comment was minimized by the moderator on the site
I have followed ALL the instructions for loading a picture from my scanner and all that happens is a empty box outline appears on my Word 10 page?? Your help is sort. David 76 yrs young
This comment was minimized by the moderator on the site
Wow! supereasy. Thank you!
This comment was minimized by the moderator on the site
Thanks a lot for this very helpful article! The keyboard shortcut and the macro both work like a charm!
This comment was minimized by the moderator on the site
such an amazing and helpful.
This comment was minimized by the moderator on the site
So I created a Macro using the code you supplied, thank you, i was wondering if there was a way to go further and include code for the selection that you make once that Insert Image window pops up. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations